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

Faça uma pergunta

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



Jean-François Pillou

Nosso conteúdo é produzido em colaboração com especialistas em tecnologia da informação sob o comando de Jean-François Pillou, fundador do CCM.net e diretor digital do Grupo Figaro. CCM é um site sobre tecnologia líder em nível internacional e está disponível em 11 idiomas.

Mais informações sobre a equipe do CCM

Veja também