Excel VBA質問箱 IV

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

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


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

45730 / 76732

←次へ　｜　前へ→


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

かみちゃん - 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

6 hits

▼

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