開啟檔案設定日期格式

enoch

有個檔案由程式匯出,日期格式是dd/mm/yy,
但部電腦的國別設定,日期格式為yyyy/mm/dd
使到檔案開啟時日期格式錯誤,
如何利用巨集開啟檔案時,可以設定正確的日期格式
請指教

GBKEE

回復 1# enoch
使到檔案開啟時日期格式錯誤
請問是什麼意思

enoch

例如 部電腦是的國別設定是 mm/dd/yyyy
但因為檔案是 dd/mm/yyyy
當日期是 3/4/2011 (2011年4月3日), 會讀錯為4月3日
或當成文子,
附上例子, 個檔案由程式匯出的格式是dd/mm/yyyy
若電腦的格式同樣是dd/mm/yyyy , 日期雖然是文字, 但可以用value 轉回日期(數字格式)
但若果電腦的國別設定是 yyyy/mm/yy 則電腦認唔到日期,
若電腦是mm/dd/yyyy 則會將日月調轉,

其中一位版主介紹過開啟檔案後用資料>>驗證去更改格式,
但唔知用巨集在開啟檔案時可否直接設定個日期格式

GBKEE

回復 3# enoch
試試看

1. Sub Ex()
   
2.     Dim E As Range, A
   
3.     For Each E In Range("A2", [A2].End(xlDown))
   
4.         A = Split(E, "/")
   
5.         E = DateSerial(A(2), A(1), A(0))
   
6.         E.NumberFormatLocal = "mm/dd/yyyy"
   
7.     Next
   
8. End Sub

複製代碼

oobird

csv不支持vba，不要以csv格式儲存。

enoch

多謝GBKEE 指教, 但若果日期資料不只是得一欄, 變了要用巨集去每一欄修改嗎?
而excel本身可以在開啟時, 指明日期的年月日格式嗎?

多謝oobird  提醒, 因為檔案是由程式直接匯出為csv檔,
下次會轉回excel 檔案

GBKEE

回復 6# enoch
csv格式->A欄日期 是文字   所以要用巨集修改
修改工作表所有的日期格式

1. Sub Ex()
   
2. Cells.NumberFormatLocal = "yyyy/mm/dd"
   
3. End Sub

複製代碼

b