Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45737 / 76732

←次へ　｜　前へ→


	【35981】Re:外部ｔｘｔからのデータ取込について

かみちゃん - 06/3/17(金) 1:44 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>しかし、「型が一致しません」と
>filedate = CLng(DateValue(Format(Left(Right(vntFileName(i), 12), 6), "00\/00\/00")))
>でエラーになります。

MsgBox Left(Right(vntFileName(i), 12), 6)
で何と表示されるか教えてください。
060317
などではないものが表示されているのではないでしょうか？

私が提示したコードは、「12」ではなく「13」としているのですが・・・

>下記の意味を教えていただけませんか
>>もちろん、日付でない場合は、エラーになりますので、その対処がいるかもしれません。

上記のように「型が一致しません」となる場合もあるということです。

たとえば、こんな感じです。

Sub Macro1()
　Dim strFileName As String
　Dim filedate

　strFileName = "050301rog.txt"
　
　'日付形式かどうかを判断
　If IsDate(Format(Left(Right(strFileName, 13), 6), "00\/00\/00")) Then
　　filedate = CLng(DateValue(Format(Left(Right(strFileName, 13), 6), "00\/00\/00")))
　　MsgBox filedate
　Else
　　MsgBox "日付ではありません　" & Left(Right(strFileName, 13), 6)
　End If
End Sub

5 hits

▼

【35969】外部ｔｘｔからのデータ取込について こころ 06/3/16(木) 22:23