Office中国论坛/Access中国论坛

标题: [求助]如何列出全部的Sheet名? [打印本页]

作者: chul72 时间: 2005-5-28 07:25
标题: [求助]如何列出全部的Sheet名?
在VBA中如何利用代码得到全部的Sheet名?和每个Sheet中的列名.

我的一个Access应用中需要解决该问题.先谢大伙了!!

作者: HeyEric 时间: 2005-5-28 08:13
这个简单了。dim ws as worksheet

for each ws in worksheets

msgbox ws.name

next

搞定！

作者: HeyEric 时间: 2005-5-28 08:14
Sheet的列名是个什么概念？不懂ing。。。

作者: chul72 时间: 2005-5-28 17:47
我也不懂,反正我要的是每列第一行的数据.另外你的dim ws as worksheet

for each ws in worksheets

msgbox ws.name

next方法用在ACCESS的VBA中就不灵光了,是不是先要引用"Microsoft Excel 10.0 Object Library",然后再打开文件什么的.具体的我也没搞明白.

作者: HeyEric 时间: 2005-5-28 18:09
哦，你说的列名就是每一列的第一行数据？那也简单啊，

dim i as integerfor i =1 to maxcol'前用方法获得maxcolmsgbox activesheet.cells(1,i).valuenext至于你说的在Access中用那当然得先建立excel对象了，我提供的方法是在excel里用。

的确需要引用excel对象，然后Createobject("Excel.Application")而已啊。和和。。

作者: chul72 时间: 2005-5-28 18:25
能写个示例吗?谢乐

作者: HeyEric 时间: 2005-5-28 18:34
[attach]10783[/attach]

在form1里的按钮，当然，先把文件解压到同一目录即可

作者: chul72 时间: 2005-5-28 18:59
非常感谢.我把这个问题和[求助]怎样用代码为XLS文件加上密码放在一起请教吧.那就是在你的示例里如何打开带密码的XLS?

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)