[VB]使用ADO Recordset对象导入Excel
' 过程名: Recordset2Excel
' 描 述:使用ADO Recordset对象把记录导入到Excel文件中
'
' 输 入:ADO Recordset
'
'****************************************
Public Sub Recordset2Excel(rstSource As ADODB.Recordset)
Dim xlsApp As Excel.Application
Dim xlsWBook As Excel.Workbook
Dim xlsWSheet As Excel.Worksheet
Dim i, j As Integer
' 获取或者建立 Excel 对象
On Error Resume Next
Set xlsApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set xlsApp = New Excel.Application
Err.Clear
End If
' 建立 WorkSheet
Set xlsWBook = xlsApp.Workbooks.Add
Set xlsWSheet = xlsWBook.ActiveSheet
' 导出 ColumnHeaders
For j = 0 To rstSource.Fields.Count
xlsWSheet.Cells(2, j + 1) = rstSource.Fields(j).Name
Next j
' 导出 Data
rstSource.MoveFirst
For i = 1 To rstSource.RecordCount
For j = 0 To rstSource.Fields.Count
xlsWSheet.Cells(i + 2, j + 1) = rstSource.Fields(j).Value
Next j
rstSource.MoveNext
Next i
rstSource.MoveFirst
' 自适应行标题
For i = 1 To rstSource.Fields.Count
xlsWSheet.Columns(i).AutoFit
Next i
xlsWSheet.Range("A1").Select
' 显示 Excel
xlsApp.Visible = True
Set xlsApp = Nothing
Set xlsWBook = Nothing
Set xlsWSheet = Nothing
End Sub
转自:枕善居
[VB]使用ADO Recordset对象导入Excel相关推荐
- Java将List对象导入Excel文件
通过poi依赖将java对象写入excel之中,核心理念是通过反射获取Java对象的getter方法和属性,使用getter方法获取要写入excel中的值,再通过属性上的自定义注解获取excel标题行 ...
- ADO.Recordset对象方法
Recordset对象方法: rs.movenext 将记录指针从当前的位置向下移一行 rs.moveprevious 将记录指针从当前的位置向上移一行 r ...
- php recordset,ADO Recordset
ADO Recordset 对象 Recordset 对象 ADO Recordset 对象用于容纳一个来自数据库表的记录集.一个 Recordset 对象由记录和列(字段)组成. 在 ADO 中,此 ...
- java recordset 记录数_ADO Recordset 对象
ADO Recordset 对象 实例 GetRows 本例演示如何使用 GetRows 方法. Recordset 对象 ADO Recordset 对象用于容纳一个来自数据库表的记录集.一个 Re ...
- Recordset对象
Recordset 对象用来操作来自提供者的数据.使用 ADO 时,通过 Recordset 对象可对几乎所有数据进行操作.所有 Recordset 对象均使用记录(行)和字段(列)进行构造.由于提供 ...
- vb mysql ado_VB中的ADO数据对象编程详解
ADO是ActiveX Data Objects 的缩写,是一项新的数据库的存取技术 那天听到一位同学说他的女朋友是学新闻的可也学会了数据库,可学计算机的自己却还是不会,总觉得有点汗颜.在各网站的论坛 ...
- java ado recordset_ADO之Recordset对象用法
本文摘自:https://blog.csdn.net/hfchenle/article/details/51832973 在ADO程序中,记录集(Recordset)对象代表一个表的记录集合或者是一个 ...
- ADO.NET 如何读取 Excel (下)
应用程序经常需要与Excel进行数据交互,在上一篇文章ADO.NET 如何读取 Excel (上)阐述了基于ADO.NET 读取Excel的基本方法与技巧.今天这里要介绍是如何动态的读取Excel数据 ...
- php表格增加一行数据,““vb中数据库内容输出到excel如何把表格第一行合并添加一个大标题...
excel表格上面和下面都有行怎么在中间添加一行 excel表面和下面都有行怎么在中间添加一行的方法如下: 1.打开要处理的文档, 2.标定位到要插入的位置之后,比如要在2,3行之间插入,就定位到第3 ...
最新文章
- Windows Azure 如何学习Azure
- Python属性访问拦截器的用法
- 基于某网站的信息爬取与保存
- python echarts mysql python_Django中从mysql数据库中获取数据传到echarts方式
- Why AG3 client 815 transport entries disabled
- 根据变量推断变量类型_Java A的新本地变量类型推断
- 使用JGroups进行ElasticMQ消息复制
- 征稿 | 软件学报专刊征文:知识赋能的信息系统
- 2021云栖大会开源引力峰会发布的战略合作,Grafana服务到底是什么?
- 【转】freetextbox的ToolBarLayout属性设置
- sklearn之kmean(无监督聚类)
- 1614700501
- 对极大似然估计的理解
- linux i217 v网卡驱动,英特尔网卡驱动下载_Intel英特尔I217I218I219系列网卡驱动官方下载 - 系统之家...
- Win11删除磁盘分区的方法
- 相机焦距、像元大小构造内参矩阵
- 手机中的html管理器停用,任务管理器已被系统管理员停用该怎么办
- RPG Maker MV 计时器的用法
- 熊猫人表情包python 代码_Python实现表情包的代码实例
- 作业录屏+露脸+视频裁剪+字幕添加(支持双语)
热门文章
- 携程到底有没有杀熟?
- 为什么所有人都对 HTML、CSS 失望了?
- 除了写代码,还能如何晋升为高级工程师?
- C++ 大神 John Carmack 的编程传说
- 除了 Python,为什么机器学习还需要一种新的编程语言?
- 数据结构与算法之树的遍历
- linux启动参数怎么传给内核,如何启动内核(vivi与Linux kernel的参数传递情景分析)...
- 微型计算机远程编程微软,用微软的云计算来远程管理自己的电脑
- python中xlrd写操作_Python读写操作Excel模块_xlrd_xlwt_xlutils
- 使用 Commander 写自己的 Nodejs 命令