locked
Trabalhando com duas Pastas de Trabalho RRS feed

  • Pergunta

  • 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

    sexta-feira, 9 de novembro de 2007 17:27

Todas as Respostas

  • 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,

    sexta-feira, 9 de novembro de 2007 18:59