设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 5569|回复: 9
打印 上一主题 下一主题

请问,打开EXCEL指定Sheet表的代码怎么写?

[复制链接]
跳转到指定楼层
1#
发表于 2012-1-10 22:49:34 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
看了坛子里的一个精华帖关于如何将ACCESS数据转换到EXCEL的,我就把源代码拷下来照做了一个,但因为对VB代码不懂,修改的时候遇到了一些问题,请老师指导,谢谢!
问题如下:
如何将数据导到Excel的指定Sheet表中(如Sheet1)
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2012-1-10 22:54:59 | 只看该作者
帖上我的代码,中间那段用于指定填充内容地点的代码已省略,请在问号处把代码加上,谢谢:

Dim xlapp As Object
Set xlapp = CreateObject("excel.application")
Dim i As Long

xlapp.Application.Visible = True
Set xlbook = xlapp.workbooks.Open(CurrentProject.Path & "\Master List for Records.xls")
????

Next

Set xlapp = Nothing

End Sub
3#
 楼主| 发表于 2012-1-10 23:48:30 | 只看该作者
本帖最后由 bshchangss 于 2012-1-10 23:50 编辑

另外,我想问问下面这句是什么意思?
For i = 1 To Me.history.Form.RecordsetClone.RecordCount
我想要复制上面这句加以修改,变成对应窗体里的另一个子窗体,但不是简单的把窗体名改掉就可以,我把它改为下面这样:
For i = 1 To Me.defectrecord.Form.RecordsetClone.RecordCount
就会提示我"For变量已在使用",应该怎么修改啊?
{:soso_e101:}
4#
发表于 2012-1-11 00:47:34 | 只看该作者
Me.defectrecord.Form.RecordsetClone.RecordCount
当前窗体defectrecord子窗体的记录数
5#
发表于 2012-1-11 00:57:46 | 只看该作者
bshchangss 发表于 2012-1-10 23:48
另外,我想问问下面这句是什么意思?
For i = 1 To Me.history.Form.RecordsetClone.RecordCount
我想要复 ...

1、貌似要先MoveLast,再MoveFirst才能计算出RecordCount。
2、建议使用完i变量后,设置变量为0。如果有For语句嵌套,注意不能使用两个相同的变量。
3、建议传上附件。
6#
发表于 2012-1-11 09:30:00 | 只看该作者
roych 发表于 2012-1-11 00:57
1、貌似要先MoveLast,再MoveFirst才能计算出RecordCount。
2、建议使用完i变量后,设置变量为0。如果有 ...

请问,为何用完i变量后,设置变量为0的?
7#
发表于 2012-1-11 09:51:51 | 只看该作者
for i=1 to 20
………………
Next i
i=0

8#
 楼主| 发表于 2012-1-12 19:20:48 | 只看该作者
本帖最后由 bshchangss 于 2012-1-12 19:51 编辑

已将此内容转到ACCESS版
9#
 楼主| 发表于 2012-1-12 19:29:14 | 只看该作者
附件超大了,我该怎么办??
我只能发1.95M。这个有2.3M{:soso_e101:}
10#
发表于 2021-2-28 19:25:18 来自手机 | 只看该作者
,11111111
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 07:19 , Processed in 0.082613 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表