Question

急求答案！用代码合并多个excel表的时候出现【运行时错误‘1004’】【应用程序定义或对象定义错误】

请问怎么解决！急我复制了百度上的这段代码之前有试过没问题的，这次合并别的excel的时候出问题了Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub就是这段截图是合并失败的弹出窗口麻烦大神解答，谢谢！！

Answer 1

F8单步执行，跟踪出错的代码行，定位后才便于分析和修正

追问

用F8操作了，这咋的好像第一行就错了诶

追答

Num = Num + 1
这句也是正常语句，不可能有错。

追问

那不知道为啥到这句就会弹出一个文档了。。完全不知道哪里错了

啊我多点了几步以后说我文档里面有合并单元格的，不能进行合并，请问我的代码可以怎么改一下呢？

追答

程序没有错，合并单元格影响了程序。

追问

嗯嗯有没有办法让程序继续运行呢？

追答

简单的办法的取消合并。

复杂点的就是优化代码，需要自己先学懂。

追问

优化代码简单点的，我文档有200多了现在，没法一个个取消合并，请问你能帮忙看下怎么优化吗？我没学懂。。

追答

我可能能学懂，但是三五分钟肯定做不到（你的代码确实太乱了），你可以【百度云盘】（一个使用百度账户登录的可以对话和传送文件的应用）传文件给我，我试试看。你不可能让我看你的图在我的电脑上输入代码、修改吧。传文件的东西是这个：

Answer 2

检测出错的文件吧！

追问

有直接弹出出错的文档，我把那几个挪出文件夹继续试，还是有出错的文档，就是不会一下子都弹出来，都定位不到是哪几个文档的问题，每次挪出来再试就还是有出错，一共将近200个文档，手动整合会心态爆炸了。。

追答

这个得具体用你的文件测试才能分析了！