Darren.NET

'Description：刪除已存在的工作表 - Ver. 1.01 'Parameters：wb 活頁簿, strWorkSheet 工作表名稱 'Return： 'Package：mFunction.F_Worksheet_isExist 'Reference： 'Creater：Darren.NET - 2009/04/21 'Modify： Public Sub S_Worksheet_DelSheet(wb As Workbook, strWorkSheet As String) On Error Resume Next Dim ws As Worksheet If mFunction.F_Worksheet_isExist(wb, strWorkSheet) = True Then Set ws = wb.Worksheets(strWorkSheet) ws.Delete End If Set ws = Nothing End Sub