|
'************************************************
'** 函数名称: ExportTempletToExcel
'** 函数功能: 将记录集输出到 Excel 模板
'** 参数说明:
'** strExcelFile 要保存的 Excel 文件
'** strSQL 查询语句，就是要导出哪些内容
'** strSheetName 工作表名称
'** adoConn 已经打开的数据库连接
'** 函数返回:
'** Boolean 类型
'** True 成功导出模板
'** False 失败
'** 参考实例:
'** Call ExportTempletToExcel(c:\\text.xls,查询语句,工作表1,adoConn)
'************************************************
Private Function ExportTempletToExcel(ByVal strExcelFile As String, _
ByVal strSQL As String, _
ByVal strSheetName As String, _
ByVal adoConn As Object) As Boolean
Dim adoRt As Object
Dim lngRecordCount As Long ' 记录数
Dim intFieldCount As Integer ' 字段数
Dim strFields As String ' 所有字段名
Dim i As Integer
Dim exlApplication As Object ' Excel 实例
Dim exlBook As Object ' Excel 工作区
Dim exlSheet As Object ' Excel 当前要操作的工作表
On Error GoTo LocalErr
Me.MousePointer = vbHourglass
'// 创建 ADO 记彗@'"ykhI] Y] [] [] \ X[[] [[X\ [X\ K[\Y][ [ [[#I ]]I[[[YJU[ [IYI [[I [Y\ [[I ] \ [.9kel9.#y/&i*i&`9., cym' [Y\ K K K K K K [\KPPQ QKQQR RKRRS SKSST TKTTU UKUUV VKV [\АK K K K K K K ] \]
[Y\J[[II[YI ] \[ [[ ]
| 
转播
