如何比較兩個工作簿

Question

我想比較具有不同工作表的兩個工作簿，如何將其設置為工作簿1-> Sheet1，workbook2 --->（sheet1）的對象

我可以比較同一工作簿中的工作表，但是好像我要選擇工作表“ getopenfilename”一樣。 我如何將名稱分配為對象。

碼：

Dim tabWb As Workbook            'Workbook2
Dim tabWS As Worksheet           'analysing worksheet
Filename = Application.GetOpenFilename("Excel files (*.xls*),*.xl*", Title:="Open data")
Set wb = ActiveWorkbook
Set tabWS = Sheets("Tabelle1")


Dim bsmWS As Worksheet      ' workbook1
Set bsmWS = Sheets("Sheet1") ' currentworksheet

Workbook1（sheet1）是我當前的工作簿和工作表，我想從另一個workbook2（sheet1）獲取一些數據。 如何為兩個工作表創建對象。我在“ set bsmws”中遇到編譯失敗

Answer 1

Sub test()

    Dim strFileName as String
    Dim wbTarget As Workbook
    Dim wbSource As Workbook
    Dim wsTarget As Worksheet
    Dim wsSource As Worksheet

    strFileName = Application.GetOpenFilename("Excel files (*.xls*),*.xl*", Title:="Open data")

    Set wbSource = ThisWorkbook
    Set wbTarget = Workbooks.Open(strFileName)

    Set wsSource = wbSource.Worksheets("Sheet1")
    Set wsTarget = wbTarget.Worksheets("Sheet1")

    'to copy from Target - > Source

    wsTarget.Range("B2").Resize(5, 5).Copy wsSource.Range("B2")

    'etc.

End Sub