Excel VBA質問箱 IV

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

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


45744 / 76732 ←次へ | 前へ→

【35974】Re:外部txtからのデータ取込について
回答  かみちゃん  - 06/3/16(木) 22:45 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>デバックでの反転は下記のところになります。
>
>
>    '「20050731」形式の日付をシリアル値に変換
>    filedate = CLng(DateValue(Left(vntFileName(i), 2) _
>               & "/" & Mid(vntFileName(i), 3, 2) _
>               & "/" & Mid(vntFileName(i), 5, 2)))

MsgBox vntFileNames(i)
として、vntFileNames(i) の内容を確認してみてください。
vntFileNames(i) が日付ではなくファイル名のフルパスではないでしょうか?

つまり、
filedate = CLng(DateValue(Format(Left(Right(vntFileNames(i), 13), 6), "00\/00\/00")))
としないといけないと思います。

ファイル名の後ろから13文字取って、その文字列の左から6文字を日付とし、シリアル値に変換するという方法です。
もちろん、日付でない場合は、エラーになりますので、その対処がいるかもしれません。

3 hits

【35969】外部txtからのデータ取込について こころ 06/3/16(木) 22:23 質問
【35971】Re:外部txtからのデータ取込について かみちゃん 06/3/16(木) 22:32 発言
【35972】Re:外部txtからのデータ取込について こころ 06/3/16(木) 22:38 発言
【35974】Re:外部txtからのデータ取込について かみちゃん 06/3/16(木) 22:45 回答
【35980】Re:外部txtからのデータ取込について こころ 06/3/17(金) 0:27 質問
【35981】Re:外部txtからのデータ取込について かみちゃん 06/3/17(金) 1:44 回答
【35984】Re:外部txtからのデータ取込について こころ 06/3/17(金) 3:47 質問
【35988】Re:外部txtからのデータ取込について かみちゃん 06/3/17(金) 9:47 回答
【35989】Re:外部txtからのデータ取込について こころ 06/3/17(金) 12:00 お礼

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