[µo°Ý] ¦p¦ó¦b§PÂ_¦³µLÀɮ׫á,¦³«h°õ¦æ µL«h®Ì¹L©O?

starry1314

Sub ´_­ìÀÉ®×()
    Set fs = CreateObject("Scripting.FileSystemObject")
    aa = Range("AN3").Value 'Ū¨ú¦WºÙ¨M©w­n²¾°Ê­þ­Ó«ü©wÀÉ®×
    ab = Range("AN4").Value 'Ū¨ú¦WºÙ¨M©w­n²¾°Ê­þ­Ó«ü©wÀÉ®×
    fs.movefile "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\105\µ²§ô\" & aa & "", "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\¶i¦æ\"
    fs.movefile "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\105\µ²§ô\" & ab & "", "\\boss-pc\¤½¥ÎºÏ°Ï\¼Æ¾Ú\¤pÀ\³æ\¶i¦æ\"
End Sub
¦]¬°¤£·|¼g¦A¤@°_,©Ò¥H¬O±N¤W¤è«ü¥O©î¦¨¨â¬q,


ª¾¹D¬O¥Îif ©M else  ¦ý¼g¦n«á ¥u§PÂ_¦³µLÀÉ®×,«o¨S¦³°õ¦æ..