[已解决]求助！获取所有工作表名称的代码

flh1000

我有个表有60张工作表，我想获取所有工作表名称之后，制作书签，请问如何用vba获取后写在第一张表的a列呢？
sub sheet_name()
dim i%
for i=1 to sheets.count
     sheet1.cells(i,1)=? 这不知道如何写
next
end sub
请高手指点，多谢

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-9 14:44

sub sheet_name()
dim i%
for i=1 to sheets.count
     sheet1.cells(i,1)=sheets(i).name
next
end sub

跳转到最佳答案楼层

mxg825

sub sheet_name()
dim i%
for i=1 to sheets.count
     sheet1.cells(i,1)=sheets(i).name
next
end sub

flh1000

mxg825 发表于 2011-11-9 14:44
sub sheet_name()
dim i%
for i=1 to sheets.count

晕，我之前这么写不行！多谢了，试验了下可以