vb数据库数据导出

Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码;"
conn.Open

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM 表名", conn

Dim fileNum As Integer
fileNum = FreeFile
Open "C:\path\to\export.csv" For Output As #fileNum

Do While Not rs.EOF
    For i = 0 To rs.Fields.Count - 1
        Print #fileNum, rs.Fields(i).Value;
        If i < rs.Fields.Count - 1 Then Print #fileNum, ","
    Next i
    Print #fileNum, ""
    rs.MoveNext
Loop

Close #fileNum
rs.Close
conn.Close

Dim xlApp As Object
Dim xlWorkBook As Object
Dim xlWorkSheet As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWorkBook = xlApp.Workbooks.Add
Set xlWorkSheet = xlWorkBook.Worksheets(1)

Dim i As Integer, j As Integer
i = 1
j = 1

Do While Not rs.EOF
    For Each field In rs.Fields
        xlWorkSheet.Cells(i, j).Value = field.Value
        j = j + 1
    Next field
    i = i + 1
    j = 1
    rs.MoveNext
Loop

xlWorkBook.SaveAs "C:\path\to\export.xlsx"
xlWorkBook.Close
xlApp.Quit
Set xlWorkSheet = Nothing
Set xlWorkBook = Nothing
Set xlApp = Nothing