- ベストアンサー
CSV保存マクロ 日付が逆になり困っています
- エクセルのシートで日付を記載し、CSVで保存するマクロを実行する際に、日付が逆になってしまう問題について困っています。
- マクロに詳しい方に、この問題の解決方法を教えていただきたいです。
- 調べても解決策が見つからず、困っています。お願いします。
- cocloniziyzl
- お礼率0% (1/134)
- Visual Basic
- 回答数4
- ありがとう数2
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
>エクセルのシートで2018／1／21とセルに記載したものを 下記マクロ（標準モジュールにコード記載）して、CSVで保存しています。 >実行後CSVを開くと、21／1／2018になって逆になります。 再確認してください。 日本の日付は標準で"yyyy/m/d"なのでCSVで保存前は日本語版のExcelと言うことが分かります。 保存されたCSVファイルでは"d/m/yyy"となっているとのことですが実際は日と月が逆の"m/d/yyyy"（1/21/2018）ではないでしょうか？ Microsoftは米国の会社なのでVBAで無指定のとき日付の標準フォーマットは"m/d/yyyy"と解釈されたのではないでしょうか？ SaveAsのオプションでLocal:=Trueを追加することで解決できるかも知れません。
その他の回答 (3)
- imogasi
- ベストアンサー率27% (4737/17069)
Googleで、例えば、「ｃｓｖファイル 読み込み 日付書式」で照会して、出てくる記事を適当に選んで読んでください。 有名な質問事項なので、それらの説明に尽きると言える。 https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_winother-mso_2010/%EF%BD%83%EF%BD%93%EF%BD%96%E3%83%87%E3%83%BC/682cbe27-fb0b-474d-a2ef-90fba７４６１９２６など
- imogasi
- ベストアンサー率27% (4737/17069)
#2のご回答の通りでしょう。 日付の値はひｄけ日付シリアル値という２０世紀に入ってからの経過日数であることを知っているのかな。日本、欧米とも同じだろう。 マクロをやりながら、エクセルでは、セルの値に対し＋書式適用の結果がセルに見えて居ることを知っているのかな。 それがデフォルト書式として、英米式や日本式が利用エクセルの国別バージョンで、とりあえずどれか１つ採用されている。 読みこんだのちに、セルの書式を手動やＶＢＡで変えれば済むこと。 ＣＳＶの日付ソース部分をいじくって日付文字列にすることも可能だが、計算や日付書式として、日付として使えず困ることの方が多いだろう。 ーー 参考になれば 例のデータ Ａ２：Ｂ３ 2018/1/20 130 2018/1/23 140 ーーー Sub test01() Open "日付表示,csv" For Output As #1 For i = 2 To 3 dt = Cells(i, "A") Data = Cells(i, "B") dt1 = Format(dt, "yyyy/mm/dd") dt2 = Format(Data, "#,##0") Print #1, dt1, dt2 Next i Close #1 End Sub メモ帳で表示すると 2018/01/20 130 2018/01/23 140 ーー "yyyy/mm/dd"のところを適当に変えるだけで好みの書式表示になる。 参考 http://www.atmarkit.co.jp/ait/articles/1504/30/news014.html http://programming-study.com/technology/vba-date/
- skp026
- ベストアンサー率45% (1010/2238)
出力したcsvをメモ帳などテキスト用ソフトで 開いた場合はいかがでしょうか。 問題がない場合は、Excelで開くときに変換されています。 対策は以下を参考ください。 http://global-wing.com/activity/csv_point_convert.html あとは地域設定です。 お使いのosが不明ですがWindowsならコントロールパネルの 地域の設定が日本以外になっていないか確認や、 日付書式がyyyy/mm/ddになっているか確認ください。 以下はWindows7の場合の例です http://121ware.com/qasearch/1007/app/servlet/relatedqa?QID=011856 参考にならなかったらごめんなさい。
