【求助】工作表是否存在
 

請問
sname=某工作表名稱
除了以activate來測試該工作表是否存在
還有什麼方法可以得知該工作表是否存在
creatobject可以嗎,怎麼用

Re: 【求助】工作表是否存在
 

[QUOTE][i]最初由 Peter H. 發表[/i]
[B]請問
sname=某工作表名稱
除了以activate來測試該工作表是否存在
還有什麼方法可以得知該工作表是否存在
creatobject可以嗎,怎麼用 [/B][/QUOTE]

try this:

dim s as object
for each s in worksheets
if s.name="sheet1" then
msgbox s.name & "is exist!"
end if
next
注意字串大小寫

題目沒有說清楚
若該工作表存在,則activate該工作表
若該工作表不存在,則新增該工作表

不用 createobject.

sname = "New Sheet": notfound = True
For Each s In Worksheets
If s.Name = sname Then
notfound = False
s.Activate: Exit For
End If
Next
If notfound Then Worksheets.Add.Name = sname