练习合并工作簿错误1004

sxo

1. Sub 合并工表()
   
2.     Application.ScreenUpdating = False
   
3.     Dim filename As String, sht As Worksheet, wb As Workbook, arr As Variant
   
4.     Dim endrow As Long, tosht As Worksheet, torng As Range
   
5.     Set tosht = ThisWorkbook.Worksheets(1)
   
6.     Set torng = tosht.Range("A1048576").End(xlUp).Offset(1, 0)
   
7.     filename = Dir("D:\1\*.xls?")
   
8.     Do While filename <> ""
   
9.        Workbooks.Open filename:="D:\1" & filename
   
10.        Set wb = ActiveWorkbook
    
11.        Set sht = wb.Worksheets(1)
    
12.        endrow = sht.Range("A1048576").End(3).Row
    
13.        arr = sht.Range("A1").Resize(endrow - 1, 9).Value
    
14.        wb.Close savechanges:=False
    
15.        torng.Resize(UBound(arr, 1), 9).NumberFormatLocal = "@"
    
16.        torng.Resize(UBound(arr, 1), 9).Value = arr
    
17.        torng.Resize(UBound(arr, 1), 9).EntireColumn.AutoFit
    
18.        filename = Dir
    
19.     Loop
    
20.     Application.ScreenUpdating = True
    
21. End Sub
    

复制代码

蓝桥玄霜

建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。