• 締切済み

テキストファイルの日付表示が違って保存されます。何故でしょうか?

 テキストファイル(CSV)ファイル形式のデーターベースをエクセル2000で編集を加えて仕事に転用しておりますが、元々は日付表示が『2007/3/30』で表示されているのですが、(途中、貼り付け時に形式を選択し貼り付け→『39171』のシリアル値に変換)マクロで処理を行った後、最後にわざわざ "yyyy/m/d"で保存としているのですが、保存されたCSVファイルを開くと、日付表示がが『3/30/2007』となって保存されています。  エクセル2000がインストールされたPCは家で2台、会社にもあり、USBメモリで家&会社でも同様の処理をしていますが、何故か家の一方の1台のPC・エクセル2000でやると、このように保存されてしまい、原因が分かりません。他のPCなら『2007/3/30』と正しく保存されています。  ツール→オプションにて設定を確認していますが、特別、特殊な設定をしたことが無く、初期設定のままです。  CSVデーターファイルはエクセル上でコピー、貼り付け、オートフィルタ、並び替え、フィルタオプションでの抽出編集処理くらいです。  『2007/3/30』の日付表示が『3/30/2007』になって保存されてしまう原因、マクロの記述、またエクセル2000の設定に問題があるのか、教えていただけないでしょうか?    

みんなの回答

  • papayuka
  • ベストアンサー率45% (1388/3066)
回答No.1

まず、そのCSVをExcelではなくテキストエディタ等で開いてデータを確認して下さい。 ExcelはCSVファイルを「開く時に」データを変換して表示しますので、出来上がったCSV自体は問題ない事があります。 スタート-コントロールパネルの「日付、時刻、地域と言語のオプション」で「地域オプション」を問題の無いPCと比べてみたら違いはありますか? マクロの記述に問題があるかは、マクロを提示されないと判りませんよ。

関連するQ&A

  • Accessテキスト日付変換

    NASのアクセスログを管理するDBを作成しておりますが、日付が下記形式となってます、日付型・日時型に簡単に変換する方法はありますでしょうか? ログ日付項目 Jan 15 16:50:03 一連の処理 1、NASのログファイルを、秀丸エディタで、CSV出力できるようマクロで整形保存 2、Accessでログ整形CSVファイルを、インポート ただし、ログの日付が、上記のテキストで吐き出されており、Access上で日付・時間として取扱いできません。 エクセルで、ログ整形csvを読み込むと自動で日付型として認識しますが、残念ながらAccessでは、日付型として認識してくれません。 簡単に変換できる方法があればご教授ください。

  • 日付を入力したセルをファイル名にして保存するには

    こんにちは。VBA 初心者です。 あるセルに日付を入力しています。 そのセルは書式設定の表示形式・日付で「2001/3/14」と入力した時に、「2001年3月14日」と表示される様に設定しています。 そしてこのファイルをマクロで名前をつけて保存するとき、上記のセル(の値)をファイル名したいのですが、2001\3\14と認識され、エラーが出ます。 セルに日付を入力する時に、出来るだけかな入力はせず、日付をファイル名にして保存するにはどういう方法があるでしょうか。 わかりにくい説明で申し訳ありません。ウィンドウズXP・エクセル2003です。よろしくお願いします。

  • CSVファイル、Excelで表示形式保存したのに

    Accessでエクスポートさせたcsvファイルにおいて、表示形式が1-1が1月1日と日付で表示されてしまったので、Excelにて表示形式の変更を行い、保存したのですが、再度開いてみると、また日付に戻ってしまっています 改善方法をご存知の方、教えて下さい!

  • エクセルのcsv保存で。。

    前と同じような質問ですみません。。。 エクセルのSheet5をcsv形式で保存する際、 名前を付けて保存のダイアログを表示させて、 ファイルの名前を常に「bonaplus.csv」と 既定値で表示させておくようなマクロは できないでしょうか? ※bonaplusの後には作成日付を入力します。 ※csvファイルを作成した後に元のエクセルファイルの  保存になります。

  • どうしても日付表示になってしまいます

    ***.csv というfileを NotePadなどで開くと、以下のようなデータがいっぱいあります。 01-01-04,2976,KRREMAIN,クリ-ム , 42.0 したい事は、これをエクセルで開いた時に、最初の 01-01-04 を 01-01-04 としてそのまま表示したい。 エクセルの表示内容をよくみると、日付形式(2001/1/4)となってしまいます。日付にならずに開く方法はないでしょうか 。

  • csv形式のテキストファイルをexcelでCSV化するマクロについて

    今、ひとつのフォルダに大量にCSV形式で保存されているテキストファイルを excelのマクロを使って、ひとつのexcelにCSV形式(.xls)で保存するものを作成している のですが、今までマクロを使ったことがないため、まったく歯が立ちません。 もう少し詳しく書くと、テキストファイルの中身は、 01,54521,18:01:02,110230 というようになってます。 これを、excelのマクロを使い、カンマ区切りで取り込むような感じです。 すみませんが、回答お願いいたします。

  • CSVファイルの保存方法をお教えください

    Microsoft Office Personal 2010を使っています。 HogeHoge.csv をエクセルで開きます、この時シートの表示はHogeHoge.csv のままです 平均計算などの処理後このファイルを閉じようとすると下記のようなメッセージが出ます がこの時[はい]をクリックして閉じると正常に保存されるのですが マクロで保存をしようとするとなかなか上手くいきません。 A列の日付けが 2014/1/15 10:30 が 1/15/2014 10:30 となってしまいます。 HogeHoge.csvには、CSV(カンマ区切り)と互換性のない機能が含まれている可能性があります。この形式でブックを保存しますか? ・このまま保存するには、[はい]をクリックします。 ・機能を保存するには、[いいえ]をクリックしてから、最新のExcelの形式で保存します。 とでます   下記のようなマクロですがどのようにすれば良いのか分かりません   どうぞよろしくお願いいたします。 Sub 保存終了() ChDir "D:\DATA\BackT" ActiveSheet.SaveAs Filename:="D:\DATA\BackT\HogeHoge.csv", FileFormat _ :=xlCSV, CreateBackup:=False If Workbooks.Count = 1 Then Application.DisplayAlerts = False Application.Quit Else: ActiveWorkbook.Close False End If End Sub

  • エクセルマクロでファイルを開いて保存したいです。

    エクセルマクロでファイルを開いて保存したいです。 エクセルファイルでファイル名「編集」という物を開きます。 このSheet1には中央にコマンドボタンが作成して有ります。 このボタンをクリックして以下の作業をマクロで行いたいです。 1.エクセル標準の「ファイルを開く」のメッセージボックスが開く 2.ここは使用者が作業をしてもらう   マイドキュメントだったり、マイネットワークだったり、   (ファイルの種類はCSVにする)   処理をしたいCSVファイルを探してもらい選択後、開くをクリック   例えば20100922.CSVを選択し開くをクリック 3.クリックと同時にそのファイルが展開されて、「編集」のエクセルファイルの   Sheetにシート名「集計」が作成されそのシートにCSVファイルの全内容がセルA1から貼り付く。   さらに登録してあるマクロモジュールで編集処理がされ   マクロを引き継がず、シート「集計」だけを   ファイル名は固定でそのファイル名の後ろに作成日(システム日付)を入れて   参照したCSVファイルの保管場所に保存する。   ファイル名例:売上20100923.xls(売上は固定) 4.エクセル「編集」のファイルからシート「集計」を削除する。 5.メッセージBOXで「編集終了」と表示 次回エクセルファイル「編集」を開くと、コマンドボタンだけである。 また作成された「売上20100923」はマクロがないから開くときに マクロのメッセージは出ない。というようにしたいです。 NO.2のファイルを選択する作業は作業者にしてもらいますが シート1のコマンドボタン1回を押すだけでNO.1~NO.5まで完結させたいです。  NO.3のマクロ処理はマクロの記録でモジュールができています。 このマクロの作成方法と、そのマクロが出来たら その文のどこに作成済みの処理文を入れればいいのかわかりません。 よろしくお願いします。 ここでつまづいています。この後この選択したファイルの全内容が シートの集計に展開されません。 Private Sub CommandButton1_Click() Call 集計 End Sub Sub 集計() FullPath = Application.GetOpenFilename("CSV,*.CSV") If FullPath <> "False" Then Sheets("Sheet1").Select Sheets.Add ActiveSheet.Name = "集計" With ActiveSheet.QueryTables.Add(Connection:="CSV;" & FullPath, Destination:=Range("A1"))   マクロの記録で作成したマクロ   シート"集計"をマクロを引きつかずファイル名売上&システム日付で保存   シート"集計"を削除する

  • テキスト ファイル ウィザートを表示させたい!

    EXCELでcsv形式のファイルを開くときに、テキストファイルウィザードを表示させたいのですが、どなたか方法わかりますか? tsv形式のファイルだとウィザードが立ち上がるんですが、csvだと立ち上がりません。 なぜウィザードが必要かというと、読み込みたいデータの中に何列か文字列で読み込みたいデータがあるからです。 EXCEL97です。 よろしくお願いします!!

  • CSVファイルの保存方法をお教えください。

    エクセルでCSVファイル保存するとき下記のようなメッセージがでますが この時はいをマクロで選択したいのですが通常の保存方法だと 年月日の順序が変わってしまうことが起こり困っています。 下記のようなメッセージがでたときマクロで[はい]としたいのです。 よろしくお願いいたします。 ○○○.csvには、CSV(カンマ)と互換性のない機能が含まれている可能性があります。 ・このまま保存するには、[はい]をクリックします。 ・機能を保存するには、[いいえ]をクリックしてから、最新のExcel形式で保存します。 ・失われる可能性がある内容については、[ヘルプ]をクリックしてください。

専門家に質問してみよう