-
VB编程资源大全(源码 文件)
2007-10-17 22:40:03(3KB) 70,showicon.ZIP 显示文件图标(3KB) 71,cntlines.ZIP 得到指定文本文件的行数(1KB) 72,fileinfo2.ZIP 显示文件信息 (13KB) 73,findfiles.ZIP 使用递归算法在指定目录下查找文件 ... -
-
vb整合多个excel表格到一张_vba实现excel多表合并
2020-12-22 11:06:10复制每一个excel里的数据,合并到一个excel操作步骤将要合并的文件放在同一文件夹下,复制过来就好(ps:最好不要直接操作原数据文件,避免操作失败,数据丢失)在这个目录下创建一个“合并.xlsx”双击打开“合并.xlsx...Excel多表合并之vba实现
需求
保留列名,复制每一个excel里的数据,合并到一个excel
操作步骤
将要合并的文件放在同一文件夹下,复制过来就好(ps:最好不要直接操作原数据文件,避免操作失败,数据丢失)
在这个目录下创建一个“合并.xlsx”
双击打开“合并.xlsx”
同时按 ALT + F11
出现下图,按图中文字操作即可完成合并
完成
附录代码
Sub合并当前目录下所有工作簿的全部工作表()DimMyPath, MyName, AWbNameDim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As Stringflag= 0Application.ScreenUpdating= FalseMyPath=ActiveWorkbook.Path
MyName= Dir(MyPath & "\" & "*.xls")
AWbName=ActiveWorkbook.Name
Num= 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" &MyName)
Num= Num + 1
With Workbooks(1).ActiveSheetFor G = 1 ToSheets.CountIf flag = 0 ThenWb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row , 1)
flag= 1
ElseWb.Sheets(G).Range("a2", Wb.Sheets(G).Cells.SpecialCells(xlCellTypeLastCell)).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)End If
NextWbN= WbN & Chr(13) &Wb.Name
Wb.CloseFalse
End With
End IfMyName= Dir
LoopRange("A1").Select
Application.ScreenUpdating= True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub
合并多个excel每个excel有多个sheet,每个sheet单独合并,代码如下
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
flag = 0
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
For G = 1 To Wb.Sheets.Count
If flag = 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = Wb.Sheets(G).Name
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row, 1)
.UsedRange.Rows.AutoFit
.UsedRange.Columns.AutoFit
End With
Else
With Workbooks(1).Worksheets(G + 3)
' MsgBox .Name & "--" & Wb.Sheets(G).Name
If G = 2 Then
Wb.Sheets(G).Range("a2", Wb.Sheets(G).Cells.SpecialCells(xlCellTypeLastCell)).Copy .Cells(.Range("A65536").End(xlUp).Row + 2, 1)
Else
Wb.Sheets(G).Range("a2", Wb.Sheets(G).Cells.SpecialCells(xlCellTypeLastCell)).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
End If
.UsedRange.Rows.AutoFit
.UsedRange.Columns.AutoFit
End With
End If
Next
'flag 为0时候为第一个打开的excel,此时产生列,sheet名
flag = 1
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
' End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub
-
微软 VB2010 源码包
2013-05-22 02:21:18还演示如何在不必编写代码的情况下创建数据绑定窗体,以及如何连接到数据库文件 ObjectBinding:演示如何将控件绑定到数据库组件以外的对象 OCS:演示如何使用 Microsoft Synchronization Services for ADO.NET ... -
vb6 sqlserver洗浴城管理系统【源码】.rar
2019-07-10 17:22:252:将目录database下的XYGLXT.mdf和XYGLXT_log.ldf文件拷贝到SQL Server 2000的“MSSQL”->“data”目录下. 如果没有安装Sql Server,请先安装Sql Server,安装SQL SERVER 2000数据库时,在身份安全验证机制选项中... -
VBA实现当文件夹不存在时自动创建
2019-09-19 16:26:26假设我们要实现的功能是在D盘根目录下创建vbatest文件夹,可以看到,当前文件夹是不存在的: 我们在vb代码编辑器里输入下面的代码: Sub dir() Dim myDir As String myDir = "D:\vbatest" On Error Resume Next ...VBA也可以很方便的实现文件操作。本文主要实现当文件夹不存在时,自动创建文件夹的功能。
假设我们要实现的功能是在D盘根目录下创建vbatest文件夹,可以看到,当前文件夹是不存在的:
我们在vb代码编辑器里输入下面的代码:Sub dir() Dim myDir As String myDir = "D:\vbatest" On Error Resume Next mkdir myDir End Sub
按F5执行,即可成功创建 文件夹,如下图所示:
-
VB编程资源大全(源码 网络)
2007-10-17 22:54:27(4KB) 37,telnet.ZIP 一个只使用Winsock控件实现的Telnet程序(39KB) 38,cnetworkinfo.ZIP 一个在Windows NT/2000下的程序。这个程序可以获得当前登陆的网络用户名、工作站ID、IP地址等信息。(5KB) ... -
Url重写篇视频------本讲将通过实例比较ASP.NET下的三种典型URL重写方案
2009-04-22 08:15:51例如,在进行网站重组而将 /people/ 目录下的所有网页移动到 /info/employees/ 目录中时,您可能希望使用 URL 重写来检查 Web 请求是否指向了 /people/ 目录中的文件。如果请求指向 /people/ 目录中的文件,您可能... -
MicrosoftHTMLHelpWorkshopV1.3汉化版.rar
2010-05-01 12:39:57将工程文件保存在某一目录下并给予文件名。此时弹出主编辑窗口,如图1。 2.单击右边的“选项”按钮,在弹出的对话框中我们可以设置文件的属性。包括文件标题、压缩率、排序、各种文件信息、搜索支持、宏定义、... -
ASP.NET的网页代码模型及生命周期
2009-07-28 14:22:11创建一个单文件页模型,在【文件】按钮中选择【新建文件】选项,在弹出对话框中选择【Web窗体】或在右击当前项目,在下拉菜单中选择【添加新建项】选项即可创建一个.aspx页面,如图4-2所示。 图4-2 创建单文件页... -
java源码包---java 源码 大量 实例
2013-04-18 23:15:26Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系,这些代码面向初级、中级Java程序员。 Java访问权限控制源代码 1个目标文件 摘要:Java源码,... -
Visual Basic开发实战1200例(第Ⅰ卷).(清华出版.孙秀梅.巩建华).part1
2016-06-14 11:19:42实例158 获取在已打开文件中的读写位置 实例159 判断变量是否被初始化 实例160 获取文件创建或修改日期 实例161 自定义错误号 实例162 获取当前打开窗口数量 实例163 随机获取姓名 实例164 防止连续出现多个... -
DirectX修复工具 V3.2增强 绿色版
2014-07-01 10:06:43游戏将本程序内嵌 即可进行无需人工参与的快速修复 开启简约模式的方法是:打开程序所在目录下的“Settings ini”文件(如果没有可以自己创建) 将其中的“FormStyle”一项的值改为“Simple”并保存即可 ... -
java源码包2
2013-04-20 11:28:17Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系,这些代码面向初级、中级Java程序员。 Java访问权限控制源代码 1个目标文件 摘要:Java源码... -
java源码包3
2013-04-20 11:30:13Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系,这些代码面向初级、中级Java程序员。 Java访问权限控制源代码 1个目标文件 摘要:Java源码... -
DirectX修复工具 V3.0 官方绿色增强版
2013-09-21 12:03:30开启简约模式的方法是:打开程序所在目录下的“Settings.ini”文件(如果没有可以自己创建),将其中的“FormStyle”一项的值改为“Simple”并保存即可。 程序有高级筛选功能,开启该功能后用户可以自主选择要修复... -
成百上千个Java 源码DEMO 4(1-4是独立压缩包)
2017-03-29 17:40:59Java二进制IO类与文件复制操作实例 16个目标文件 内容索引:Java源码,初学实例,二进制,文件复制 Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系... -
成百上千个Java 源码DEMO 3(1-4是独立压缩包)
2017-03-29 17:39:54Java二进制IO类与文件复制操作实例 16个目标文件 内容索引:Java源码,初学实例,二进制,文件复制 Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系... -
AutoCAD VBA二次开发教程.PDF
2015-07-01 12:31:25使用ObjectDBX实现的批量文字替换,与上一个版本比较起来,修正了一些Bug,并且是在不打开文件的情况下完成操作的,速度有了明显的提高。 第6章介绍了标注和公差的使用。新的圆弧长度标注程序涉及到多行文字格式代码... -
AS Eclipse VisualStudio快捷生成属性
2013-05-14 16:50:04安装说明:将插件dll和.AddIn配置文件放入到Visual studio 2008应用目录(默认是在 我的文档\Visual Studio 2008 (或者2005、2010))的Addins目录下。如果没有Addins目录,则自己创建一个。最后,重新启动Visual ... -
JAVA上百实例源码以及开源项目源代码
2018-12-11 17:07:42Java二进制IO类与文件复制操作实例 16个目标文件 内容索引:Java源码,初学实例,二进制,文件复制 Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系... -
JAVA上百实例源码以及开源项目
2016-01-03 17:37:40Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系,这些代码面向初级、中级Java程序员。 Java访问权限控制源代码 1个目标文件 摘要:Java源码,... -
计算机应用技术(实用手册)
2011-07-29 16:32:16此项目允许您去选择 [ENABLED],以让您在DOS环境下可以使用USB鼠标,或是选择 [OS] 以在OS环境下使用。在默认情况下是关闭的即:[DISABLED],只有打开在DOS下才可以用。 AC97 Audio 这个选项开启或关闭集成声卡... -
DirectX修复工具 V3.0标准版
2013-09-26 20:20:15开启简约模式的方法是:打开程序所在目录下的“Settings.ini”文件(如果没有可以自己创建),将其中的“FormStyle”一项的值改为“Simple”并保存即可。 程序有高级筛选功能,开启该功能后用户可以自主选择要修复... -
DirectX修复工具 V3.3标准 绿色版
2015-05-03 09:43:18开启简约模式的方法是:打开程序所在目录下的“Settings.ini”文件(如果没有可以自己创建),将其中的“FormStyle”一项的值改为“Simple”并保存即可。 程序有高级筛选功能,开启该功能后用户可以自主选择要修复... -
Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part1
2016-06-15 00:31:36实例217 将硬盘文件目录转为数据库数据 384 实例218 将数据库文件转换为文本文件 386 实例219 将数据库数据传给Excel 388 实例220 将Excel数据传给Access数据库 389 实例221 将数据库数据传给Word 391 实例222 ... -
Visual Basic开发实战1200例(第2卷)(完整版).(清华出版.孙秀梅.巩建华).part2
2016-06-15 00:34:01实例217 将硬盘文件目录转为数据库数据 384 实例218 将数据库文件转换为文本文件 386 实例219 将数据库数据传给Excel 388 实例220 将Excel数据传给Access数据库 389 实例221 将数据库数据传给Word 391 实例222 ... -
QTP下载链接.txt
2020-08-17 09:04:43QTP提供三种类型的调用方式:a)call to new Action,在当前test中创建一个新的Action;b)call to Copy of Action;c)call to existing action,调用一个re-usable action,如果这个re-usableaction来自另外一个... -
vc++ 开发实例源码包
2014-12-16 11:25:173:可以在不下载ZIP.RAR.ISO文件的情况下查看文件里面的目录文件. 4:支持多语言. 5:操作综合其它软件. 6:自定义快捷键. 7:在IE工具栏上加按钮,可以直接拖动连接到按钮上下载. 8:注册采用激活方式. 9:采用Messenger的...