Я пытаюсь скопировать данные между двумя книгами, которые уже существуют, но это не сработало. Я не знаю, как написать код, не открывая два файла каждый раз, когда я запускаю макрос.

Sub CopyRangeToAnotherSheet()
Dim wbTarget As Workbook
Dim wbThis As Workbook 

With Application
     .ScreenUpdating = False
     .EnableEvents = False
End With

Set wbThis = ActiveWorkbook

Set wbThis = Workbooks.Open("C:\...\WB.xlsx")
Sheets("Trial Balance").Range("B9:H62").Copy

Set wbTarget = ThisWorkbook
wbTarget.Sheets("Balance Sheet").Range("CK5").PasteSpecial Paste:=xlPasteValues

End Sub

0