关于VB6.0导出SQL数据库中数据到EXCEL代码问题

模块代码如下：
Private Sub exporttoexcel(rsdata As ADODB.Recordset, filenamesaveas As String)

Dim irowcount As Integer
Dim icolcount As Integer
Dim xlapp As New Excel.application
Dim xlbook As Excel.workbook
Dim xlsheet As Excel.worksheet
Dim xlquery As Excel.querytable
irowcount = rsdata.RecordCount
icolcount = rsdata.Fields.Count

Set xlapp = CreateObject("excel.application")
xlapp.Visible = False
Set xlbook = xlapp.workbooks().Add
Set xlsheet = xlbook.Worksheets("sheet1")

Set xlquery = xlsheet.querytables.Add(rsdata, xlsheet.range("a1"))
xlquery.fieldnames = ture
xlquery.Refresh

xlapp.application.Visible = False
xlbook.saveas (filenamesaveas)
xlapp.quit

Set xlapp = noting
Set xlbook = noting
Set xlsheet = noting
End Sub

窗体代码如下：

Private Sub Command3_Click()
Dim strsql As String
Dim rs As

关于vb6.0或者sql server 2000或者数据库方面的中英文对照文献 Sql Server 导入导出数据库 关于vb6.0数据库查询的问题 关于VB6.0的数据库版本问题 vb6.0中关于数据库的问题 关于VB6.0导出Excel表的问题 在SQL Server数据库导入 导出问题 远程SQL Server数据库导出问题 sql数据库导出错误，高手近来看看 sql数据库导入导出和备份问题