Ausführen von SQL-Skript in Excel-Makro

Ich habe eine Frage zu Makros in Excel und wie man Sie benutzt. Habe ich vor kurzem erstellt eine SQL-Abfrage, die auf mehrere TFS-Datenbanken, um Daten zu extrahieren. Ich möchte einfach führen Sie dieses Skript aus excel, so dass die Ausgabe des Skripts wird automatisch veröffentlicht in excel mit den einzelnen Spaltenüberschriften. Ich habe gesehen, dies getan, bevor Sie in excel mit VB-Makros.

Als workaround habe ich eine kleine bat-Datei zum ausführen von sqlcmd, überprüfen Sie die sql-Datei, die das Skript enthält, und schließlich schieben Sie die Ausgabe in eine csv-Datei. Das einzige problem mit diesem, ist, dass die CSV-Ausgabe schiebt die Ergebnisse auf einer einzelnen Zeile und nicht trennen Sie diese mit überschriften.

Aktuellen code für batfile:

sqlcmd -E -S TFSServer\TFS2010 -i C:\test\testquery.sql -o C:\test\test.csv

  • Sagen Sie das alle SQL-Zeilen in eine einzige Zeile komprimiert? Oder, dass jede Zeile in einer einzigen Spalte?
  • Sorry, ich wollte sagen, dass jede Zeile ist eine einzelne Spalte.
  • Sie sollten in der Lage sein zu tun nur Data > Text to Columns nach der Tat.
  • vielen Dank dafür!
InformationsquelleAutor Frankie C | 2012-07-25
  1. 1

    Warum nicht verwenden Sie ein ssis-Paket oder ssrs-Bericht für dataextraction? Makros sind so... letzten Jahrhunderts.

    Wenn Sie darauf bestehen, mit einem makro, hier ist ein Beispiel:

    Dim con As ADODB.Connection, _
cmd As ADODB.Command, _
rs As ADODB.Recordset, _
strSQL As String, _
i As Integer

strSQL = "EXEC SP_StoredProcedureToGetData"

Set con = New ADODB.Connection
con.Open "Provider=SQLOLEDB;Data Source=SQLSERVER;" & _
    "Initial Catalog=DATABASE;User ID=USERNAME;Password=PASSWORD"

Set cmd = New ADODB.Command
With cmd
    .ActiveConnection = con
    .CommandText = strSQL
    .CommandType = adCmdStoredProc
End With

Set rs = New ADODB.Recordset
With rs
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockBatchOptimistic
End With
Set rs = cmd.Execute

Cells(1, 1) = "Column1"
Cells(1, 2) = "Column2"
Cells(1, 3) = "Column3"
Cells(1, 4) = "Column4"
Cells(1, 5) = "Column5"
Cells(2, 1).CopyFromRecordset rs

Set con = Nothing
Set cmd = Nothing
Set rs = Nothing
    • Ich habe eine Frage zu Ihrer vorgeschlagenen Antwort. Es scheint, dass dieser code erfordert, dass Sie das Skript geladen, auf dem sql-server so kann es einfach ausgeführt werden, ist das richtig? Wenn ja, ist das nicht möglich, weil wir nicht wollen, laden zusätzliche gespeicherte Prozeduren, da diese eine interne Produktions-server. Ich war auf der Suche, um in der Lage zu führen Sie das Skript von einem client-Rechner/account mit nur-Lesen-Zugriff.
    InformationsquelleAutor Kevin
Schreibe einen Kommentar