どのように2つのブック

Question

を比較するために、私はworkbook1対象として設定することができる方法は、異なるシートを2つのブックを比較したい - >シート1、workbook2 --->（シート1）

Iは比較することができ同じワークブック内のワークシート、Buthereは "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（シート1）は私の現在のワークブックとワークシートで、私は別のworkbook2（シート1）からいくつかのデータを取得したいです。どのようにして両方のワークシートのオブジェクトを作成できますか？「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