如何比较两个工作簿

我喜欢将两个工作簿与不同的工作表进行比较，如何设置工作簿1 – >工作簿2，工作簿2（Sheet1）

我可以比较同一工作簿中的工作表，Butwhere就好像我想select表格“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 

工作簿1（工作表1）是我当前的工作簿和工作表，我喜欢从另一个工作簿2（工作表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