在Excel工作中，经常需要处理大量的数据，而这些数据往往分布在多个Excel文件中。手动合并这些文件不仅耗时，而且容易出错。为了解决这个问题，我们可以利用Excel的VBA（Visual Basic for Applications）宏功能来编写自动化脚本，实现多个Excel文件的快速合并，并在结果文件中保留每个源文件的名称作为参考。这就是"Excel合并（带文件名）"的主题，它将大大提高工作效率。
ExcelVBA是Excel内置的一种编程语言，允许用户自定义工作簿的行为和功能。通过VBA，我们可以创建宏，即一系列预先录制的操作，一旦运行，就会按照预设顺序执行这些操作。在“多个excel”合并的场景中，VBA宏可以遍历指定文件夹中的所有Excel文件，读取每个文件的数据，然后将它们整合到一个新的工作表中。
以下是一个简单的VBA宏代码示例，用于合并带有文件名的Excel文件：
```vba
Sub MergeExcelFiles()
Dim wb As Workbook
Dim srcWb As Workbook
Dim folderPath As String
Dim fileName As String
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Integer
' 指定文件夹路径
folderPath = "C:\Users\YourUsername\Desktop\Excel_Files\" ' 修改为实际文件夹路径
' 创建新工作簿以存储合并结果
Set wb = ThisWorkbook
wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)).Name = "合并结果"
' 获取文件夹中的第一个Excel文件
fileName = Dir(folderPath & "*.xls*") ' 匹配.xl*格式的文件
' 循环处理每个Excel文件
Do While fileName <> ""
' 打开源文件
Set srcWb = Workbooks.Open(folderPath & fileName)
' 获取源文件的第一个工作表
Set ws = srcWb.Sheets(1)
' 在结果工作表中添加源文件名
lastRow = wb.Sheets("合并结果").Cells(wb.Sheets("合并结果").Rows.Count, 1).End(xlUp).Row + 1
wb.Sheets("合并结果").Cells(lastRow, 1) = fileName
' 将源文件数据复制到结果工作表
ws.Cells.Copy wb.Sheets("合并结果").Cells(lastRow, 2)
' 关闭源文件
srcWb.Close SaveChanges:=False
' 获取文件夹中的下一个Excel文件
fileName = Dir
Loop
MsgBox "合并完成！", vbInformation, "Excel合并"
End Sub
```
在上述代码中，我们首先指定了包含待合并Excel文件的文件夹路径，然后创建了一个新的工作表用于存储合并结果。接下来，使用`Dir`函数遍历该文件夹中的所有Excel文件，依次打开、读取数据并将其粘贴到结果工作表中。每行数据前都会插入一个列，用于记录数据来自哪个源文件。关闭源文件并提示用户合并已完成。
为了使用这个宏，你需要在Excel中打开"开发工具"选项卡（如果未显示，需在Excel选项中启用VBA编辑器），然后在VBA编辑器中创建一个新的模块，并将上述代码复制进去。保存为`.xlsm`（启用宏的Excel文件）后，即可在Excel中运行宏，实现多个Excel文件的自动合并。
总结来说，通过学习和应用ExcelVBA，我们可以轻松解决多Excel文件合并的问题，提高工作效率，同时还能在合并后的数据中保留文件来源的信息，方便后续的数据分析和管理。这是一个非常实用的技能，对于经常处理大量Excel数据的用户来说尤其有价值。
2024-07-30 17:18:37
13KB
1
在excel中，将Excel数据对应写入已做好的Word模板的指定位置
2023-05-24 22:43:22
27KB
1
利用excelvba实现对文件夹下的dwg文件进行文字替换、块插入等批量操作，可以看源码
2023-04-15 00:11:38
33KB
1
通过已知点坐标，批量计算坐标所在新版和旧版图幅号的ExcelVBA代码，可减轻工程管理填表查图的工作量，特别适合林业类工程管理。
2023-03-19 09:01:32
3KB
1
一、VBA语言基础 1
第一节 标识符 1
第二节 运算符 1
第三节 数据类型 1
第四节 变量与常量 1
第五节 数组 2
第六节 注释和赋值语句 2
第七节 书写规范 2
第八节 判断语句 2
第九节 循环语句 3
第十节 其他类语句和错误语句处理 4
第十一节 过程和函数 4
一．Sub过程 4
二．Function函数 5
三．Property属性过程和Event事件过程 5
第十二节内部函数 5
一．测试函数 5
二．数学函数 5
三．字符串函数 6
四．转换函数 6
五．时间函数 6
第十三节 文件操作 6
文件 6
删除 7
打开 7
读入 7
写入 7
关闭 7
其他文件函数 7
二、VISUAL BASIC程序设计网络教学 1
第一课 VBA是什么 1
1.1 VBA是什么 1
1.2 EXCEL环境中基于应用程序自动化的优点 1
1.3 录制简单的宏 2
1.4 执行宏 2
1.5 查看录制的代码 2
1.6 编辑录制的代码 3
1.7 录制宏的局限性 4
1.8 小结 4
第二课 处理录制的宏 4
2.1 为宏指定快捷键 4
2.2 决定宏保存的位置 5
2.3 个人宏工作簿 5
2.3.1 保存宏到个人宏工作簿 5
2.3.2 使用并编辑个人宏工作簿中的宏 5
2.4 将宏指定给按钮 6
2.5 将宏指定给图片或其他对象 6
2.6 小结 7
第三课 学习控件 7
3.1 EXCEL开发过程简介 7
3.2 认识不同的控件 7
3.3 向工作表添加控件 7
3.4 设置控件的特性 8
3.5 给控件命名 8
3.6 使用用户窗体 8
3.7 疑难解答 9
第四课 理解变量和变量的作用 9
4.1 代码存在的位置：模块 9
4.2 对模块的概览 10
4.2.1 创建过程 10
4.2.2 运行宏 11
4.3 保存对模块所做的改变 11
4.4 变量 11
4.4.1 变量的数据类型 11
4.4.2 用Dim语句创建变量(声明变量) 13
4.4.3 变量命名的惯例 13
4.4.4 使用数组 14
4.4.5 变量赋值 15
第五课 利用VBA设置工作表使用权限 15
1．使用WITH语句。 17
2．使用对象变量。 17
方法3：减少对象的激活和选择 17
方法4：关闭屏幕更新 18
第六课 提高EXCEL中VBA的效率 19
方法1：尽量使用VBA原有的属性、方法和WORKSHEET函数 19
方法2：尽量减少使用对象引用，尤其在循环中 19
1．使用With语句。 19
2．使用对象变量。 20
3．在循环中要尽量减少对象的访问。 20
方法3：减少对象的激活和选择 20
方法4：关闭屏幕更新 20
第七课 如何在EXCEL里使用定时器 20
三、学习微软 EXCEL 2002 VBA 编程和XML，ASP技术 22
第一章 电子表格自动化简介和了解宏命令 22
1了解宏 22
2宏命令的普通应用 22
3写宏之前的计划 23
4录制宏 24
5运行宏 26
6修改宏代码 26
7添加注释 29
8分析宏代码 29
9清除宏代码 30
10测试修改好的宏 31
11两个层面运行宏的方法 32
12完善你的宏代码 32
13重新命名宏 34
14运行宏的其它方法 34
15使用键盘快捷键运行宏 34
16通过菜单运行宏 35
17通过工具栏按钮运行宏 37
18通过工作表里面的按钮运行宏 38
19保存宏 39
20打印宏 39
21保存宏在个人宏工作簿 40
22打开含有宏的工作簿 41
23VB编辑窗口 42
24了解工程浏览窗口 43
25了解属性窗口 43
26了解代码窗口 44
27 VB编辑器里的其它窗口 46
28接下来…… 46
第二章 VBA 第一步 46
1了解指令，模块和过程 47
2 VBA工程命名 47
3模块重命名 48
4从其它工程调用过程 49
5了解对象，属性和方法 50
6学习对象，属性和方法 51
7句法和文法 53
8打断很长的VBA语句 55
9了解VBA错误 55
10查找帮助 57
11语法和编程快捷助手 58
12属性/方法列表 59
13常数列表 59
14参数信息 60
15快速信息 60
16自动完成关键字 60
17缩进/凸出 61
18设置注释块/解除注释块 61
19使用对象浏览器 61
20使用VBA对象库 66
21用对象浏览器来定位过程 67
22使用立即窗口 67
23获取立即窗口里的信息 69
24学习对象 70
25电子表格单元格操作 70
26使用RANGE属性 70
27使用CELLS属性 71
28使用OFFSET属性 71
29选择单元格的其它方法 72
30选择行和列 73
31获取工作表信息 73
32往工作表输入数据 73
33返回工作表中的信息 74
34单元格格式 74
35移动，复制和删除单元格 74
36操作工作簿和工作表 75
37操作窗口（WINDOWS） 76
38管理EXCEL应用程序 76
39接下来…… 77
第三章 了解变量，数据类型和常量 77
1保存VBA语句的结果 77
2变量是什么 77
3数据类型 78
4如何产生变量 78
5如何声明变量 79
6明确变量的数据类型 80
7变量赋值 81
8强制声明变量 84
9了解变量范围 85
10过程级别（当地）变量 85
11模块级别变量 85
12工程级别变量 86
13变量的存活期 86
14了解和使用静态变量 86
15声明和使用对象变量 87
16使用明确的对象变量 88
17查找变量定义 88
18在VB过程里面使用常量 89
19内置常量 89
20接下来…… 90
第四章 VBA过程：子程序和函数 91
1.关于函数过程 91
2.创建函数过程 91
3.执行函数过程 92
4.从工作表里运行函数过程 93
5.从另外一个VBA过程里运行函数过程 94
6.传递参数 95
7.明确参数类型 96
8.按地址和按值传递参数 97
9.使用可选的参数 97
10.定位内置函数 98
11.使用MSGBOX函数 99
12.MSGBOX函数的运行值 103
13.使用INPUTBOX函数 104
14.数据类型转变 105
15.使用INPUTBOX方法 106
16.使用主过程和子过程 109
17.接下来…… 111
第五章 基于VBA做决定 111
1.关系和逻辑运算符 111
2.IF…THEN语句 112
3.基于多于一个条件的决定 114
4.THE IF…THEN…ELSE语句 115
5.IF…THEN…ELSEIF语句 118
6.嵌套的IF…THEN语句 119
7.SELECT CASE语句 120
8.和CASE子句一起使用IS 121
9.确定CASE子句里数值的范围 122
10.在CASE子句里确定多个表达式 123
11.接下来… 123
第六章 在VBA中重复操作 123
1.DO LOOPS: DO…WHILE和DO…UNTIL 123
2.观察过程执行 126
3.WHILE…WEND循环 127
4.FOR…NEXT 循环 128
5.FOR EACH…NEXT循环 129
7.提前跳出循环 130
8.循环嵌套 131
9.接下来… 131
第七章 利用VBA数组管理数据清单和表格 131
1.了解数组 132
2.声明数组 133
3.数组的上界和下界 133
4.在VBA过程里使用数组 134
5.数组和循环语句 135
6.使用二维数组 136
7.静态和动态数组 137
8.数组函数 139
9.ARRAY函数 139
10.ISARRAY函数 140
11.ERASE函数 140
12.LBOUND函数和UBOUND函数 141
13.数组中的错误 141
14.数组作为参数 143
15.接下来… 143
第八章 利用VBA操纵文件和文件夹 144
1.获取当前文件夹的名称（CURDIR函数） 144
2.更改文件或文件夹名称（NAME函数） 145
3.检查文件或文件夹是否存在（DIR函数） 145
4.获得文件修改的日期和时间（FILEDATETIME函数） 147
5.获得文件大小（FILELEN函数） 147
6.返回和设置文件属性（GETATTR函数和SETATTR函数） 147
7.更改缺省文件夹或驱动器（CHDIR语句和CHDRIVE语句） 149
8.创建和删除文件夹（MKDIR语句和RMDIR语句） 149
9.复制文件（FILECOPY语句） 149
10.删除文件（KILL语句） 151
11.从文件读取和写入数据（INPUT/OUTPUT） 151
12.文件访问类型 152
13.使用顺序文件 152
14.读取储存于顺序文件里的数据 152
15.逐行读取文件 152
16.从顺序文件中读取字符 153
17.读取分隔文本文件 155
18.往顺序文件里写数据 155
19.使用WRITE # 和PRINT # 语句 156
20.操作随机文件 157
21.创建用户定义的数据类型 157
22.操作二进制文件 161
23.操作文件和文件夹的时髦方法 162
24.使用WSH获取文件信息 164
25.FILESYSTEMOBJEC的方法和属性 165
26.对象FILE的属性 168
27.文件夹对象属性 169
28.驱动器对象属性 169
29.使用WSH创建文本文件 170
30.使用WSH进行其它操作 172
31.运行其它应用程序 172
32.创建快捷方式 173
33.接下来…… 174
第九章 利用VBA控制其它应用程序 174
1.启动应用程序 174
2.在应用程序之间切换 177
3.控制其它应用程序 177
4.控制应用程序的其它方法 179
5.了解自动控制 179
6.了解链接和嵌入 180
7.使用VBA进行链接和嵌入 181
8.COM和自动控制 182
9.了解绑定 182
10.后期绑定 182
11.早期绑定 182
12.建立到对象库的引用 183
13.创建自动控制对象 184
14.使用CREATEOBJECT函数 184
15.使用自动控制创建一个新的WORD文档 185
16.使用GETOBJECT函数 185
17.打开存在的WORD文档 186
18.使用关键字NEW 187
19.使用自动控制访问MICROSOFT OUTLOOK 188
20.接下来…… 189
第十章 对话框和自定义窗体 189
1.文件打开和另存为对话框 192
2.GETOPENFILENAME和GETSAVEASFILENAME方法 196
3.创建窗体 197
4.创建用户窗体的工具 199
5.标签 200
6.文字框 200
7.框架 200
8.选项按钮 201
9.复选框 201
10.切换按钮 201
11.列表框 201
12.复合框 201
13.滚动条 201
14.旋转按钮 201
15.图像 201
16.多页控件 202
17.TABSTRIP控件 202
18.REFEDIT控件 202
19.在窗体上放置控件 202
20.应用程序示例1：信息调查 202
21.在窗体上添加按钮、选项框和其它控件 204
22.更改控件名称 206
23.设置其它控件属性 206
24.准备工作表以储存窗体数据 207
25.显示自定义窗体 208
26.设置TAB顺序 208
27.了解窗体和控件事件 209
28.编写VBA过程对窗体和控件事件反应 211
29.编写过程来初始化窗体 211
30.编写过程填充列表框控件 213
31.编写过程控制选项按钮 213
32.编写过程同步文字框和旋转按钮 214
33.编写过程关闭用户窗体 214
34.转移窗体数据到工作表 215
35.使用INFO SURVEY应用程序 216
36.应用程序示例2：学生和考试 216
37.使用多页和TABSTRIP控件 216
38.给窗体STUDENTS AND EXAMS自定义窗体编写VBA过程 218
39.使用自定义窗体STUDENTS AND EXAMS 223
40.接下来…… 225
第十一章 自定义集合和类模块 225
1.使用集合 226
2.声明自定义集合 227
3.给自定义集合添加对象 227
4.从自定义集合移出对象 228
5.创建自定义对象 229
6.创建类 229
7.变量声明 229
8.定义类的属性 230
9.创建PROPERTY GET过程 230
10.创建PROPERTY LET过程 231
11.创建类方法 232
12.创建类的示例 232
13.类模块里的事件过程 232
14.创建用户界面 233
15.观察VBA过程的执行 242
16.接下来…… 245
第十二章 使用VBA创建自定义菜单和工具栏 245
1.工具栏 245
2.创建自定义工具栏 247
3.删除自定义工具栏 249
4.使用COMMANDBAR的属性 249
5.使用COMMANDBAR控件 249
6.理解和使用控件属性 251
7.控件方法 253
8.使用菜单 254
9.菜单编程 256
10.创建子菜单 258
11.修改内置快捷菜单 260
12.创建快捷菜单 262
13.接下来…… 264
第十三章 调试VBA过程和处理错误 264
1.测试VBA过程 265
2.终止过程 265
3.使用断点 266
4.在中断模式下使用立即窗口 269
5.使用STOP语句 271
6.添加监视表达式 271
7.清除监视表达式 274
8.使用快速监视 274
9.使用本地窗口和调用堆栈对话框 275
10.逐句运行VBA过程 276
11.逐句运行过程 277
12.逐过程执行过程 277
13.设置下一条语句 278
14.显示下一条语句 279
15.终止和重新设置VBA过程 279
16.了解和使用条件编译 279
17.操纵书签 281
18.捕捉错误 281
17.接下来…… 285
第十四章 微软EXCEL 2002 中的事件编程 285
1.事件过程介绍 285
2.激活和失活事件 287
3.事件次序 289
4.工作表事件 289
5.工作簿事件 294
6.图表事件 312
7.内嵌图表事件 316
8.可为应用软件对象识别的事件 317
9.查询表时间 320
10.接下来…… 323
第十五章 在EXCEL里使用ACCESS 323
1.对象库 323
2.建立对对象库的引用 329
3.链接到ACCESS 329
4.使用AUTOMATION链接到ACCESS数据库 331
5.使用DAO链接到ACCESS数据库 334
6.使用ADO链接到ACCESS数据库 334
7.从EXCEL执行ACCESS任务 336
8.创建新ACCESS数据库 336
9.打开ACCESS窗体 338
10.打开ACCESS报表 343
11.运行ACCESS查询 345
12.运行选择查询 347
13.运行参数查询 348
14.调用ACCESS函数 350
15.获取ACCESS数据到EXCEL工作表 350
16.使用GETROWS方法获取数据 350
17.使用COPYFROMRECORDSET方法获取数据 354
18.使用TRANSFERSPREADSHEET方法获取数据 354
19.使用OPENDATABASE方法 356
20.从ACCESS数据创建文本文件 360
21.从ACCESS数据创建查询表 363
22.在EXCEL里使用ACCESS数据 365
23.用ACCESS数据创建内嵌图表 365
24.传输EXCEL电子表格到ACCESS数据库 367
25.将EXCEL电子表格链接到ACCESS数据库 369
26.将EXCEL电子表格导入ACCESS数据库 370
27.放置EXCEL数据到ACCESS表中 370
28.接下来…… 374
2022-12-19 02:32:48
6.08MB
1