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

Novembro 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 :
Este documento, intitulado « VBA - Conectar um banco de dados (MDB) no Excel »a partir de CCM (br.ccm.net) está disponibilizado sob a licença Creative Commons. Você pode copiar, modificar cópias desta página, nas condições estipuladas pela licença, como esta nota aparece claramente.