excel 合并文件 vba

Sub Macro2() Dim dlgOpen As FileDialog Dim OpenedFile As Workbook Dim FilesToOpen Dim count(1 To 5) As Integer Dim sheetcount As Integer count(1) = 2 count(2) = 2 count(3) = 2 count(4) = 2 count(5) = 2 '打开文件对话框，可以多选 Set dlgOpen = Application.FileDialog(msoFileDialogOpen) With dlgOpen .AllowMultiSelect = True .InitialFileName = "*.xls" .Show End With If dlgOpen.SelectedItems.count = 0 Then Exit Sub Dim index As Integer For index = 1 To dlgOpen.SelectedItems.count '对多个文件循环 Set OpenedFile = Workbooks.Open(Filename:=dlgOpen.SelectedItems.Item(index)) sheetcount = 3 '每个文件中的sheet的数量 Do '处理文件中的多个sheet With OpenedFile .Sheets("Sheet" & sheetcount).Activate Row = 1