如何用VBA将一个工作薄里的多个工作表导入到另一个excel文档工作表里？

Answer 1

下面的代码是导入指定工作薄的所有工作表
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