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

²¾°ÊÀɮשθê®Æ§¨

²¾°ÊÀɮשθê®Æ§¨

¦bEXCEL A1 Äæ¦ì  ¬° C:\A
              B1 Äæ¦ì  ¬° D:\SAVE\
              C1 Äæ¦ì:  ¬° E:\SAVE\  

¦p¦ó¥Î¥¨¶°,±N  A¸ê®Æ§¨ ²¾°Ê¦Ü D:\SAVE\ ¤¤
               ¦A±N A¸ê®Æ§¨ COPY¦Ü  D:\SAVE\ ¤¤  



³Â·Ð.

¤£´N¬O½Æ»s2¦¸µM«á§R°£¶Ü?
  1. Sub ex()
  2. Set fd = CreateObject("Scripting.FileSystemObject")
  3. fd.copyfolder [A1], [B1] '½Æ»s¨ìD:\TEST\
  4. fd.copyfolder [A1], [C1] '½Æ»s¨ìE:\TEST\
  5. fd.DeleteFolder [A1] '§R°£C:\A
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ª©¥D.ÁÂÁÂ,

¨º¦A½Ð±Ð, ¦p¥u¬O²¾°Ê¸ê®Æ§¨¤º¤§©Ò¦³ÀÉ®×..¤£ª¾,À³¦p¦ó¼g?

TOP

¦^´_ 3# tomking
  1. Sub nn()
  2. Set fds = CreateObject("Scripting.filesystemobject")
  3. fd = "C:\A\" '¨Ó·½Àɮ׸ê®Æ§¨
  4. fs = Dir(fd) '¨Ó·½Àɮ׸ê®Æ§¨¤ºªºÀɮצW
  5. Do Until fs = "" 'ª½¨ìŪ¨úÀɮצW¬OªÅ¦r¦ê
  6. If fds.FileExists("D:\TEST\" & fs) Then Kill "D:\TEST\" & fs '¦pªGÀɮפw¸g¦s¦b´N¥ý§R°£ÀÉ®×
  7.    fds.movefile fd & fs, "D:\TEST\" '²¾°ÊÀɮרì¥Ø¼Ð¸ê®Æ§¨
  8. fs = Dir '¤U¤@­ÓÀÉ®×
  9. Loop
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁÂ.. ª©¥D,

TOP

¦^´_ 1# tomking


  ³o­Ó¥¨¶°§Ú­è¦n»Ý­n   ÁÂÁÂ:D
KELLY

TOP

¦^´_ 4# Hsieh


    ª©¥D~·Q½Ð°Ý ¦pªG·Q²¾°Ê«ü©wÀÉ®× ²¾°Ê¨ì¥t¤@¸ê®Æ§¨©O?
¦P¥Ø¿ý
ex:
¥Ø«e¨Ï¥Î¥¨¶°¬O¥H¤@­Ó[ÀÉ®×1] «Ø¥ß[ÀÉ®×2]¨Ã¦Û°Ê¨ÌÀx¦s®æ¦WºÙ¦sÀɦÜ
D:\¥Ø¿ý\¶i¦æ
ÀÉ®×1.xls           ActiveWorkbook.SaveAs Filename:="D:\¥Ø¿ý\¶i¦æ " &  Range("B5") & "-" & Format(Range("B2"), "yyyymmddhhss") & Range("C2") & ".xlsm"
¦]§Ú¦³¦A[ÀÉ®×2]©I¥sÀɮצWºÙ¨Ã¶K¦Ü[ÀÉ®×1]AN3,·Q½Ð°Ý­n«ç»òÅý¸ô®|¥i¥H¬O¥ÎŪ¨úÀx¦s®æ¨Ó°µÅÜ°Ê©O?
²¾°Ê¦Ü¥H¤U¸ô®|
«ü©wÀɦW  D:\¥Ø¿ý\¶i¦æ\[AN3]      
²¾°Ê¦Ü      D:\¥Ø¿ý\µ²§ô

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD