如何判断工作表是否存在？

ahoneyman

用Excel Vba 写一段小程序,需要判断当前工作簿中的某一工作表是否存在,同时还要判断当前工作表中某一列是否存在,

如何做???

红池坝

sheet(i).name="工作表名"

某列的数据，其实就是某个单元格的数据，需要判断你的列标题位于某行，假如列标题在第一行：

for i=1 to m     '(m为最后一列）

if cells(1,i)="要查找的列的标题"' then '判断

'需要处理的代码

endif

next i

ahoneyman

需要判断当前工作簿中的某一工作表是否存在?

Bluelost

我想斑竹已经给出怎么判断工作表存在的办法了吧.
sheet(i).name="工作表名"

那么你可以这样:
for i =1 to 5
if sheet(i).name="表名" then
msgbox("表名 存在")
end if
next

我只是根据斑竹给的式子推论的,还没验证

刚才试了下,这样不行的.办法我再找找看

[此贴子已经被作者于2006-5-13 9:44:16编辑过]