Как скопировать диапазон ячейки из другой рабочей книги и вставить ее в другую?

Question

Мне нужно обновлять мой основной файл каждый раз, когда третье лицо отправляет мне обновленную версию своего ввода. Поэтому мне нужно скопировать и вставить диапазон этого нового ввода в сохраненную книгу на моем компьютере. Диапазон должен включать все столбцы и все строки, если значение в столбце A больше 0. Например, на рисунке ниже от A1 до A45.

введите описание изображения здесь

Я нашел способ выделить строки и остановиться на первом нуле. Я положил формулу суммы-произведения на сторону, которую я называю в своем коде i.

Пока у меня есть этот код:

У меня есть ошибка в строке Set wb2 = Workbooks («20200403 Selina - Loanbook V2.09 (1) .xls»)

Я не могу это исправить ... Я пробовал ThisWorkbook, но ничего, у вас есть идеи?

Дайте мне знать:)

Антуан

Sub CopyPaste()

    Dim wb1 As Workbook
    Dim wb2 As Workbook

    'Open Workbook from Pepper

    Set wb1 = Workbooks.Open("G:\Shared drives\Reporting\Power BI Source Files- DO NOT TOUCH\Pepper Automation\Accounts latest\Accounts updated\Accounts_latest.xlsx")

    'Copy Range (Column A to BW - all filled rows)
    Dim i As Integer
    i = Worksheets("Accounts_latest").Range("CA1").Value
    wb1.Worksheets("Accounts_latest").Range("A1:BW" & i).Copy

    'Paste to worksheet in workbook2:
    Set wb2 = Workbooks("20200403 Selina - Loanbook V2.09 (1).xls")
    wb2.Activate
    wb2.Sheets("Pepper Accounts RAW").Range("A1").PasteSpecial Paste:=xlPasteValues
    Range("A1").Select

    'Close workbook
    wb1.Close savechanges:=True
    Application.DisplayAlerts = True

End Sub

Answer 1

как то так

Set wb2 = Workbooks.Open("20200403 Selina - Loanbook V2.09 (1).xls")


wb2.Close savechanges:=True