Excel VBA質問箱 IV

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

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


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

45734 / 76732

←次へ　｜　前へ→


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

こころ - 06/3/17(金) 3:47 -


	引用なし

	パスワード

かみちゃんさんありがとうございます。

MsgBox Left(Right(vntFileName(i), 13), 6)
では　060301　と表示します。

>私が提示したコードは、「12」ではなく「13」としているのですが・・・
　テスト用のファイルを使用しましたので意図的に12に変更しました

下記でテストしました。
msgboxは 38777 と表示されエラーはでません。

>　Dim strFileName As String
>　Dim filedate
>
>　strFileName = vntFileName(i)
>　
>　'日付形式かどうかを判断
>　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

しかし実際に動かしてみると

Dim strFileName As String　　　'追加
strFileName = vntFileName(i)　　'追加

'下記で「型が一致しません」とエラーになります
filedate = CLng(DateValue(Format(Left(Right(strFileName, 13), 6), "00\/00\/00")))

filedate 変数宣言を variantやDateにしましたが駄目です。

何卒アドバイスをお願い致します

5 hits

▼

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