知道SELECT语句怎么把查询到的数据输出到Excel中
来源:互联网 发布:java 通过ftp下载文件 编辑:程序博客网 时间:2024/05/18 03:12
Public Function getTblExcel(strExcel As String) On Error GoTo Create '-----------定义Excel的对象-------------- Dim xlApp As Excel.Application '引用了 Microsoft Excel 14.0就会出现这个对象 Dim xlWbk As Excel.Workbook Dim xlWsh As Excel.Worksheet Dim Rng As Excel.Range Dim rsNum As Integer '-----------定义DAO的对象用于创建DAO记录集-------------- Dim rst As New ADODB.Recordset Dim i As Integer '-------------打开记录集 Set rst = New ADODB.Recordset rst.Open strExcel, CurrentProject.Connection, adOpenKeyset, adLockReadOnly '------打开Excel表格------- Set xlApp = GetObject(, "Excel.Application") xlApp.Visible = True Set xlWbk = xlApp.Workbooks.Add Set xlWsh = xlWbk.Worksheets(1) xlWsh.Activate '------开始将记录集中的东西放到---------- Set Rng = xlWsh.Range("A1") For i = 0 To rst.Fields.Count - 1 Rng.Value = rst.Fields(i).Name Set Rng = Rng.Offset(0, 1) Next i Set Rng = xlWsh.Range("A2") rst.MoveFirst Do Until rst.EOF For i = 0 To rst.Fields.Count - 1 Rng.Value = rst.Fields(i).Value Set Rng = Rng.Offset(0, 1) Next i rst.MoveNext Set Rng = Rng.Offset(1, -rst.Fields.Count) Loop '------关闭记录集---------- rst.Close Set rst = Nothing MsgBox "数据导出成功" '------关闭Excel----------' xlWbk.Close' Set xlWsh = Nothing' Set xlWbk = Nothing' If xlApp.Workbooks.Count = 0 Then' xlApp.Quit' End IfCreate: If Err = 429 Then Set xlApp = CreateObject("Excel.Application") Resume Next End IfEnd Function
阅读全文
0 0
- 知道SELECT语句怎么把查询到的数据输出到Excel中
- 把数据输出到Excel
- Oracle采用存储过程执行sql语句,将查询到的数据导出到EXCEL中
- 把DataGrid数据输出到Excel文件
- 把WebForm数据导出到Excel中
- 把WebForm数据导出到Excel中
- 把excel数据导入到sql中
- 把Excel数据导入到MySQL中
- 如何把EXCEL的数据导入到ORACLE数据库中
- mysql 把select结果保存为临时表,mysql中把查询结果输出到临时表
- mysql 把select结果保存为临时表,mysql中把查询结果输出到临时表
- 如何中把excel表中的数据用sql语句导入到数据表中
- 怎么把数据导出到excel,提供打印。
- 怎么把数据导出到Excel(或Word)
- 输出数据到Excel表格中
- 表格数据输出到Excel中
- Asp.Net输出数据到EXCEL中
- Asp.Net输出数据到EXCEL中
- springmvc基本原理
- 安卓在项目中添加Android兼容包( v4、v7 、、、)
- solr<三> Java 操作 solr query + facet
- 生成分类标签文件.txt
- ZOJ--1004:Anagrams by Stack(dfs)
- 知道SELECT语句怎么把查询到的数据输出到Excel中
- FireDac Locate 方法
- CentOS 7将网卡名称eno16777736改为eth0
- mysql查询今日、本周、本月记录
- MQTT win7 server --- win 7 JAVA client --- VMware ubuntu 测试C client
- css入门
- 如何判断什么样的事更值得做?
- 前言
- Android 学习路线