麻辣家族討論版版 » Excel程式區 » 開啟檔案設定日期格式

返回列表下一主題上一主題發帖

開啟檔案設定日期格式

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-8-22 09:20 | 只看該作者

開啟檔案設定日期格式

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

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 2011-8-22 15:23 | 只看該作者

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

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

3^#

發表於 2011-8-22 16:29 | 只看該作者

本帖最後由 enoch 於 2011-8-22 16:32 編輯

例如部電腦是的國別設定是 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 則會將日月調轉,

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

日期格式.zip (2.53 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

4^#

發表於 2011-8-23 15:40 | 只看該作者

回復 3# enoch
試試看

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

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

5^#

發表於 2011-8-23 16:17 | 只看該作者

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

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

6^#

發表於 2011-8-23 16:46 | 只看該作者

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

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

7^#

發表於 2011-8-23 17:20 | 只看該作者

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

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

複製代碼

b

靜思自在 : 多做多得。少做多失。

返回列表下一主題上一主題