[求助]如何列出全部的Sheet名?

chul72

在VBA中如何利用代码得到全部的Sheet名?和每个Sheet中的列名.

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

HeyEric

这个简单了。dim ws as worksheet

for each ws in worksheets

    msgbox ws.name

next



搞定！

HeyEric

Sheet的列名是个什么概念？不懂ing。。。

chul72

我也不懂,反正我要的是每列第一行的数据.另外你的dim ws as worksheet

for each ws in worksheets

    msgbox ws.name

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

HeyEric

哦，你说的列名就是每一列的第一行数据？那也简单啊，

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

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

chul72

能写个示例吗?谢乐

HeyEric

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

chul72

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