Heim >Datenbank >MySQL-Tutorial >Wie kann ich eine SQL-Datenbank direkt aus meinem Excel-VBA-Code abfragen?
Abfragen von SQL aus VBA in Excel
Durch die Verwendung von VBA in Excel können Sie die Funktionalität Ihrer Tabellenkalkulationen durch die direkte Interaktion mit SQL-Datenbanken erweitern. Dadurch können Sie SQL-Abfragen ausführen, Ergebnisse abrufen und diese in Ihre Excel-Arbeitsmappen integrieren.
Betrachten Sie die folgende VBA-Subroutine, die eine Verbindung zu einer bestimmten SQL Server-Instanz herstellt und eine SQL-Abfrage ausführt:
Sub ConnectSqlServer() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim sConnString As String ' Adjust according to your environment sConnString = "Provider=SQLOLEDB;Data Source=INSTANCE\SQLEXPRESS;" & _ "Initial Catalog=MyDatabaseName;" & _ "Integrated Security=SSPI;" ' Create connection and recordset objects Set conn = New ADODB.Connection Set rs = New ADODB.Recordset ' Open connection and execute query conn.Open sConnString Set rs = conn.Execute("SELECT * FROM Table1;") ' Check for data If Not rs.EOF Then ' Transfer results to Excel sheet Sheets(1).Range("A1").CopyFromRecordset rs ' Close recordset rs.Close Else MsgBox "Error: No records returned.", vbCritical End If ' Clean up If CBool(conn.State And adStateOpen) Then conn.Close Set conn = Nothing Set rs = Nothing End Sub
Um diese Unterroutine zu verwenden, ändern Sie die folgenden Teile:
Führen Sie nach der Änderung die VBA-Subroutine aus, um eine Verbindung herzustellen, führen Sie die in der „Execute“-Anweisung angegebene SQL-Abfrage aus, und tragen Sie die Ergebnisse in die angegebene Excel-Tabelle ein.
Das obige ist der detaillierte Inhalt vonWie kann ich eine SQL-Datenbank direkt aus meinem Excel-VBA-Code abfragen?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!