如何将excel中多个工作簿(sheet)合并到一个工作簿里

来源：百度知道 编辑：UC知道 时间：2024/06/17 20:40:33
不要那种选择复制粘贴的，都需要哪些选项或者设置能把多了工作簿（sheet)合并到一张工作簿（sheet),麻烦大家提供详细的解释说明，本人比较白目，十分感谢了
问下2楼的,VBA在excel能找到么，我用的是2003的，没有找到这个函数，另外你发的那堆代码应该在哪里输入呢，不好意思，我不太明白，谢谢了

打开工作簿，按ALT+F8，在“宏名”里输入字符，如“ABC”。

然后单击“创建”。

会看到如下字符“：

Sub ABC()

End Sub

在两行中间复制进代码，

然后运行即可。

用VBA。 

这个问题以前好像回答过，代码如下： 

Application.ScreenUpdating = False 

MyPath = ActiveWorkbook.Path 

MyName = Dir(MyPath & "\" & "*.xls") 

AWbName = ActiveWorkbook.Name 

Num = 0 

Do While MyName <> "" 

If MyName <> AWbName Then 

Set Wb = Workbooks.Open(MyPath & "\" & MyName) 

Num = Num + 1 

With Workbooks(1).ActiveSheet 

.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) 

For G = 1&nb