Trabalhando com duas Pastas de Trabalho

Question

Bom

Primeiramente olá

Então

tenho duas pastas de trabalho com valores que dizem respeito a mesma coisa e queria juntá-las, sem que ficassem valores repetidos.As duas estão formatadas como Banco de Dados(1ª linha o Nome da Coluna , e nas outras os dados),

porem não sei como comparar os valores entre as duas pastas de trabalho,

ex:

If Workbook("1").Sheets("teste").Range("a1").value =Workbook("2").Sheets("teste2").Range("A1").value ...

 

então esse Workbook("1") está errado, e eu queria saber como faço para fazer referencia às celulas das duas pastas de trabalho em vba.

 

Desde Já Agradeço

Muito Obrigado

Answer 1

Instancie os objetos WorkBook e WorkSheet e você terá todos métodos e propriedades deles.

 

Ex:

 

Code Block

Sub MostraBooks()

'declare dois workbooks para trabalhar
Dim wbk1 As Workbook
Dim wbk2 As Workbook

'declare duas worksheets
Dim sht1 As Worksheet
Dim sht2 As Worksheet

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    'configure os dois workbooks
    Set wbk1 = ActiveWorkbook
   
    If Workbooks.Count > 1 Then
        Set wbk2 = Workbooks(Workbooks.Count)
    Else
        Set wbk2 = Application.Workbooks.Add(1)
    End If
   
    'configure a sheet1 do 1º book
    Set sht1 = wbk1.Worksheets(1)
   
    'configure a sheet1 do 2º book
    Set sht2 = wbk1.Worksheets(1)
   
   
    'mostra valores dos books
    'book1
    MsgBox wbk1.Name & " - " & sht1.Cells(1, 1).Address
   
    'book2
    MsgBox wbk2.Name & " - " & sht2.Cells(1, 1).Address
   
    wbk1.Close Savechanges:=False
    wbk2.Close Savechanges:=False

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

 

 

Abs,