Excel VBA質問箱 IV

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

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


45734 / 76732 ←次へ | 前へ→

【35984】Re:外部txtからのデータ取込について
質問  こころ  - 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】外部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 お礼

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