VBA案例3:合并多个结构相同的文件
来源:互联网 发布:织梦cms源码分析 编辑:程序博客网 时间:2024/06/05 03:24
有多个结构相同的文件,需要合并到一张表中,
如截图中一个文件夹中的文件1、文件2,合并为最终的输出结果:
其结构均相同,如下:
合并后的结构也是如此。
合并提示如下:
程序代码:
程序代码:
Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim str As String
Dim strr As String
Dim Str2 As String
Dim cot As Variant
Dim cot1 As Variant
Dim dic As Object
Dim temp
Sheet1.Cells.ClearContents
Application.ScreenUpdating = False
Application.DisplayAlerts = False
temp = ThisWorkbook.Path
objectname = ThisWorkbook.Name '目标文件名
Set fso = CreateObject("Scripting.filesystemobject") '取目标文件
Set myf = fso.getfolder(temp)
c = 0
On Error Resume Next '有错继续
For Each i In myf.Files '开始打开文件
If Right(i.Name, 7) <> Right(objectname, 7) Then '防止重新打开文件打开有重名
Str2 = i.Path
Set wb = GetObject(Str2)
r0 = Sheet1.Range("a65536").End(xlUp).Row '合并的文件行数
c = c + 1
With wb.Sheets(1)
r1 = .Range("a65536").End(xlUp).Row '数文件的行数
c1 = .Range("A1").End(xlToRight).Column '数文件的列数
If c = 1 Then '只有第一个文件取标题
Sheet1.Cells(r0, 1).Resize(r1, c1).Value = .Cells(1, 1).Resize(r1, c1).Value
Else
Sheet1.Cells(r0 + 1, 1).Resize(r1 - 1, c1).Value = .Cells(2, 1).Resize(r1 - 1, c1).Value
End If
End With
End If
wb.Close savechanges:=False
Set wb = Nothing
Next i
MsgBox "成功合并" & c & "个文件"
End Sub
- VBA案例3:合并多个结构相同的文件
- C# DataTable 合并多个相同结构 的 datatable
- C# 合并多个结构相同的DataTable
- C# DataTable 合并多个相同结构 的 datatable
- 使用VBA合并多个Excel文件
- excel 多个文件合并,字段相同
- 通过VBA将多个格式相同的Excel文件合并成一个文件,带文件处理
- VBA案例10:其他案例(自动填写公式、合并多个sheet等)
- 合并结构相同,不同,或多个DataTable
- 如何合并两个结构相同的mdb文件?
- EXCEL VBA 跨表合并多个文件
- VBA 合并多个excel
- 使用VBA实现Excel合并相同内容的相邻单元格
- 多个DataTable表合并(相同结构与不同结构)
- 合并结构相同的表的方法
- VBA合并多个excel表
- Linq to DataTable 合并结构相同的 个DataTable 且已重复的行不合并
- Linq to DataTable 合并结构相同的 个DataTable 且已重复的行不合并
- VBA案例4:取文件夹中所有文件的名称
- VBA案例6:实现单元格合并及去掉单元格合并
- VBA案例7:自动生成透视表
- VBA案例10:其他案例(自动填写公式、合并多个sheet等)
- Visual Studio 2017 发布 15.5 版本,百度网盘离线安装包下载。
- VBA案例3:合并多个结构相同的文件
- 洛谷P2234 [HNOI2002]营业额统计_Splay
- Python基础知识6:格式化字符、颜色
- Boosting:AdaBoost分模块python实现
- python数据分析及处理案例技巧11-20(基于jupyter)
- python数据分析及处理案例技巧1-10(基于jupyter)
- 朴素贝叶斯案例2:拼写纠错(python实现)
- Struts2+Spring3+MyBatis3整合以及Spring注解开发
- 概率论与数理统计1:基础知识