Описание. Что я пытаюсь сделать, так это позволить пользователю выбрать файл excel с помощью просмотра, затем скопировать данные из Sheet3 в выбранный файл и вставить в текущую книгу Sheet2 (которое называется Raw data (STEP 1)).
Моя проблема в том, что я получаю:
ошибка времени выполнения 1004 ошибка, определяемая приложением или объектом
в этой строке 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
