How to Connect a database (MDB) to excel

Connecting an Access database (MDB) in an application excel.

Add reference
Microsoft DAO object librairy XX

In a general module (eg Module1) paste the code below

Code:

---

Sub CopieDBaccess ()
  Sunday BDexp As Database
  Sunday Table As Recordset
  As Sunday TbDef TableDef
  Sunday Ch As String, Lig As Long, i As Integer
      Ch = "& path \ & NomDeLaBD.MDB"
      Set BDexp = DBEngine.Workspaces (0). OpenDatabase (Ch)
      Set Table = BDexp.OpenRecordset ( "tablename", dbOpenDynaset)
      'Debug.Print Table.Name
      Set TbDef = BDexp.TableDefs ( "tablename")
      Lig = 3
  Sunday Name (TbDef.Fields.Count - 1) As String
  'Place the column
  With Sheets ( "Sheet1")
      For i = 0 To TbDef.Fields.Count - 1 'For any line
          'Debug.Print TbDef.Fields (i). Name
          Name (i) = TbDef.Fields (i). Name
          . Cells (Lig, i + 3) = Name (i)
    Next
      'Caller registration on 1
    Table.MoveFirst
      Lig = 4
      While Not Table.EOF
          For i = 0 To TbDef.Fields.Count - 1 'For any line
              . Cells (Lig, i + 3) = Table (Name (i))
          Next i
          Lig Lig + 1 =
          Table.MoveNext 'move to the next record
    Wend
  End widt
    Table.Close
    BDexp.Close
      Set BDexp = Nothing
      Set Table = Nothing

  End Sub

---