Databasanslutning, hämta data från databasen, fråga data till Excel med VBA DAO VBA-kod gör en databas anslutning och hämtar data genom att ringa och ge bidrag till befintlig databas fråga.
Förklaring En databas anslutning upprättas genom VBA Makro och en fråga som är alla redo skapas och lagras i databasen körs. Frågan är också skapas för att hämta data från två olika parametrar. Parametrarna kan uteslutas vid hämta alla uppgifter från en sökning utan särskilda filter. Denna typ av databas-anslutning kan upprättas till alla större affärssystem och kan spara tid och pengar genom att eliminera tidskrävande manuell dataöverföring.
För att VBA-koden följande hänvisning måste vara aktiverat "Microsoft DAO 3.6 Object Library".
Hela VBA-programmet kan laddas ner i en Excel-fil i slutet av denna webbsida eller bara kopiera och klistra in koden direkt från sidan!
Kod 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
Ladda ner Excel-fil!databas-anslutning-hämta-data-från-databas-fråge-data-till-excel-hjälp-VBA-DAO.xls |
