Как я могу скопировать один лист из открытой книги в закрытую книгу?

Question

У меня есть рабочая книга, которая открывается в форме, пользователь сканирует штрих-код, а форма закрывает и закрывает Excel.

Я хочу скопировать один лист («STOREDATA») в открытую рабочую книгу (сканер. xlsm) до закрытия закрытой рабочей книги (REPORT.xlsx) в том же каталоге. Не имеет значения, открывает ли он закрытую книгу, пока закрывает ее.

Answer 1

Это было бы довольно простым заданием.

Откройте книгу, сделайте копию, сохраните ее, затем закройте ее.

Sub copySheetToReport()

    With Application.Workbooks.Open("REPORT.xlsx")

        ThisWorkbook.Worksheets("STOREDATA").Copy after:=.Sheets(.Sheets.Count)
        .Save
        .Close

     End With

End Sub

Это поместит скопированный лист в самый конец.