karşılaştırmak için nasıl iki çalışma kitapları ben Workbook1 için bir nesne olarak ayarlayabilirsiniz nasıl farklı levha ile iki çalışma kitaplarını karşılaştırmak ister

Question

, -> Sayfa1, Workbook2 ---> (sheet1)

Ben edebilmek karşılaştırma yapabilirsiniz Aynı çalışma kitabının içinde çalışma sayfası, Ama ben sayfayı "getopenfilename" seçmek istiyorum sanki. Adı bir nesne olarak nasıl atayabilirim.

kodu:

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) benim şimdiki çalışma kitabı ve çalışma sayfası, ben başka Workbook2 (Sayfa1) bazı verileri almak ister. Her iki çalışma sayfası için bir nesneyi nasıl yapabilirim.Örnekleme hatası "

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