Darren.NET

'Description：複製活頁簿到指定的活頁簿之後並做欄位範圍的刪除 - Ver. 1.00 'Parameters：ws1 被複製的工作表、CopySheetIndex 複製的工作表位置、SheetName 新工作表名稱、InsertSheetIndex 插入活頁簿位置、ColDel_Bef 保留欄位之前不需要的欄位範圍刪除、ColDel_Aft 保留欄位之後不需要的欄位範圍刪除 'Retrun： 'Package： 'Reference： 'Creater：Darren.NET - 2009/08/24 'Modify： Public Sub S_WorkSheet_CopyWsDelCol(ws As Worksheet, CopySheetIndex As Integer, SheetName As String, InsertSheetIndex As Integer, ColDel_Bef As String, ColDel_Aft As String) '複製工作表 ws.Copy After:=Worksheets(InsertSheetIndex) '先刪除後面不需要的欄位範圍可不用再計算刪除前面欄位的位置變更 If ColDel_Aft <> "" Then Worksheets(CopySheetIndex).Columns(ColDel_Aft).Delete End If '刪除前面不需要的欄位範圍 If ColDel_Bef <> "" Then Worksheets(CopySheetIndex).Columns(ColDel_Bef).Delete End If '新工作表名稱 Worksheets(CopySheetIndex).Name = SheetName '指標移到新工作表單元格(1,1) Worksheets(CopySheetIndex).Cells(1, 1).Select End Sub