本文介绍如何在Visual Basic(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")
' 过程名: 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")
最低0.47元/天 解锁文章
扫一扫
783
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
