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