excel - VBA_让粘贴的下标超出范围无法找出错误

Question

构建这个 VBA

Sub Get_Data()
    Dim FileToOpen As Variant
    Dim OpenBook As Workbook
    
    Application.ScreenUpdating = False
    
    
    FileToOpen = Application.GetOpenFilename(Title:="Browse for your file & import Range")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
    
            OpenBook.Sheets(1).Range("A2:T30000").Copy
  
         Workbooks("Network\file\Copy of Generic Open Order Report by Sku_Macro - Copy.xlsx").Worksheets(2).Range(A2).Value
        
        
       
        OpenBook.Close False
    End If
        Application.ScreenUpdating = True
End Sub

但是不断收到粘贴错误或下标超出范围，它一直工作到粘贴行。任何帮助都会很棒。

标签： excelvbacopy-pastesubscript