[µo°Ý] µ{¦¡¤º®e»¡©ú

baa168

½Ð±Ð¦U¦ì¥ý¶i¥H¤Uµ{¦¡½X»¡©ú   '¤§«á¬°­Ó¤H»{ª¾¤£ª¾¬O§_¥¿½T   
               
        FilePath = ThisWorkbook.Path     '¦¹¥÷¬¡­¶Ã¯¦s©ñ¦ì¸mex:c\excelvba ¸ê®Æ§¨
        FileName = "DB" & Yx & ".csv"     'ÀɮצWºÙ=DByx.csv
        Name FilePath & "\" & FileName As FilePath & "\x" & FileName      '§¹¥þ¤£À´??
¥H¤W
³Â·Ð¦U¦ì¤F

baa168

­ì¨Ó¬O³o­Ó¼Ë¤l·PÁÂoobirdÄÀºÃ

oobird

§A§âÅܼÆÀ¹¤J´NÀ´¤F
Name FilePath & "\" & FileName As FilePath & "\x" & FileName
Name "c:\excelvba" & "\" & "DByx.csv" As "c:\excelvba" & "\x" & "DByx.csv"
§âc:\excelvba\DByx.csv ²¾°Ê¨Ã­«©R¦W¬°c:\excelvba\xDByx.csv