使用复制范围方法获取运行时错误 1004

Question

说明：我想做的是允许用户通过浏览 select excel 文件，然后从 selected 文件中的 Sheet3 复制数据并粘贴到当前工作簿 Sheet2（名称为 Raw data(STEP 1)).

我的问题是：

runtime error 1004 application-defined or object-defined error

这条线ActiveSheet.Range("A2:3063").Copy

我的完整代码：

Private Sub OpenWorkBook_Click()

Dim myFile As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False

myFile = Application.GetOpenFilename(Title:="Browse your file", FileFilter:="Excel Files(*.xls*),*xls*")

If myFile <> False Then
    Set OpenBook = Application.Workbooks.Open(myFile)
    OpenBook.Sheets(3).Activate
    ActiveSheet.Range("A2:3063").Copy
    ThisWorkbook.Worksheets("Raw data(STEP 1)").Range("A3").PasteSpecial xlPasteValues
    OpenBook.Close True
End If

Application.ScreenUpdating = True

End Sub

Answer 1

您的范围地址无效。可能你的意思是 ActiveSheet.Range("A2:A3063")

您应该阅读以了解如何在不使用 Activate（或 Select）的情况下处理工作表和范围

使用复制范围方法获取运行时错误 1004

Getting Runtime Error 1004 using Copy Range method

excel

vba

copy

range

getopenfilename