如何将记录集的数据一次性导出至excel。
注意:1、不要用循环逐条导出。
2、不要用 select into 语句。
注意:1、不要用循环逐条导出。
2、不要用 select into 语句。
解决方案 »
- 怎么设置软件的试用期?是在开发过程中设置还是打包时设置?
- @@@ 知道文件名,获得该文件的具体路径.....
- 祝大家圣诞快乐!我设置了http协议的代理服务器地址...等待中...
- 论友们!大家好!有谁知道如何在VB中访问USB口,从而读取有USB口传入信息?用什么控件?谢谢了!拜托了!
- 怎么把 text的text 写到数据库里。
- 怎么样让combobox默认显示为某一个值?等ing
- 简单得不得了,但我就是不会。
- 很奇怪的DataGrid1.Columns(1).Value问题,你一定没遇到过???
- 高手帮帮忙,怎么DELPHI不能调用VB写的控件呢
- 如何保护“控制面版”中的配置?
- 两个小问题,解决后立马结贴!!!!!!!!!!
- 高分!!请教一下,怎样实现两个或者多个应用程序的通信?
'你设置好 strOpen 查询语句就可以了
Public Function ExporToExcel(strOpen As String)
'*********************************************************
'* 名称:ExporToExcel
'* 功能:导出数据到EXCEL
'* 用法:ExporToExcel(sql查询字符串)
'*********************************************************
Dim Rs_Data As New ADODB.Recordset
Dim Irowcount As Integer
Dim Icolcount As Integer
Dim cn As New ADODB.Connection
Dim xlapp As New Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim xlQuery As Excel.QueryTable
With Rs_Data
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.Source = strOpen
.Open
End With
With Rs_Data
If .RecordCount < 1 Then
MsgBox ("没有记录!")
Exit Function
End If
'记录总数
Irowcount = .RecordCount
'字段总数
Icolcount = .Fields.Count
End With
Set xlapp = CreateObject("Excel.Application")
Set xlbook = Nothing
Set xlsheet = Nothing
Set xlbook = xlapp.Workbooks().Add
Set xlsheet = xlbook.Worksheets("sheet1")
xlapp.Visible = True
'添加查询语句,导入EXCEL数据
Set xlQuery = xlsheet.QueryTables.Add(Rs_Data, xlsheet.Range("a1"))
xlQuery.FieldNames = True '显示字段名
xlQuery.Refresh
xlapp.Application.Visible = True
Set xlapp = Nothing '"交还控制给Excel
Set xlbook = Nothing
Set xlsheet = Nothing
End Function
需引用Microsoft Excel 9.0 Object Library