Database forbindelse, hente data fra databasen, forespørgsler om data i Excel ved hjælp af VBA DAO VBA-koden gør en database forbindelse og henter data ved at kalde og give input til eksisterende database forespørgsel.
Forklaring En database-forbindelse er etableret via VBA Makro og en forespørgsel, der er alle skabt klar og lagres i databasen er udført. Forespørgslen er også skabt til at hente data fra to forskellige parametre. De parametre, kan udelukkes i tilfælde af at hente alle data fra en forespørgsel uden særlige filtre. Denne type database forbindelse kan etableres på alle større virksomheder og kan spare tid og penge ved at eliminere tidskrævende manuelle overførsel af data.
For at gøre det VBA-kode arbejde følgende reference skal være aktiveret "Microsoft DAO 3,6 Object Library".
Hele VBA program kan hentes i en Excel-fil i slutningen af denne webside eller bare kopiere og indsætte koden direkte fra siden!
Kode Public Sub database_connection_retrieve_data_from_database_querying_data_into_excel_using_VBA_DAO ()
Dim Database_RetrieveData_VBA_Excel As String
Dim Query_RetrieveData_VBA_Excel As String
Dim Parameter1_RetrieveData_VBA_Excel As String
Dim Parameter2_RetrieveData_VBA_Excel As String
Dim DAO_Connection_RetrieveData_VBA_Excel As String
Database_RetrieveData_VBA_Excel = Range ("G3") .Value
Query_RetrieveData_VBA_Excel = Range ("G4") .Value
Parameter1_RetrieveData_VBA_Excel = Range ("G5") .Value
Parameter2_RetrieveData_VBA_Excel = Range ("G6") .Value
DAO_Connection_RetrieveData_VBA_Excel = 0
DB1 = DBEngine .Open Database (Database_RetrieveData_VBA_Excel)
Set QD1 = DB1.QueryDefs (Query_RetrieveData_VBA_Excel)
QD1.Parameters ("P1") = Parameter1_RetrieveData_VBA_Excel
QD1.Parameters ("P2") = Parameter2_RetrieveData_VBA_Excel
Set RS1 = QD1 .Open Recordset (db Open Snapshot, dbReadOnly)
Range ("b11"). Offset (0, 0). CopyFromRecord set RS1
RS1 .Close
QD1 .Close
DB1 .Close
End Sub
Download excel filen!database-forbindelsen-hente-data-fra-database-forespørgsler-data-i-excel-bruger-VBA-DAO.xls |
