excel不同文件表格批量加表头vba_EXCEL VBA 对多个表格进行批量汇总实例

因为是VBA 新手，程序是自己编的，有一些明显不完善的地方，就拿出来和大家分享交流学习吧。

觉得还能看，大家就多多回复捧场就好

程序说明：

现有600xxx-600xxx的两个文件夹的文件。文件夹一中，文件名为“现任管理层[600xxx.SH].xls"，文件二中为”离任高管[600xxx.SH].xls"

现希望：

1 将现任管理层的表格中A列前添加一列并填写“现任管理层”字样，添加一列输入股票代码；离任高管的表格中类同

2 批量汇总上述两个文件夹中修改后的内容到一个表格内

缺点：

文件命名需要有规律，此处为数字的递增规律，同时，因为有断点所以数字不连续的地方需要分开进行两次程序操作。

有好的地方的话大家可以借鉴，可以改进的地方望各位不吝赐教，多谢！

Public Sub huizong()

t =1

Range("a1").Select

Fori = 600350 To 600590

d1 ="D:\常使用文件\Documents\Downloads\现任管理层[" & Str(i) & ".SH].xls"

arr1= Split(d1, " ")

d =arr1(0) & arr1(1)

Workbooks.Open d

a1= "D:\常使用文件\Documents\Downloads\离任高管[" & Str(i) & ".SH].xls"