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

[ziwanli]

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

[faysky2]

把记录集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

[ziwanli]

你好，我的导入代码和你的一样，但有个问题，就是最后的两个字段导不进去，是空值！这是什么原因呢？