求助！！急急急！！！多个excel表格合并，VBA程序出问题

yangfengjun

原代码如下： 出错原因：多个EXCEL表格合并成一个表格的时候，用下面的代码进行合并。为什么一张表格里面有50行，但合并的表格只有30行？ 求助：求助高手帮忙看看下面的代码哪里出了问题？（这个代码也是复制的，本人看不懂代码） 急急急！！！非常谢谢！ Sub HzWb()     Dim bt As Range, r As Long, c As Long     r = 1   '1 是表头的行数     c = 60   '8 是表头的列数     Range(Cells(r + 1, "A"), Cells(1048576, c)).ClearContents    ' 清除汇总表中原表数据     Application.ScreenUpdating = False     Dim FileName As String, wb As Workbook, Erow As Long, fn As String, arr As Variant     FileName = Dir(ThisWorkbook.Path & "\*.xls")     Do While FileName <> ""         If FileName <> ThisWorkbook.Name Then    ' 判断文件是否是本工作簿             Erow = Range("A4").CurrentRegion.Rows.Count + 1    ' 取得汇总表中第一条空行行号             fn = ThisWorkbook.Path & "\" & FileName             Set wb = GetObject(fn)    ' 将fn 代表的工作簿对象赋给变量             Set sht = wb.Worksheets(1)    ' 汇总的是第1 张工作表             ' 将数据表中的记录保存在arr 数组里              arr = sht.Range(sht.Cells(r, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 60))             ' 将数组arr 中的数据写入工作表             Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr         Cells(Erow, "A").Resize(UBound(arr, 1), 1) = FileName             wb.Close False         End If         FileName = Dir    ' 用Dir 函数取得其他文件名，并赋给变量     Loop     Application.ScreenUpdating = True End Sub

zyg365

请上传附件