Darren.NET

'Description：第幾個工作表後方插入新工作表 - Ver. 1.01 'Parameters：wb 活頁簿, strWorkSheet 建立的工作表名稱, intWsAfter 第幾個工作表 'Retrun：Boolean 'Package： 'Reference： 'Creater：Darren.NET - 2009/04/20 'Modify： Public Function F_Worksheet_InsWsAfter(wb As Workbook, strWorkSheet As String, intWsAfter As Integer) As Boolean On Error Resume Next Dim ws As Worksheet Set ws = wb.Worksheets.Add(After:=wb.Worksheets(intWsAfter)) If Not ws Is Nothing Then ws.Name = strWorkSheet F_Worksheet_InsWsAfter = True End If Set ws = Nothing End Function