VBA: откройте файл xls и добавьте его в текущую книгу

Question

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

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

Set src = Workbooks.Open(Filename:="thefile.xlsx")

Range("F4:F67").Copy
ThisWorkbook.Activate
Sheets("Result").Activate
Range("A1").Select
ActiveSheet.Paste

Я ценю любую помощь с этим.

Спасибо

Answer 1

Вот простое решение, которое не требует .Select или .Activate.

Sub getSheetFromA()
    getSheet "a.xls", 1
End Sub

Sub getSheet(filename As String, sheetNr As Integer)
    Dim srcWorkbook As Workbook

    Set srcWorkbook = Application.Workbooks.Open(filename)
    srcWorkbook.Worksheets(sheetNr).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

    srcWorkbook.Close
    Set srcWorkbook = Nothing
End Sub

Answer 2

Я нашел решение:

Set src = Workbooks.Open(Filename:="file.xlsx")
Cells.Copy

ThisWorkbook.Activate
Sheets("Result").Activate
Range("A1").Select
ActiveSheet.Paste