Question

我对Excel中的宏以及如何使用它们有疑问。我最近创建了一个SQL查询，它将命中几个TFS数据库来提取数据。我只想从excel运行此脚本，以便脚本的输出自动在excel中与各个列标题一起发布。我在使用VB宏之前已经在excel中看到过这个。

作为一种解决方法，我创建了一个小型bat文件来运行sqlcmd，检查包含该脚本的sql文件，最后将输出推送到csv文件。唯一的问题是，CSV的输出会将结果推送到一行，而不会将它们与标题分开。

batfile的当前代码：

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

Answer 1

为什么不使用ssis包或ssrs报告进行数据提取？宏是如此......上个世纪。

如果你坚持使用宏，这是一个例子：

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

在Excel宏中运行SQL脚本

1 个答案: