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

[µo°Ý] Ãö©óSave_Name¸ô®|¹ïÀ³¬O§_¥i¥H¬°¦h­ÓÀx¦s®æ?

[µo°Ý] Ãö©óSave_Name¸ô®|¹ïÀ³¬O§_¥i¥H¬°¦h­ÓÀx¦s®æ?

Save_Name = "\\172.16.209.199\¤@¯ëuser¥Î\Backup\" & [A2] & "-" & [F2]:[F50] & "­qÁʤF" & SUMEE & "Á`ª÷ÃB¬°" & SUMDD & ".xls"

[F2]:[F50]¥X²{¤F¿ù»~~¦ý¬O¦pªG­n¤@­Ó¤@­Ó«ö[F2] & [F3] &........¤]¬O¥i¥H
¬O§_¦³§ó§Öªº¤èªk©O?ÁÂÁÂ!

­n¥ý³B²z¹L¡ARange¦ü¥Gªkª½±µ¨ú±o¦r¦êªº¼Ë¤l¡A
§A¥ý¥[¤J­Ófor next±NÀx¦s®æ¤º®e¨ú±o§a

msg=""
for I = 2 to 50

       msg=cells(I,6) & msg

next I


Save_Name = "\\172.16.209.199\¤@¯ëuser¥Î\Backup\" & [A2] & "-" & msg & "­qÁʤF" & SUMEE & "Á`ª÷ÃB¬°" & SUMDD & ".xls"

TOP

ÁÙ¬O§A¬O­n¨Ì¤£¦PÀx¦s®æ¦s¦¨¤£¦PÀɮתº¸Ü´N§âSave_Name©ñ¤Jfor¸Ì­±

for I = 2 to 50

       Save_Name = "\\172.16.209.199\¤@¯ëuser¥Î\Backup\" & [A2] & "-" & cells(I,6) & "­qÁʤF" & SUMEE & "Á`ª÷ÃB¬°" & SUMDD & ".xls"

next I

TOP

¦^´_ 2# doom834
§ï³o¼Ë¬Ý¬Ý
Save_Name = "\\172.16.209.199\¤@¯ëuser¥Î\Backup\" & [A2] & "-" & Join(Application.Transpose([F2:F50])) & "­qÁʤF" & SUMEE & "Á`ª÷ÃB¬°" & SUMDD & ".xls"

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD