Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7593 / 13644 ツリー ←次へ | 前へ→

【38019】日付型で取ってきたデータを文字列に rinn 06/5/25(木) 10:52 質問[未読]
【38022】Re:日付型で取ってきたデータを文字列に Jaka 06/5/25(木) 11:12 回答[未読]
【38085】Re:日付型で取ってきたデータを文字列に rinn 06/5/26(金) 8:56 お礼[未読]

【38019】日付型で取ってきたデータを文字列に
質問  rinn  - 06/5/25(木) 10:52 -

引用なし
パスワード
   日付を指定してファイルを開き、データを表示させる仕組みを作っています。
すでにデータを表示させる部分は完成しているのですが、もう少し便利にできればと思い改良しているところです。

Sheet1にボタンを配置し、クリックするとカレンダーフォームが表示されそこで日付を指定します。
そのフォームで指定された日付をSheet1のB2セルに代入しています。
(フォームで取得した値はDate型です。)

B2の値を変数に代入し、読込みの際にマクロで

a = Range("B2").Value
File = ThisWorkbook.Path & "\" & a & ".Txt"

のようにしています。

読み込み対象ファイル名は、2006/05/08のデータなら「20060508.Txt」となっており、B2で日付型のデータを取得すると今の状態だとできません。

今のところ対策としては、そのB2のセルに表示させたい日付をファイル名と同じように「20060508」のように入力してもらうようにしています。

フォームから取得した日付型の値をいったんB2セルに表示させ、ファイル読込みの際に「20060508」という文字列に自動的に変換してファイルを読み込ませたいのです。
莫大な量のファイルがある為、すでにファイル名は変更できません。

ちょっと説明がややこしくてわかりにくいかもしれませんが申し訳ありません。

何かいい方法ありましたら教えていただけませんか?
よろしくお願いします。

【38022】Re:日付型で取ってきたデータを文字列に
回答  Jaka  - 06/5/25(木) 11:12 -

引用なし
パスワード
   a = Format(Range("B2").Value, "yyyymmdd")

【38085】Re:日付型で取ってきたデータを文字列に
お礼  rinn  - 06/5/26(金) 8:56 -

引用なし
パスワード
   ▼Jaka さん:
簡単な事だったのですね。
すんなり解決しました。
ありがとうございました。

7593 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free