如何将mysql的数据导入excel？？？急！！！

Question

用vb远程连接mysql后，如何将获得的记录生成excel文件？？？请指教！

Answer 1

把记录集rs的内容写到Excel里：Dim xSheet As New Excel.Worksheet
Dim xlsApp As New Excel.Application
Dim i As Integer
xlsApp.Workbooks.Add
Set xSheet = xlsApp.Sheets("sheet1")
For i = 0 To rs.Fields.Count - 1
    xSheet.Cells(1, i + 1) = rs(i).Name  '填写标题
Next
xSheet.Range("A2").CopyFromRecordset rs  '复制内容
Set xSheet = Nothing
Set xlsApp = Nothing