[µo°Ý] ½Ð±Ð*.csvÀÉ¡A¦p¦ó¦bÀx¦s®æ¥[¤WÃC¦â«á¡A¦A¦s¦¨.csvÀÉ~~

vesperlee

½Ð±Ð*.csvÀÉ¡A¦p¦ó¦bÀx¦s®æ¥[¤WÃC¦â«á¡A¦A¦s¦¨.csvÀÉ~~

½Ð±Ð¦p¦ó¨Ï¥ÎVBA¶}±Ò¤@­Ó"´ú¸Õ.csv"ÀÉ«á¡A°Æµ{¦¡ùئb"´ú¸Õ.csv"Àɤº¹Bºâ¡A
¨Ã¦bÀx¦s®æ¤º¥[¤WÃC¦â¡C¦ý¦b¦sÀÉ«á¡AÃC¦â·|¤£¨£¡C

½Ð±Ð¦p¦ó¨Ï¥ÎVBA¡A¶}±Ò"´ú¸Õ.csv"ÀÉ«á¡A¹Bºâ§¹¦sÀɦ¨  "´ú¸Õ.csv" (Âл\­ì¥»ªºÀÉ)
¦Ó¤£¬O ¥t¦s¦¨¤@­Ó  "´ú¸Õ.xls"  ªº·sÀÉ¡C

ÁÂÁ¡I·P®¦~~¡C
¥H¤U¬° ¬ÛÃö°ÝÃD¸ê®Æ¡C·P®¦~«ü±Ð~~~¡C


¸ê®Æ¾ã²z-102.12.14.rar (27.54 KB)

¤U¸ü¦¸¼Æ: 4

2013-12-14 22:40

vesperlee

Sub test()
   Get_Path_LEN = Len(Application.ActiveWorkbook.FullName)    '¨ú±oÀɮק¹¾ã¦W¸ô®|¤Î¦WºÙ
   Get_Date_name_LEN = Len(Application.ActiveWorkbook.Name)        '¨ú±o ÀÉ®×  ¦WºÙ
   Full_path_name = Left((Application.ActiveWorkbook.FullName), Get_Path_LEN - Get_Date_name_LEN) '¨ú±o §¹¾ã¸ô®|
   
Open_download_Date = Full_path_name & "´ú¸Õ.csv"
     Workbooks.Open Open_download_Date  ' ¶}±Ò  ÀÉ®×
     
           '¹Bºâ´ú¸ÕÀÉ(¦bcsv¥[¤J¹Bºâ¤ÎÃC¦â)
                                                           
     Workbooks("´ú¸Õ.csv").Close SaveChanges:=True  '====>>>>>¦sÀÉ«á  *.csvÃC¦âÁÙ¬O¤£¨£¤F¡H
Application.DisplayAlerts = True  '«ì´_ĵ§iµøµ¡
   
End Sub


¥Î³o­Ó¤èªk¡AÁÙ¬O¨S¿ëªk§ïµ½¡A*.csvÃC¦âÁÙ¬O·|¤£¨£¡I
³Â·Ð«ü±Ð~~~¡AÁÂÁÂ~~~

GBKEE

¦^´_ 2# vesperlee

csv¬O¤å¦r®æ¦¡ªºÀÉ®×,¤£¥iÀx¦s,Àx¦s®æªº(¦r«¬¤Î¤j¤p,¹Ï¼ËÃC¦â.¤½¦¡...)

vesperlee

´Ý©À~~~¡I
­è­è¬Ý¤F¤@¤U¡A*.csvÀÉ©M*.xlsÀÉ  ªº¤j¤pªG¯u®t«Ü¦h¡C­ì¨Ó*.csv¬O¤å¦r®æ¦¡ªºÀÉ®×,
ÁÂÁ  GBKEE ¤j¤jªº»¡©ú¡C