如何快速合并多个excel文件?
利用VBA方法:1。 将需合并的excel文件放在同一个文件中,并这个文件中新建一个excel文件2。 打开新建的excel文件,按alt + f11建,打开宏,新建一个模组,将下面的代码拷贝进去,并保存。 Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application。FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks。 Add ...全部
利用VBA方法:1。 将需合并的excel文件放在同一个文件中,并这个文件中新建一个excel文件2。 打开新建的excel文件,按alt + f11建,打开宏,新建一个模组,将下面的代码拷贝进去,并保存。
Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application。FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks。
Add With fd If 。Show = -1 Then '定义单个文件变量 Dim vrtSelectedItem As Variant '定义循环变量 Dim i As Integer i = 1 '开始文件检索 For Each vrtSelectedItem In 。
SelectedItems '打开被合并工作簿 Dim tempwb As Workbook Set tempwb = Workbooks。
Open(vrtSelectedItem) '复制工作表 tempwb。Worksheets(1)。
Copy Before:=newwb。Worksheets(i) '把新工作簿的工作表名字改成被复制工作簿文件名,这儿应用于xls文件,即Excel97-2003的文件,如果是Excel2007,需要改成xlsx newwb。
Worksheets(i)。Name = VBA。Replace(tempwb。Name, "。xls", "") '关闭被合并工作簿 tempwb。
Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set fd = NothingEnd Sub 3。
打开刚保存的excel文件,工具 - 巨集 - 巨集 - 选择刚建立的巨集(只有一个) - 执行 - 选择所有需要合并到新建的excel文件中的所有excel文件。收起