Excel VBA質問箱 IV

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

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


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

45749 / 76732

←次へ　｜　前へ→


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

こころ - 06/3/16(木) 22:23 -


	引用なし

	パスワード

宜しくお願いします。先ず過去の回答で下記のマクロ、とても参考になりました。 http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=28796;id=excel 上記の内容と私の違うところは１、ファイル名　　050301rog.txt、050302rog.txtのようにyymmddrog.txtで毎日追加されます。２、テキストファイル内に日付がありません。　　過去の事例ではtxtの1列目に日付がありますが、私のは無いです。　　日付はファイル名から取得します。　　　過去の事例→　20050901,1001,0,0,1,003,1800 そこで下記のように改良して見ましたが「型が一致しません」表示します。どうかアドバイスをお願い致します。 dim filedate As Variant 　　For i = 1 To UBound(vntFileNames) 　　'指定されたファイルをOpen 　　　　dfn = FreeFile 　　Open vntFileNames(i) For Input As dfn 　　　　'ファイルから日付を取得　　　　Do Until EOF(dfn) 　　　　　　'ファイルから１行読み込み　　　　　　Line Input #dfn, strBuff 　　　　　　'フィールドに分割　　　　　　vntField = Split(strBuff, ",", , vbBinaryCompare) 　　　　　　'「20050731」形式の日付をシリアル値に変換　　　　　　filedate = CLng(DateValue(Left(vntFileNames(i), 2) _ 　　　　　　　　　　　　　　　　& "/" & Mid(vntFileNames(i), 3, 2) _ 　　　　　　　　　　　　　　　　& "/" & Mid(vntFileNames(i), 5, 2))) 　　　　　　'日付を探索　　　　　　lngRow = GetDateColumn(filedate, rngDate, _ 　　　　　　　　　　　　　　　　rngResult.Offset(, clngTop)) + clngTop