还是接着刚才的问题，VBA，一个工作簿有多个工作表，多个文件分别考入这些工作表中，刚才的公式怎么改？

显示全部楼层 · 2011-6-23 11:45:30

千问 · 2011-6-23 11:45:30

SubMacro1()
\'
Application.DisplayAlerts=False
wndname=ActiveWorkbook.Name
dirname=\"e:\\1234\\\"
fln=Dir(dirname)
i=1
DoWhilefln\"\"
Workbooks.OpenFilename:=dirnamedefds123fln
shu=Sheets.Count
Fori=1Toshu
Workbooks(fln).Activate
Sheets(i).Select
Cells.Select
Selection.Copy
Windows(wndname).Activate
SetNewSheet=Worksheets.Add
ActiveSheet.Paste
Next
Workbooks(fln).Activate
ActiveWindow.Close
fln=Dir
Loop
Application.DisplayAlerts=True
EndSub

<h4class=\"ask\">追问

晕，没有显示，也没有报错。郁闷。

千问 · 2011-6-23 11:45:30

注意你的文件所在位置，我在代码中设定的是\"e:\\1234\\\"
你可根据实际修改。

千问 · 2011-6-23 11:45:30

修改过了，我注意到了。

千问 · 2011-6-23 11:45:30

这个代码要放在“用户模块”中，否则不能正常运行。
我调试过的，运行很正常，如果你还感觉有问题，我可以把做好的给你发过去。

千问 · 2011-6-23 11:45:30

哦可以运行了，虽然和我说的有点出入，但很有参考价值，最后问下shu=Sheets.Count
是做什么用的？

千问 · 2011-6-23 11:45:30

是多个工作簿拷贝到一个工作簿的不同工作表中