运行报错，提示下标越界。

pop2009

请版主帮忙看看，运行后提示下标越界。谢谢啦
Sub 导入数据()
For Each wb In Application.Workbooks
If wb.Name <> ThisWorkbook.Name Then wb.Saved = False: wb.Close True
Next
    Application.ScreenUpdating = False
    With GetObject(ThisWorkbook.Path & "\123.xlsx")
        .Sheets("sheet2").Range("A2:A52").Copy ThisWorkbook.Sheets("sheet").[L4:L54]
     .Close False
    End With
Application.ScreenUpdating = True
Call MsgBox("获取数据成功，请再次核查确认！", vbOKOnly, "操作提示")
End Sub

无敌小猪猪

没有文件猜一下这个表名有问题？

ykcbf1100

这个代码AI的吧。看上去就怪怪的。
求助最好上传附件，这样能够快速解决问题。

pop2009

ykcbf1100 发表于 2024-4-2 10:01
这个代码AI的吧。看上去就怪怪的。
求助最好上传附件，这样能够快速解决问题。

已上传附件，请高手帮忙，谢谢！

ykcbf1100

pop2009 发表于 2024-4-2 10:32
已上传附件，请高手帮忙，谢谢！

123工作簿无法打开。重新上传一下。

pop2009

ykcbf1100 发表于 2024-4-2 10:54
123工作簿无法打开。重新上传一下。

附件已重新上传，请帮忙再看一下，谢谢！

ykcbf1100

pop2009 发表于 2024-4-2 10:58
附件已重新上传，请帮忙再看一下，谢谢！

重写了一个，你的代码copy方向都错了。

ykcbf1100

参与一下。。。。

1. Sub ykcbf()   '//2024.4.2
   
2.     Application.ScreenUpdating = False
   
3.     p = ThisWorkbook.Path
   
4.     Set sh = ThisWorkbook.Sheets("Sheet2")
   
5.     f = p & "\123.xlsx"
   
6.     Set wb = Workbooks.Open(f, 0)
   
7.     With wb.Sheets(1)
   
8.         arr = .UsedRange
   
9.         wb.Close False
   
10.     End With
    
11.     ReDim brr(1 To UBound(arr), 1 To 1)
    
12.     For i = 4 To UBound(arr)
    
13.         m = m + 1
    
14.         brr(m, 1) = arr(i, 12)
    
15.     Next
    
16.     With sh
    
17.         .UsedRange.Offset(1) = ""
    
18.         .[a2].Resize(m, 1) = brr
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "OK！"
    
22. End Sub
    
23. 
    

复制代码

pop2009

ykcbf1100 发表于 2024-4-2 11:06
重写了一个，你的代码copy方向都错了。

太感谢您了，继续学习vba，不明白再请教。