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
,