Excel利用VBA判斷工作表是否存在

下面的VBA代碼可以判斷當前Excel工作簿中的某個工作表是否存在，如果指定的工作表不存在，則以指定的工作表名新建一個工作表，如果指定的工作表已存在，則給出一個提示，并激活該工作表。下例中指定的工作表標簽為“一月”，可根據實際進行修改。

Sub IsSheetExist()Dim ws As WorksheetDim sName As StringsName = "一月" ‘指定工作表On Error Resume NextSet ws = Sheets(sName)If ws Is Nothing Then ‘指定的工作表不存在Sheets.Add.Name = sNameElse ‘指定的工作表已存在MsgBox "“" & sName & "”工作表已存在。"ws.ActivateEnd IfEnd Sub