编程论坛 » VB6论坛 » [原创]Access数据写入Excel源码

zwguan1987 发表于 2007-6-30 22:46

好<BR>

水手2006 发表于 2007-7-3 13:55

<P>好。学习一下。</P>

SnowFalling 发表于 2007-7-3 19:15

几天前下定决心学VB的原因之一就是为了解决这个问题而来的，真是踏破铁鞋无觅处，得来全不费功夫，谢谢了！！！！！

缘吇弹 发表于 2007-7-3 19:18

<P>英雄总给雨打风吹去?[em09]<BR>真今不怕红炉火,埋没的精华又出土了[em07]</P>

jqs1 发表于 2007-7-7 19:57

谢谢,我正在找,谢谢

静夜嘶 发表于 2007-7-8 02:16

二句不说,就支持你

jhwxy007 发表于 2007-7-9 01:17

用COPYFROMRECORDSET方法更好！

gylok 发表于 2007-7-9 01:27

好帖！学到知识了！

beibingyang 发表于 2007-7-17 15:05

我回复了怎么不能下！

zrgong 发表于 2007-7-17 22:23

我是先下载后回复，下去研究一下

sunwanosng 发表于 2007-7-21 16:17

回复：（longgen）[原创]Access数据写入Excel源码

<P>看看 </P>

cdut2004 发表于 2007-7-22 09:46

<P>寻求帮助！！！<BR><BR>我是用VB6.0和ACCESS编制一个职工信息管理系统。</P>
<P>数据源是通过数据工程中的数据环境设计器链接的。</P>
<P>其中有一段代码如下：</P>
<P>DataEnv.rsCommand1.Close<BR>DataEnv.rsCommand1.Open "select * " &amp; strSQL</P>
<P>在程序运行的时候经常会报如下的错误：“对象已经被打开！”</P>
<P>请求那位师兄知道这是什么原因吗？请求指导一下!!!</P>

wenbie2008 发表于 2007-7-23 16:22

看过,感觉不错!要是由SQL SERVER 导入SQL SERVER 可以吗?两个表的字段是不相同的,要怎么导呢?<BR>除了,SQL SERVER 自带的导入导出功能外,用代码要如何实现?各位帮帮忙啊!先谢了!

wenbie2008 发表于 2007-7-23 16:35

你将DataEnv.rsCommand1.Close<br>改成如下:if DataEnv.rsCommand1.State=adStateOpen then DataEnv.rsCommand1.Close<br>试试看啊,应该是可以通过的!
[align=right][color=#000066][此贴子已经被作者于2007-7-23 17:02:36编辑过][/color][/align]

dreamfour 发表于 2007-7-24 11:21

看了就要顶！！！

zerolove 发表于 2007-7-27 19:14

学习中

ry200w 发表于 2007-7-31 21:12

<P><FONT style="BACKGROUND-COLOR: #cccc33">Sub GetExcel()</FONT><br>'使用这段代码，可以打开一个Excel实例或者引用已经打开的Excel实例<br>    <br>    Const ERR_APP_NOTRUNNING As Long = 429<br>    On Error Resume Next<br>    Set MyXL = GetObject(, "Excel.Application")<br>    If Err = ERR_APP_NOTRUNNING Then<br>        Set MyXL = <FONT style="BACKGROUND-COLOR: #3352cc">New Excel.Application<br></FONT>    End If<br>    MyXL.Application.Visible = True<br>End Sub</P>
<P>编译错误 提示用户定义类型未定义</P>
<P>什么原因，请高手指点阿</P>
[align=right][color=#000066][此贴子已经被作者于2007-7-31 21:13:08编辑过][/color][/align]

xll999999 发表于 2007-8-3 09:51

ok

西风独自凉 发表于 2007-8-3 16:55

要是来一个excel转到sql server 2005  的就更好了[em05]

multiple1902 发表于 2007-8-3 16:57

<DIV class=quote><B>以下是引用<U>ry200w</U>在2007-7-31 21:12:00的发言：</B><BR>
<P><FONT style="BACKGROUND-COLOR: #cccc33">Sub GetExcel()</FONT><BR>'使用这段代码，可以打开一个Excel实例或者引用已经打开的Excel实例<BR>    <BR>    Const ERR_APP_NOTRUNNING As Long = 429<BR>    On Error Resume Next<BR>    Set MyXL = GetObject(, "Excel.Application")<BR>    If Err = ERR_APP_NOTRUNNING Then<BR>        Set MyXL = <FONT style="BACKGROUND-COLOR: #3352cc">New Excel.Application<BR></FONT>    End If<BR>    MyXL.Application.Visible = True<BR>End Sub</P>
<P>编译错误 提示用户定义类型未定义</P>
<P>什么原因，请高手指点阿</P><BR></DIV>
<p>引用一下Excel库

查看完整版本: [原创]Access数据写入Excel源码