将要合并的文件放在一个文件夹中,本人提供一段代码,可以将选定的文件拷贝到一个指定文件中,可以大大减轻您的负担。希望能帮到您。
新建个excel,添加个按钮,将代码复制进去,会将每个工作簿的第一张表格复制到一个新文件里保存。
Sub 合并所选工作簿的第一张工作表()
Dim filefullname, temp_work As Workbook, temp_sheet, tag_work
Dim x
Dim nb_sheet, name
ChDrive Left(ThisWorkbook.Path, 1)
ChDir ThisWorkbook.Path
Do
filefullname = Application.GetOpenFilename("Excel文件,*.xlsx,Excel文件,*.xls", 1, MultiSelect:=True)
If TypeName(filefullname) = "Boolean" Then
If MsgBox("未打开文件,是否重试?", vbRetryCancel, "汇总程序") <> vbRetry Then
MsgBox "未选定,退出程序。", vbInformation, "汇总程序"
End
End If
End If
Loop Until TypeName(filefullname) <> "Boolean"
Set tag_work = Application.Workbooks.Add
Application.ScreenUpdating = False
For x = 1 To UBound(filefullname)
Set temp_work = Workbooks.Open(Filename:=filefullname(x), UpdateLinks:=False)
temp_work.Sheets(1).Copy before:=tag_work.Sheets(1)
name = Split(Dir(filefullname(x)), ".")
Sheets(1).name = name(0)
temp_work.Close False
Next x
tag_work.SaveAs ThisWorkbook.Path & "\" & InputBox("请输入要保存的文件名称") & ".xlsx"
tag_work.Close
Application.ScreenUpdating = True
end sub
祝您一切顺利。(注意:选的文件可以是xls,xlsx文件,保存为xlsx文件)
追问您好!您的回答似乎不是我想要的结果,但还是非常感谢您的热情帮助,祝您及家人身体健康平安,事业步步高、财源滚滚来!:)