在vb中如何把ACCESS中的数据表导到EXCEL文件指定的SHEET中
现在使用vb+access生成了一些表,向将access的数据表自动转换成excel文件,问有没有效率较高的办法,如一行一行的拷贝,而不是对一个个CELL进行操作 --------------------编程问答-------------------- 参考Private Sub sub_ExpToExcel()--------------------编程问答-------------------- 这个直接导记录 --------------------编程问答-------------------- xlsheet.Range("a2").CopyFromRecordset rs
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
cn.CursorLocation = adUseClient
cn.Open ""
rs.Open "select * from mytable", cn, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets(1)
For i = 1 To rs.Fields.Count
xlsheet.Cells(1, i) = rs.Fields(i - 1).Name
Next i
xlsheet.Range("a2").CopyFromRecordset rs
xlsheet.SaveAs strFileName
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
--------------------编程问答-------------------- 在编译时,在 Dim xlApp As Excel.Application行出现 错误User-Defined Type not defined.
请问如何解决。(目前的环境为XP SP3+VB6.0 SP6) --------------------编程问答-------------------- 要引用,原来你不知道这个
那还谈cell、行什么的
*********************
microsoft excel 11.0 object library --------------------编程问答-------------------- 刚查了一下资料,User-Defined Type not defined的问题解决方法如下:
在VB中【Project】-->【References...】,选择Microsoft Excel 11.0 Object Library后编译即能通过
补充:VB , 数据库(包含打印,安装,报表)