导读Sub合并多个工作簿的sheet1为一个工作表()，接下来我们就来聊聊关于excel多个表合并为一个工作簿?以下内容大家不妨参考一二希望能帮到您!excel....

Sub 合并多个工作簿的sheet1为一个工作表()，接下来我们就来聊聊关于excel多个表合并为一个工作簿?以下内容大家不妨参考一二希望能帮到您!

excel多个表合并为一个工作簿

Sub 合并多个工作簿的sheet1为一个工作表()

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)

newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xlsx", "")

tempwb.Close SaveChanges:=False

i = i 1

Next vrtSelectedItem

End If

End With

Set fd = Nothing

End Sub