VBA - Koble til en database (MDB) til Excel
Microsoft Excel, som er populært SpreadSheet-programvare i Office, gjør det mulig for brukere å koble til Microsoft Access MDB-databasen. Koble Microsoft Access MDB-database til Excel kan utføres ved hjelp av makroer. Det kan være nødvendig med litt kunnskap om Excel og makroer. Et Microsoft DAO-objektbibliotek kreves for å koble Access-databasen til Excel regneark. Det er mulig å åpne en Access Database i Excel og få tilgang til dataene i databasen. Ulike data manipulasjoner som å kopiere data i feltene til kolonnene i Excel-regnearket og andre beregninger kan utføres ved å koble Microsoft Access-databasen til Excel.
- Legg til referanse
- Microsoft DAO objektbibliotek XX
I en generell modul, lim inn koden nedenfor (f.eks. Modul1)
Sub CopyDBaccess () Dim BDexp Som Database Dim Table Som Recordset Dim TbDef Som TableDef Dim Ch Som String, Lig Like Lang, Jeg Som Integer Ch = "PAth & \ & NameofDB.MDB" Sett BDexp = DBEngine.Workspaces (0) .OpenDatabase (Ch) Sett tabell = BDexp.OpenRecordset ("NameofTable", dbOpenDynaset) 'Debug.Print Table.Name Angi TbDef = BDexp.TableDefs ("NameofTable") Lig = 3 dim Navn (TbDef.Fields.Count - 1) As String 'Legg titlene i kolonnen Med ark ("Ark1") For i = 0 Til TbDef.Fields.Count - 1' Pour avoir toute la ligne 'Debug.Print TbDef.Fields (i) .navn Navn (i) = TbDef .Fields (i) .Name .Cells (Lig, i + 3) = Navn (i) Neste 'Oppringer fra 1. oppføring Table.MoveFirst Lig = 4 Mens ikke Table.EOF For i = 0 Til TbDef.Fields.Count - 1 'For alle linjene .Cells (Lig, i + 3) = Tabell (Navn (i)) Neste jeg Lig = Lig + 1 Table.MoveNext' Gå til neste post Slå av med Table.Close BDexp.Close Set BDexp = Ingenting Sett tabell = Ingenting sluttsub