Excel VBA質問箱 IV

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

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


45737 / 76732 ←次へ | 前へ→

【35981】Re:外部txtからのデータ取込について
回答  かみちゃん  - 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】外部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 お礼

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