´Ñ»y³¾»ï

¦^´_ 4# GBKEE
³o¥y¤£ª¾­þ¸Ì¥X¿ù==>For Each E In .VBProject.VBComponents                       '¬¡­¶Ã¯±M®×¤¤¤¸¥óªº¶°¦Xª«¥ó
¥X²{¿ù»~1004:
¤£«H¥ô¥Hµ{¦¡³]­p¤è¦¡¦s¨úvisual Basic±M®×

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

´Ñ»y³¾»ï

¦^´_ 2# GBKEE
½Ð°Ý"GBKEE"¤j¤j¡A
1.¦p¦ó­×§ï¦¹¥¨¶°¡AÅý¥¦¥u¥t¦s«ü©wªºsheet(³æ¤@­Ósheet)´N¦n¡A¦Ó¤£­n¾ã­ÓÀɮ׳£¹L¥h(¥¨¶°¤]¤£­n¹L¥h)!
2.¦p¦ó±N¦¹ÀÉ®×Åܦ¨2003ªº.xls®æ¦¡?

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