Excel VBA質問箱 IV

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

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


45749 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   宜しくお願いします。
先ず過去の回答で下記のマクロ、とても参考になりました。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=28796;id=excel

上記の内容と私の違うところは
1、ファイル名
  050301rog.txt、050302rog.txtのようにyymmddrog.txtで毎日追加されます。
2、テキストファイル内に日付がありません。
  過去の事例では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)
      'ファイルから1行読み込み
      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

1 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 お礼

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