Excel VBA質問箱 IV

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

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


45733 / 76735 ←次へ | 前へ→

【35988】Re:外部txtからのデータ取込について
回答  かみちゃん  - 06/3/17(金) 9:47 -

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

>'下記で「型が一致しません」とエラーになります
>filedate = CLng(DateValue(Format(Left(Right(strFileName, 13), 6), "00\/00\/00")))
>
>filedate 変数宣言を variantやDateにしましたが駄目です。

ですから、なぜ、エラー処理を入れないのでしょうか?
ファイル名がおかしいのがあるのではないでしょうか?

Sub Macro1()
 Dim filedate As Long
 Dim strFileName As String

' strFileName = vntFileName(i)  '追加←あまり意味がないので
 strFileName = Left(Right(vntFileName(i), 13), 6)  '追加

 '日付形式かどうかを判断
 If IsDate(Format(strFileName, "00\/00\/00")) Then
  filedate = CLng(DateValue(Format(strFileName, "00\/00\/00")))
  MsgBox filedate
 Else
  MsgBox "日付認識できません " & vbCrLf & vntFileName(i) & vbCrLf & Left(Right(strFileName, 13), 6)
 End If
End Sub
0 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 お礼

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