VB 从SQL数据库中把数据导出到Excel表格中，怎么写？

Question

我用VB做一个小系统：步骤如下
1，自动新建一个表格。
2，把指定的数据从数据库中导入到新建的Excel当中去。

PS：求大神帮帮忙，本人VB不是很好。只是想做这个方便日常的工作。给程序的时候请带上注释谢谢啦！

Answer 1

Sub dataToExcel()
Dim conn As String
Dim rs As New ADODB.Recordset
Dim excel As Object
Dim workbook As Object
Dim sheet As Object
Dim i&, j&
    'SQL数据库的连接字串
    conn = "Provider=SQLOLEDB.1;Data source=服务器地址;initial catalog=数据库名称;User Id=数据库登录账号;Password=数据库登录账号"
    '打开到sql的连接，读取xxx表数据到rs
    rs.Open "select * from xxx", conn, adOpenKeyset, adLockReadOnly
    'excel对象、工作簿、工作表
    Set excel = CreateObject("Excel.Application")
    Set workbook = excel.workbooks().Add()
    Set sheet = workbook.sheets(1)
    excel.Visible = True
    '循环读取rs并写入到excel
    For i = 1 To rs.Fields.Count
        j = 1
        rs.MoveFirst
        Do While Not rs.EOF
            sheet.cells(j, i) = rs.Fields(i - 1).Value
            rs.MoveNext
            j = j + 1
        Loop
    Next
    rs.Close
    Set rs = Nothing
    
End Sub

Answer 2

123456789101112131415161718192021222324252627282930Sub dataToExcel()Dim conn As StringDim rs As New ADODB.RecordsetDim excel As ObjectDim workbook As ObjectDim sheet As ObjectDim i&, j& 'SQL数据库的连接字串 conn = "Provider=SQLOLEDB.1;Data source=服务器地址;initial catalog=数据库名称;User Id=数据库登录账号;Password=数据库登录账号" '打开到sql的连接，读取xxx表数据到rs rs.Open "select * from xxx", conn, adOpenKeyset, adLockReadOnly 'excel对象、工作簿、工作表 Set excel = CreateObject("Excel.Application") Set workbook = excel.workbooks().Add() Set sheet = workbook.sheets(1) excel.Visible = True '循环读取rs并写入到excel For i = 1 To rs.Fields.Count j = 1 rs.MoveFirst Do While Not rs.EOF sheet.cells(j, i) = rs.Fields(i - 1).Value rs.MoveNext j = j + 1 Loop Next rs.Close Set rs = Nothing End Sub