我想多表合并成一个表！急啊！

dribblemashine

现在有多个工作表，表头都是一样的，我想把它们合并在一个表里。在网上找到了一个代码http://jingyan.baidu.com/article/f0062228d16ba9fbd3f0c82b.html也按照要求把所有的工作表放在了一个文件夹里，并新建了工作表，输入了代码
但是没有任何反应。代码如下：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

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("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

请高人看下，怎么调整？

急！

dribblemashine

朱荣兴 发表于 2015-11-28 01:17
你需要合并的工作薄的后缀为xlsx
但是你的这句代码中的文件后缀却为xls
MyName = Dir(MyPath & "\" & "*. ...

试了，不管用
昨天也奇怪了，换了台电脑，不管是xls还是xlsx都可以合并了 今天一早一看又不行了....奇怪