注册 登录
编程论坛 → VB6论坛

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

longgen 发布于 2005-09-12 10:44， 77527 次点击

介绍 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编辑过]


361 回复
#102
水手20062007-07-03 13:55

好。学习一下。
#103
SnowFalling2007-07-03 19:15
几天前下定决心学VB的原因之一就是为了解决这个问题而来的，真是踏破铁鞋无觅处，得来全不费功夫，谢谢了！！！！！
#104
缘吇弹2007-07-03 19:18

英雄总给雨打风吹去?
真今不怕红炉火,埋没的精华又出土了
#105
jqs12007-07-07 19:57
谢谢,我正在找,谢谢
#106
静夜嘶2007-07-08 02:16
二句不说,就支持你
#107
jhwxy0072007-07-09 01:17
用COPYFROMRECORDSET方法更好！
#108
gylok2007-07-09 01:27
好帖！学到知识了！
#109
beibingyang2007-07-17 15:05
我回复了怎么不能下！
#110
zrgong2007-07-17 22:23
我是先下载后回复，下去研究一下
#111
sunwanosng2007-07-21 16:17
回复：（longgen）[原创]Access数据写入Excel源码

看看

#112
cdut20042007-07-22 09:46

寻求帮助！！！

我是用VB6.0和ACCESS编制一个职工信息管理系统。

数据源是通过数据工程中的数据环境设计器链接的。

其中有一段代码如下：

DataEnv.rsCommand1.Close
DataEnv.rsCommand1.Open "select * " & strSQL

在程序运行的时候经常会报如下的错误：“对象已经被打开！”

请求那位师兄知道这是什么原因吗？请求指导一下!!!
#113
wenbie20082007-07-23 16:22
看过,感觉不错!要是由SQL SERVER 导入SQL SERVER 可以吗?两个表的字段是不相同的,要怎么导呢?
除了,SQL SERVER 自带的导入导出功能外,用代码要如何实现?各位帮帮忙啊!先谢了!
#114
wenbie20082007-07-23 16:35
你将DataEnv.rsCommand1.Close
改成如下:if DataEnv.rsCommand1.State=adStateOpen then DataEnv.rsCommand1.Close
试试看啊,应该是可以通过的!

[此贴子已经被作者于2007-7-23 17:02:36编辑过]
#115
dreamfour2007-07-24 11:21
看了就要顶！！！
#116
zerolove2007-07-27 19:14
学习中
#117
ry200w2007-07-31 21:12

Sub GetExcel()
'使用这段代码，可以打开一个Excel实例或者引用已经打开的Excel实例

Const ERR_APP_NOTRUNNING As Long = 429
On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err = ERR_APP_NOTRUNNING Then
Set MyXL = New Excel.Application
 End If
MyXL.Application.Visible = True
End Sub

编译错误 提示用户定义类型未定义

什么原因，请高手指点阿

[此贴子已经被作者于2007-7-31 21:13:08编辑过]
#118
xll9999992007-08-03 09:51
ok
#119
西风独自凉2007-08-03 16:55
要是来一个excel转到sql server 2005  的就更好了
#120
multiple19022007-08-03 16:57
以下是引用ry200w在2007-7-31 21:12:00的发言：

Sub GetExcel()
'使用这段代码，可以打开一个Excel实例或者引用已经打开的Excel实例

Const ERR_APP_NOTRUNNING As Long = 429
On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err = ERR_APP_NOTRUNNING Then
Set MyXL = New Excel.Application
 End If
MyXL.Application.Visible = True
End Sub

编译错误 提示用户定义类型未定义

什么原因，请高手指点阿


引用一下Excel库
#121
西风独自凉2007-08-03 16:57
DataEnv.rsCommand1.Close
DataEnv.rsCommand1.Open "select * " & strSQL

把上面一句改为
set DataEnv.rsCommand1=nothing 试下
这样应该可以吧
#122
asanysoft2007-08-06 15:19

我也有一个程序，就用到了这个技术，不过我已经写完了，但我还是要下下来看看。
博百家之所长啊。
#123
cccool2007-08-06 18:47

学习！！
#124
sondy2007-08-14 22:29

学习学习！！！！！！！！！！！！！！！！！！！！！！！！！！！！
#125
gsgang12172007-08-26 09:30
xiexie
#126
vbtom2007-10-09 16:03
衷心感谢！
#127
czh18992007-10-19 12:57
好
#128
lal802007-10-19 13:34

看看
#129
ningyuxuan2007-12-22 14:19
谢谢
谢谢，很有用的
#130
ALOYS2007-12-23 11:39
我要学习
#131
leeqfy2007-12-25 23:01
顶一下
#132
fanglanlan2007-12-26 07:50
刚好用到，看看
#133
fanglanlan2008-01-08 11:51
zai ding yi ci
#134
hoegs2008-01-10 00:18
强人之作啊
强人之作啊，向你 习
#135
mark02892008-01-22 21:10
太好了，需要的东西
#136
朗朗2008-01-23 17:52
我也看看
#137
xqm2008-01-24 11:41
看看！
看看！
#138
chenling100002008-01-25 16:51
我也想学习学习!
#139
isky0072008-02-19 21:20
学习一下哦！
#140
isky0072008-02-19 21:20
回复 1# 的帖子
看看！
#141
hailinwang2008-02-19 23:52
我也看看
#142
appleuser2008-02-21 17:26
看看
#143
jfzljb5202008-02-23 12:11
学习一下！顶！
#144
尐妖2008-02-27 15:06
下来参考参考
#145
ycying2008-02-27 19:49
好吧！谢谢！
#146
chenling100002008-02-28 16:32
学学!
#147
wanghongmao2008-02-29 14:21
[bc01] [bc02]
#148
dgwdgw2008-02-29 19:02
我要学习，好好看看
#149
conancloyle2008-03-01 11:28
顶
看看       恩  不错
#150
sex_is_zero2008-03-03 14:40
楼主，反过来可以吗
#151
kangguiwen2008-03-03 15:23
我也看看
·！！
12345678
©2025, BC-CN.NET
电脑版