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

tomking

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

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



³Â·Ð.

Hsieh

¤£´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

tomking

ª©¥D.ÁÂÁÂ,

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

Hsieh

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

tomking

·PÁÂ.. ª©¥D,

tamami

¦^´_ 1# tomking


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

starry1314

¦^´_ 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:\¥Ø¿ý\µ²§ô