GBKEE

¦^´_ 3# fusayloveme
ThisWorkbook   ÀÉ®×Ãö³¬®Éªº¹w³]µ{§Ç

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Me.SaveAs Filename:="C:\" & [A1] & "_" & Format(Date, "emmdd")
   
3. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# fusayloveme
Àx¦s¥X¨ÓªºÀɦW®æ¦¡·|¦h¥X¨Ó"Desktop"¡A½Ð°Ý¸Ó¦p¦ó¸Ñ¨M©O?      

¬O³o¼Ë¶Ü?   
Me.SaveAs Filename:="C:\Users\hyc\Desktop\" & [A1] & "_" & Format(Date, "emmdd")

GBKEE

¦^´_ 9# fusayloveme
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3.     Dim E As Workbook, xPath As String
   
4.     xPath = "C:\Users\hyc\Desktop\"
   
5.     For Each E In Workbooks                       'Workbooks: ª«¥ó¶°¦X(¬¡­¶Ã¯) ¤¤¨Ì§Ç³B¸Ì E (¬¡­¶Ã¯)
   
6.         If E.Name <> ThisWorkbook.Name Then       'µ{¦¡©Ò¦bªº¬¡­¶Ã¯¦WºÙ<>³B¸Ì E (¬¡­¶Ã¯)ªº¦WºÙ
   
7.             '¤£¬Oµ{¦¡½X©Ò¦bªº¬¡­¶Ã¯
   
8.             With E.Sheets(1)                      '¬¡­¶Ã¯ªº²Ä1­Ó¤u§@ªí
   
9.                 E.SaveAs xPath & .[a1] & Format(Date, "emmdd")
   
10.                 E.Close                           '¬¡­¶Ã¯ Ãö³¬ÀÉ®×
    
11.             End With
    
12.         End If
    
13.     Next
    
14. End Sub

½Æ»s¥N½X