Question

我需要为此数据插入列名，但结果是我只获得没有列名的数据。我的代码有什么问题吗？谢谢。

Private Sub pbTRPOS_Click()

    Dim Conn As New ADODB.Connection
    Dim sSQLQry As String
    Dim mrs As New ADODB.Recordset
    Dim DBPath As String, sconnect As String
    Dim DirFile As String
    Dim i As Long

    DirFile = "C:\Work\TRPOS.txt"

    If Len(Dir(DirFile)) <> 0 Then
        SetAttr DirFile, vbNormal
        Kill DirFile
    End If

    DBPath = ThisWorkbook.FullName
    sconnect = "Provider=SQLOLEDB;SERVER=DWSQL\BCAPP;Database=MVS;Uid=mvs;Pwd=mvs;"
    Conn.Open sconnect

    sSQLSting = "SELECT * FROM [MVS].[dbo].[TRPOS] where pos_no = '" & Sheets("Get Text File").Cells(5, 3) & "'"

    Workbooks.Add
    ActiveWorkbook.SaveAs "C:\Work\TRPOS.csv", FileFormat:=6

    For i = 0 To mrs.Fields.Count - 1
        Sheets("TRPOS").Cells(1, i + 1).Value = mrs.Fields(i).Name
    Next i

    mrs.Open sSQLSting, Conn

    Sheets("TRPOS").Range("A2").CopyFromRecordset mrs
    mrs.Close
    Conn.Close

    ActiveWorkbook.Close SaveChanges:=True

    Name "C:\Work\TRPOS.csv" As "C:\Work\TRPOS.txt"

End Sub

Excel VBA：使用标题复制SQL表（列名称）

0 个答案: