我想知道是否存在干凈的功能，如果工作簿中的工作表存在，則返回True或False？如果可以在不跳過錯誤處理的情況下做到這一點，那將是很好，但不是必須的。我發現的唯一東西并沒有真正起作用：On Error Resume NextIf (Worksheets("wsName").Name <> "") Then Debug.Print "Worksheet exists!"Else Debug.Print "Worksheet doesn't exist!"End IfOn Error GoTo ErrHandler
3 回答
溫溫醬
TA貢獻1752條經驗 獲得超4個贊
沒有內置功能。
Function SheetExists(SheetName As String, Optional wb As Excel.Workbook)
Dim s As Excel.Worksheet
If wb Is Nothing Then Set wb = ThisWorkbook
On Error Resume Next
Set s = wb.Sheets(SheetName)
On Error GoTo 0
SheetExists = Not s Is Nothing
End Function
添加回答
舉報
0/150
提交
取消