VBA - Conectar um banco de dados (MDB) no Excel

Dezembro 2016


Conectar um banco de dados access (Microsoft Office Access) num aplicativo Excel.
  • Adicionar a referência
  • Microsoft DAO object librairy X.X

Em um módulo geral (Módulo1 por exemplo) colar o código aqui


Sub CopieDBaccess()     
Dim BDexp As Database     
Dim Table As Recordset     
Dim TbDef As TableDef     
Dim C As String, Lig As Long, i As Integer     
    C = "Caminho & \ & NomeDoBancoDeDados.MDB"     
    Set BDexp = DBEngine.Workspaces(0).OpenDatabase(Ch)     
    Set Table = BDexp.OpenRecordset("NomeDaTabela", dbOpenDynaset)     
    'Debug.Print Table.Name     
    Set TbDef = BDexp.TableDefs("NomeDaTabela")     
    Lig = 3     
dim  Nome(TbDef.Fields.Count - 1) As String     
'Colocar os títulos nas colunas     
With Sheets("Plan1")     
    For i = 0 To TbDef.Fields.Count - 1 'Para ter a linha inteira     
        'Debug.Print TbDef.Fields(i).Name     
        Nome(i) = TbDef.Fields(i).Name     
        .Cells(Lig, i + 3) = Nome(i)     
    Next     
    'Ajustar com a primeira gravação     
    Table.MoveFirst     
    Lig = 4     
    While Not Table.EOF     
        For i = 0 To TbDef.Fields.Count - 1 'Para ter a linha inteira    
            .Cells(Lig, i + 3) = Tabela(Nome(i))     
        Next i     
        Lig = Lig + 1     
        Table.MoveNext  'Passar à gravação seguinte     
    Wend     
End Widt     
    Table.Close     
    BDexp.Close     
    Set BDexp = Nothing     
    Set Table = Nothing     

End Sub



Tradução feita por Lucia Maurity y Nouira

Veja também

Artigo original publicado por . Tradução feita por pintuda. Última modificação: 3 de março de 2011 às 14:50 por pintuda.
Este documento, intitulado 'VBA - Conectar um banco de dados (MDB) no Excel', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.