如何比較兩個工作簿

Question

我喜歡比較兩個工作簿與不同片材，如何可以設定爲物體爲workbook1 - > Sheet 1中workbook2 --->（Sheet 1中）

我可以能夠比較同一工作簿內的工作表，Butwhere就好像我想選擇表格「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中）得到一些數據。我怎樣才能使這兩個工作表的對象。我正在編譯失敗「設置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