CSV儲存問題(已解決)

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-5-6 14:43 | 顯示全部帖子

回復 1# koala2099
Excel 是可以直接開啟 CSV 檔案不一定要另存為 XLS

Option Explicit
Sub Ex()
Dim xlpath As String, xlfile As String
xlpath = "D:\csvdb\"
xlfile = Dir(xlpath & "*.csv")
'Dir 函數傳回一個 String ，用以表示合乎條件、檔案屬性、磁碟標記的一個檔案名稱、或目錄、檔案夾名稱。
'Dir 會傳回第一個符合 pathname 的檔案名稱，若要取得其它符合 pathname 的檔案名稱，請重新呼叫 Dir，且不要使用引數，如果已沒有合乎條件的檔案，則 Dir 會傳回一個空字串 ("")，一旦傳回值為空字串時，如要再次呼叫 Dir ，也必須要再指定 pathname ，否則會產生錯誤
Do While xlfile <> ""
With Workbooks.Open(xlpath & xlfile)
.SaveAs Filename:=xlpath & Replace(xlfile, "csv", ".xls")
.Close SaveChanges:=True '關閉檔案 ,存檔
End With
xlfile = Dir
Loop
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-5-6 16:56 | 顯示全部帖子

回復 3# c_c_lai
回復 4# koala2099
漏了一個參數 FileFormat:=xlNormal

Option Explicit
Sub Ex()
Dim xlpath As String, xlfile As String
xlpath = "D:\csvdb\"
xlfile = Dir(xlpath & "*.csv")
'Dir 函數傳回一個 String ，用以表示合乎條件、檔案屬性、磁碟標記的一個檔案名稱、或目錄、檔案夾名稱。
'Dir 會傳回第一個符合 pathname 的檔案名稱，若要取得其它符合 pathname 的檔案名稱，請重新呼叫 Dir，且不要使用引數，如果已沒有合乎條件的檔案，則 Dir 會傳回一個空字串 ("")，一旦傳回值為空字串時，如要再次呼叫 Dir ，也必須要再指定 pathname ，否則會產生錯誤
Do While xlfile <> ""
With Workbooks.Open(xlpath & xlfile)
.SaveAs Filename:=xlpath & Replace(xlfile, "csv", ".xls"), FileFormat:=xlNormal
.Close SaveChanges:=True '關閉檔案 ,存檔
End With
xlfile = Dir
Loop
End Sub

複製代碼

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。