GBKEE

¦^´_ 1# ´Ñ»y³¾»ï

1. Sub Ex()
   
2.     With ActiveWorkbook      '§@¥Î¤¤ªº¬¡­¶Ã¯
   
3.         'ThisWorkbook        'µ{¦¡½X©Ò¦bªº¬¡­¶Ã¯
   
4.         'WorkbookS(1)        '«ü©w ¶}±Ò¬¡­¶Ã¯¤¤ªº¯Á¤Þ­È
   
5.         'WorkbookS("Test")   '«ü©ú¶}±Ò¬¡­¶Ã¯¤¤ªº¦WºÙ
   
6.         .SaveCopyAs Sheets(1).[B2] & Sheets(1).[B1] & "." & Split(.Name, ".")(1)
   
7.         '.SaveCopyAs   ¥t¦s·sÀɪº¤èªk
   
8.         'Split(.Name, ".")(1) ->¶Ç¦^¬¡­¶Ã¯ªº°ÆÀɦW
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# ´Ñ»y³¾»ï

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Object
   
4.     ActiveWorkbook.Sheets(1).Copy     '½Æ»sSheets(1) ¤@±i¤u§@ªí¨ì·sªº¬¡­¶Ã¯
   
5.     With ActiveWorkbook               '½Æ»s«áªº·s¬¡­¶Ã¯¬O  **§@¥Î¤¤ªº¬¡­¶Ã¯**
   
6.         For Each E In .VBProject.VBComponents                       '¬¡­¶Ã¯±M®×¤¤¤¸¥óªº¶°¦Xª«¥ó
   
7.             E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines   '§R°£©Ò¦³ªºµ{¦¡½X
   
8.         Next
   
9.         .SaveCopyAs .Sheets(1).[B2] & .Sheets(1).[B1] & "." & Split(.Name, ".")(1)
   
10.         .Close False                  'Ãö³¬ÀÉ®× (¤£¦sÀÉ)
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# ´Ñ»y³¾»ï

1. Sub Ex()
   
2.     Dim Bo As Workbook, E As Object, S As String
   
3.     Set Bo = ActiveWorkbook
   
4.     Bo.Sheets(1).Copy     '½Æ»sSheets(1) ¤@±i¤u§@ªí¨ì·sªº¬¡­¶Ã¯
   
5.     With ActiveWorkbook               '½Æ»s«áªº·s¬¡­¶Ã¯¬O  **§@¥Î¤¤ªº¬¡­¶Ã¯**
   
6.         For Each E In .VBProject.VBComponents                       '¬¡­¶Ã¯±M®×¤¤¤¸¥óªº¶°¦Xª«¥ó
   
7.             E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines   '§R°£©Ò¦³ªºµ{¦¡½X
   
8.         Next
   
9.         .SaveCopyAs .Sheets(1).[B2] & .Sheets(1).[B1] & "." & IIf(Bo.Path <> "", Split(Bo.Name, ".")(1), "xls")
   
10.         .Close False                  'Ãö³¬ÀÉ®× (¤£¦sÀÉ)
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# ´Ñ»y³¾»ï

1. Sub Ex()
   
2.     Dim Bo As Workbook, Save_Name  As String, E As Object
   
3.     With ActiveWorkbook             '***  ­n½Æ»sªº¬¡­¶Ã¯ ***
   
4.                                     'ActiveWorkbook      '§@¥Î¤¤ªº¬¡­¶Ã¯
   
5.                                     'ThisWorkbook        'µ{¦¡½X©Ò¦bªº¬¡­¶Ã¯
   
6.                                     'WorkbookS(1)        '«ü©w ¶}±Ò¬¡­¶Ã¯¤¤ªº¯Á¤Þ­È
   
7.                                     'WorkbookS("Test")   '«ü©ú¶}±Ò¬¡­¶Ã¯¤¤ªº¦WºÙ'
   
8.         Save_Name = .Sheets(1).[B2] & .Sheets(1).[B1] & ".xls"
   
9.         .Sheets("¤u§@ªí¦WºÙ").Copy     '«ü©w½Æ»s¤@±i¤u§@ªí¨ì·sªº¬¡­¶Ã¯
   
10.     End With
    
11.     With ActiveWorkbook               '½Æ»s«áªº·s¬¡­¶Ã¯¬O  **§@¥Î¤¤ªº¬¡­¶Ã¯**
    
12.         For Each E In .VBProject.VBComponents                       '¬¡­¶Ã¯±M®×¤¤¤¸¥óªº¶°¦Xª«¥ó
    
13.             E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines   '§R°£©Ò¦³ªºµ{¦¡½X
    
14.         Next
    
15.         .SaveCopyAs Save_Name
    
16.         .Close False                  'Ãö³¬ÀÉ®× (¤£¦sÀÉ)
    
17.     End With
    
18. End Sub

½Æ»s¥N½X