ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦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®¦!

¦^´_ 10# GBKEE

¤Ó·PÁ¤j¤j¦^´_!¥i±¤ªº¬O¤p§Ì²Â©å¡A¤£¤Ó²M·¡¬ÛÃöµ{¦¡½X©Ò¥Nªíªº·N«ä ><¡A§Ú§V¤O¹Á¸Õ¬Ý¬Ý~¥ýÁÂÁ¤j¤j±zªº¸Ñµª~^^

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-1-17 20:37 ½s¿è

¦^´_ 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

TOP

¦^´_ 8# GBKEE

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

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

TOP

¦^´_ 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")

TOP

¦^´_ 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¦ìªº¸Ñµª~^_^

TOP

¦^´_ 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¤º


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

TOP

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 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®¦^_^

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD