[問題] VBA存讀CSV格式的問題
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:EXCEL
版本:2007
存取CSV的方法如下：
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" &
"data_001" & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
一開始發現的問題是 日期格式會跳掉
我需要的是yyyy/mm/dd的格式 或者是 mm/dd/yyyy的格式 去灌入其他程式使用
但一開始存檔之後 只要再開啟檔案 就會變成 yyyy/m/d的格式
因此我試著把他用文字表示yyyy/mm/dd的型態，去灌入其他程式做使用
結果讀取出現bug
但是我只需要手動把csv檔案開啟後 存檔
就可以正常讀取
但因為資料量太多 實在無法一一做存檔動作
想問問板上大大 在儲存CSV檔的時候，VBA碼該做怎樣的設定才能夠讓原有格式保留
--
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1425719291.A.2F6.html
→
03/07 23:05, , 1F
03/07 23:05, 1F
→
03/07 23:06, , 2F
03/07 23:06, 2F
→
03/07 23:07, , 3F
03/07 23:07, 3F
→
03/07 23:16, , 4F
03/07 23:16, 4F
→
03/10 20:54, , 5F
03/10 20:54, 5F
→
03/10 20:55, , 6F
03/10 20:55, 6F
→
03/10 20:55, , 7F
03/10 20:55, 7F
Sub 把路徑下的CSV開啟後存檔一次化解格式問題()
Dim mF As String
mF = Dir(ThisWorkbook.Path & "\" & "*.csv")
Do While mF <> ""
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & mF, Format:=xlCSV, _
Delimiter:=","
'Application.DisplayAlerts = False '不詢問就儲存和關閉
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\renew\" & mF &
".csv", _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True
ActiveWorkbook.Save
ActiveWorkbook.Close
mF = Dir()
Loop
End Sub
我是這樣寫
→
03/10 22:28, , 8F
03/10 22:28, 8F
→
03/10 22:28, , 9F
03/10 22:28, 9F
→
03/11 19:11, , 10F
03/11 19:11, 10F
→
03/11 19:11, , 11F
03/11 19:11, 11F
→
03/11 19:18, , 12F
03/11 19:18, 12F
→
03/11 20:38, , 13F
03/11 20:38, 13F
→
03/11 20:54, , 14F
03/11 20:54, 14F
→
03/11 21:34, , 15F
03/11 21:34, 15F
→
03/11 21:34, , 16F
03/11 21:34, 16F
→
03/11 22:03, , 17F
03/11 22:03, 17F
→
03/11 22:25, , 18F
03/11 22:25, 18F
→
03/11 22:25, , 19F
03/11 22:25, 19F
→
03/11 22:25, , 20F
03/11 22:25, 20F
→
03/11 22:46, , 21F
03/11 22:46, 21F
→
03/11 22:49, , 22F
03/11 22:49, 22F
※ 編輯: winnina1 (118.169.254.42), 03/14/2015 10:39:57
Office 近期熱門文章
PTT數位生活區 即時熱門文章
