...一个工作薄里的多个工作表导入到另一个excel文档工作表里?_百度知 ...
发布网友
发布时间：2022-08-26 20:20
共1个回答
热心网友
时间：2024-07-24 23:58
Sub 导入()
drfile = InputBox("请输入要导入的excel文件名(不包含扩展名):", "输入")
drfile = drfile & ".xls"
Workbooks.Open ThisWorkbook.Path & "\" & drfile
drcount = Workbooks(drfile).Sheets.Count
For i = 1 To drcount
With Workbooks(drfile)
.Sheets(i).Copy after:=ThisWorkbook.Sheets(Sheets.Count)
End With
Next
Workbooks(drfile).Close False
End Sub
