Public Function ToExcel()
On Error GoTo ErrorHandler
Dim exlapp As Excel.Application
Dim exlbook As Excel.Workbook
Set exlapp = CreateObject("Excel.Application")
Set exlbook = exlapp.Workbooks.Add
exlapp.Caption = "数据正在导出......"
exlapp.Visible = True
exlapp.DisplayAlerts = False
Dim exlsheet As Excel.Worksheet
Set exlsheet = exlbook.Worksheets.Add
exlsheet.Activate
Set exlsheet = exlsheet
exlsheet.Name = "【我导出的数据】"
'设置列宽
exlapp.ActiveSheet.Columns(1).ColumnWidth = 10
exlapp.ActiveSheet.Columns(2).ColumnWidth = 20
StrSql = "【你的SQL语句】"
Set exl_rs = PubSysCn.Execute(StrSql)
exlsheet.Range("A2").CopyFromRecordset exl_rs
exl_rs.Close
Set exl_rs = Nothing
exlapp.Worksheets("sheet1").Delete
exlapp.Worksheets("sheet2").Delete
exlapp.Worksheets("sheet3").Delete
exlapp.DisplayAlerts = True
exlapp.Caption = "数据导出完毕!!"
exlapp.Visible = True
Set exlapp = Nothing
Set exlbook = Nothing
Set exlsheet = Nothing
Exit Function
ErrorHandler:
MsgBox "EXCEL : " & err.Number & " : " & err.Description
End Function
分享到:
相关推荐
vb access数据库与excel数据互相导入的源代码,很经典的啊
vb.net将如何将excel中的数据导入到数据库
VB6操作Excel导入到SQL2000数据库,Excel必须保存成2003的格式
用VB来错做Excel 来实现大批量数据的 录入
操作excel利用VB将EXCEL中的数据导入ACCESS
VB 6.0 将EXCEL数据导入ACCESS数据库
一个将excel导入sqlserver2000的例程
VB中如何将MSFlexGrid数据导入到Excel中.txt
用 VB 导入Excel 中的数据,或将 VB 中算出的数据导入Excel (附图
vb写的一个将excel数据导入sql的小程序,可动态设置连接的sql机器,动态读取数据库 表 字段。可设置要导入的字段等
vbEXCEL数据导入导出.rarvbEXCEL数据导入导出.rarvbEXCEL数据导入导出.rarvbEXCEL数据导入导出.rarvbEXCEL数据导入导出.rarvbEXCEL数据导入导出.rarvbEXCEL数据导入导出.rarvbEXCEL数据导入导出.rarvbEXCEL数据导入...
代码中有两种导入Excel。数据是通过连接oracle数据库,获取的某个表的数据 第一种是传统的从表格导入,这种导入方法存在弊端,如果数据量大,则效率很低 第二种是通过sql查询需要导入的数据,然后直接从数据库导入,...
VB实现Excel数据导入SQL+Server方法解析 3种方法
怎么用VB把TXT格式的数据文件导入EXCEL表中.doc
VB Excel导入 MSFlexGrid 批量导入SQL2000 然后MSFlexGrid 数据生成Excel
vb.net把DataGridView中的数据导入Excel中,通常采用对Excel操作的方式进行。该方法简单易懂,网上也有很多,但是效率低下。因为其采用的是一个单元格一个单元格的写入方式。当数据量非常大时,用时往往很长。相对而...
可以加载sheet列表 进行导入 加载
由Listview中的数据直接导入到EXCEL并打开,并显示表头,可以直接加入到开发代码中去而省去单独编写代买的精力跟时间。
VB可以把access数据库上的数据导入到excel表里然后保存,也可以从Datagrid中导入excel里
VB报表与Excel操作示例,将报表内容导入到Office Excel表中显示,导出到Excel后,会自动对应VB LISTVIEW列表中的每一项,表头也会自动对应,源码核心来自国外VB达人,代码参考价值比较大哦。速度虽不快,不过挺稳定...