小编Sam*_*Sam的帖子

我是SQL和VBA的新手.我编写了一个SQL查询,我希望能够从excel工作簿中的VBA子句调用和运行,然后将查询结果带入工作簿.我发现了一些在线(stackoverflow和其他地方)声称这样做但我无法理解它们,因为它们没有任何解释.例如,这是我在网上找到的一个子:

Sub ConnectSqlServer()

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sConnString As String

    ' Create the connection string.
    sConnString = "Provider=SQLOLEDB;Data Source=INSTANCE\SQLEXPRESS;" & _
                  "Initial Catalog=MyDatabaseName;" & _
                  "Integrated Security=SSPI;"

    ' Create the Connection and Recordset objects.
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    ' Open the connection and execute.
    conn.Open sConnString
    Set rs = conn.Execute("SELECT * FROM Table1;")

    ' Check we have data.
    If Not rs.EOF Then
        ' Transfer result.
        Sheets(1).Range("A1").CopyFromRecordset rs
    ' Close …