導讀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