VBA - Tilslutning af en database (MDB) til Excel
Microsoft Excel, som er den populære SpreadSheet-software i Office, gør det muligt for brugere at oprette forbindelse til Microsoft Access MDB-databasen. Tilslutning af Microsoft Access MDB-database til Excel kan udføres ved hjælp af makroer. Lidt kendskab til Excel og makroer kan være påkrævet. Et Microsoft DAO-objektbibliotek er påkrævet for at forbinde Access-databasen til Excel-regneark. Det er muligt at åbne en Access Database i Excel og få adgang til dataene i databasen. Forskellige datamanipulationer såsom kopiering af data i felterne til kolonner i Excel-regnearket og andre beregninger kan udføres ved at forbinde Microsoft Access-databasen til Excel.
- Tilføj reference
- Microsoft DAO objekt bibliotek XX
I et generelt modul, (f.eks. Module1) indsæt koden nedenfor
Sub CopyDBaccess () Dim BDexp Som Database Dim Table Som Recordset Dim TbDef Som TableDef Dim Ch Som String, Lig Længe, Jeg Som Integer Ch = "PAth & \ & NameofDB.MDB" Indstil BDexp = DBEngine.Workspaces (0) .OpenDatabase (Ch) Indstil tabel = BDexp.OpenRecordset ("NameofTable", dbOpenDynaset) 'Debug.Print Table.Name Indstil TbDef = BDexp.TableDefs ("NameofTable") Lig = 3 dim Navn (TbDef.Fields.Count - 1) As String 'Sæt titlerne i kolonnen Med ark ("Sheet1") For i = 0 Til TbDef.Fields.Count - 1' Hæld avoir toute la ligne 'Debug.Print TbDef.Fields (i) .Name Navn (i) = TbDef .Fields (i) .Name .Cells (Lig, i + 3) = Navn (i) Næste 'Opkalder fra 1. record Table.MoveFirst Lig = 4, mens ikke Table.EOF For i = 0 til TbDef.Fields.Count - 1 'For hele linjen .Cells (Lig, i + 3) = Tabel (Navn (i)) Næste jeg Lig = Lig + 1 Table.MoveNext' Gå til næste post Slå slut med Table.Close BDexp.Close Set BDexp = Intet Indstil tabel = Intet slutdel