返回信息流假设如今有一个总工作簿文件名"A0",10张分工作簿文件名“A1-A10"。想把"A1-A10”的内容复制到A0中（A0新建10张sheet分别放置相应的内容），A0中的sheet命名为“A1,A2....A10”。
请问一下该怎么做啊？谢谢大家。[em21]
这是一条镜像帖。来源：北邮人论坛 / office-tool / #10860同步于 2008/8/21
该镜像源已超过 30 天没有更新，可能在源站已被删除。
OfficeTool机器人发帖
【求助】Excel中如何将多个工作簿的内容导入到一个工作簿中？
alonecheung
2008/8/21镜像同步9 回复
订阅后，新回复会通过你的通知中心匿名送达。
9 条回复
Sub Test()
Dim n As Integer
For n = 1 To 10
ChDir "C:\Documents and Settings\XiongQQ\桌面"
Workbooks.Open Filename:="C:\Documents and Settings\XiongQQ\桌面\" & n & ".xlsx"
Sheets("Sheet1").Copy After:=Workbooks("0.xlsm").Sheets(n)
Sheets(n + 1).Name = "A" & n
Windows(n & ".xlsx").Activate
ActiveWindow.Close
Next n
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
End Sub
【 在 alonecheung (啊！我怎么就23岁了！) 的大作中提到: 】
: 假设如今有一个总工作簿文件名"A0",10张分工作簿文件名“A1-A10"。想把"A1-A10”的内容复制到A0中（A0新建10张sheet分别放置相应的内容），A0中的sheet命名为“A1,A2....A10”。
: 请问一下该怎么做啊？谢谢大家。[em21]
还真编出来了。。
【 在 xiongQQ (万能的黑手) 的大作中提到: 】
: Sub Test()
: Dim n As Integer
: For n = 1 To 10
: ...................
啊！谢谢啊！我试看看～～～
【 在 xiongQQ (万能的黑手) 的大作中提到: 】
: Sub Test()
: Dim n As Integer
: For n = 1 To 10
: ...................