[µo°Ý] ½Ð±Ð¤@¤U¡A«Ø¥ßÀÉ®×°ÝÃD~

fusayloveme

¦U¦ìª©¤W¤j¤j¦n¡A¤p§Ì§Ú¦³´X­Ó°ÝÃD¡A°²³]§ÚªºSheet1¤¤ªºA1¬O"E004128"¡A§Ú¸Ó¦p¦ó¨Ï¥ÎVBA¡A

Åý§Ú¦b¥t¦s·sÀɮɡA¯à°÷Åý¦sÀɦWºÙÅã¥Ü¬°E004128_¥Ø«e®É¶¡(EX.E004128_1010116¡A©ú¤Ñªº¸Ü´N¬OE004128_1010117 )©O!?

¥ýÁÂÁ¦U¦ì¤j¤jªº¦^µª~·P®¦!

jackdream

¦sÀɦWºÙÅã¥Ü¬°E004128_¥Ø«e®É¶¡(EX.E004128_1010116

°Ñ¦Ò¬Ý¬Ý~(¹w³]Àx¦s¸ô®|¬°C:\ )
ActiveWorkbook.SaveAs Filename:="C:\" & [A1] & "_" & Format(Date, "yyyymmdd")

¦pªG­n§ï¦¨¥Á°ê¦~..
ActiveWorkbook.SaveAs Filename:="C:\" & [A1] & "_" & Format(Date, "emmdd")

fusayloveme

¦^´_ 2# jackdream

¤j¤j¡A¤£¦n·N«ä~¤p§Ì¤ñ¸û·M¬N¡A¯à§_µ¹¤ñ¸û§¹¾ãªº¥¨¶°³]©w¡A¤p§Ì¦Û¦æ¹Á¸Õ¤F¤@¤U¡AÀɮצWºÙ¬O§ï¦¨§Ú­nªº¨S¿ù³á¡A¦ý¦n¹³µLªk¦Û°Ê¦sÀÉ~^^"

¥ýÁÂÁ¤j¤jªº¼ö¤ß«ü¾É! ·P®¦^_^

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

fusayloveme

¦^´_ 4# GBKEE

GB¤j¤j~§Ú¹Á¸Õ§â±zªº¥N½X©ñ¶i¥h~«á­±¡A¦ý¨t²Î»¡¥²¶·­n¦³¤@­ÓEnd Sub¡A½Ð°Ý§Ú¸Ó¦p¦ó¸Ñ¨M>< §Ú¯uªº«Ü·s¤â...

1. Sub Macro1()
   
2. ChDir "C:\Users\hyc\Desktop" ¬O§Ú¥Î¿ý»s¥¨¶°ªº¤è¦¡~§ì¥X¨Óªº
   
3. ActiveWorkbook.SaveAs Filename:="C:\Users\hyc\Desktop" & [A1] & "_" & Format(Date, "emmdd")
   
4. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
5.     Me.SaveAs Filename:="C:\Users\hyc\Desktop" & [A1] & "_" & Format(Date, "emmdd")
   
6. End Sub

½Æ»s¥N½X

register313

¦^´_ 5# fusayloveme

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

½Æ»s¥N½X

GBKEEª©¥D¤§µ{¦¡½X¬O­n©ñ¦bThisWorkbook¤º

¤U¸ü (82.39 KB)

2012-1-17 11:34

Ãö³¬Àɮ׮ɷ|¦Û°ÊÀx¦s

fusayloveme

¦^´_ 6# register313

³á³á~¤F¸Ñ!~§Ú­è­è¹Á¸Õ¤F¤@¤U¡A¨Ì·Ó±zµ¹ªº¥N½X©ñ¶i¥h¨º­Ó" thiswookbook"¡AÀx¦s¥X¨ÓªºÀɦW®æ¦¡·|¦h¥X¨Ó"Desktop"¡A½Ð°Ý¸Ó¦p¦ó¸Ñ¨M©O?

¥t¥~¡A¨ä¹ê§Ú·Q°Ý³o­Ó°ÝÃDªº³Ì¥D­n­ì¦]¡A¬O¦pªG§Ú±qACCESS§ì¸ê®Æ¤U¨Ó¨ìEXCEL¡A§Ú­nª½±µÅý¹q¸£...§ì¨ú¸ê®Æ¡B¦s¨ú¸ê®Æ(Àx¦sªº®æ¦¡´N¬O¹³§ÚÁ¿ªº¨º¼Ë¡AA1_²{¦b®É¶¡)¡A

µM«á¦Û°Ê¤Æ¡A¤£¾å±o³o¼Ë¦³¨S¦³¿ìªk°µ¨ì¡A¨Ã«D¬O³æ¤@­ÓEXCEL§@·~¡AµM«áÀx¦sÀÉ®×(¦]¬°¦pªG¬O³o¼Ë¡A¦Û¤v¿é¤JÀɦW¡A¥i¯à·|§Ö¤@¨Ç..)


¥ýÁÂÁ¦U¦ìªº¸Ñµª~^_^

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")

fusayloveme

¦^´_ 8# GBKEE

·PÁÂGBKEE¤j~¤w¦¨¥\¸Ñ¨M§xÂZ~^^"

¥t¥~¡A¨ä¹ê§Ú·Q°Ý³o­Ó°ÝÃDªº³Ì¥D­n­ì¦]¡A´N¹³§Ú7¼Ó©Ò»¡ªº¨º¼Ë¡A¤£¾å±o¥i§_§Q¥Î¥¨¶°°µ¨ì©O?~ÁÂÁÂ

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