[原创]Access数据写入Excel源码

介绍 Access数据写入Xls文件(附源码) :
1)建立Excel文件
2)用ADO读取Access文件中的数据写入Excel文件

环境 : Windows_XP_sp2 , Office2003_sp1, VB6_sp5

'--------------------------------------------------------------------------------
'系统           : VB练习
'子系统         : Access内容写入Xls
'程序           : Access数据写入Xls文件
'创建时间       : 2005/09/11  Ver 0.0.1 CLG
'模块           : Form1
'描述           : 1)建立Excel文件
'                 2)使用ADO读取Access文件中的数据写入Excel文件
'补充说明(环境) : Windows_XP_sp2
'                 Office2003_sp1,
'                 VB6_sp5
'引用           : Microsoft ActiveX Data Objects 2.5 Library
'                 Microsoft Scripting Runtime
'                 Microsoft Excel 11.0 Object Library(Office2003自带)
'                 更具体的环境部分还可直接用记事本查看程序目录中的<工程1.vbp>文件
'--------------------------------------------------------------------------------
Option Explicit
'--------------------------------------------------------------------------------
' 过程          : Form_Load
' 描述          : 界面初始化
' 参数          : --
'--------------------------------------------------------------------------------
..........................................
..........................................
'--------------------------------------------------------------------------------
' 过程          : Form_Unload
' 描述          : 释放对象
' 参数          : --
'--------------------------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
    Set Form1 = Nothing '释放空间
End Sub

回复后可以下载源码

[hide]

[/hide]

[此贴子已经被作者于2005-9-21 19:24:26编辑过]