【求助】工作表是否存在

[Peter H.]

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

[cinta3344]

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

try this:

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

[Peter H.]

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

[leonchou]

不用 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