[[20050509120130]]　『テキストファイルの最終行の取得』（むむむ）　ページの最後に飛ぶ

『テキストファイルの最終行の取得』（むむむ）

いつも参考にしてもらっています。

日々更新される下記のようなテキストファイルがあります。

11,12,13,14,15,････

21,22,23,24,25,････

31,32,33,34,35,････

　・

end,end,end.end,････

最終行（サンプルでは　end,endの行）には特定のデータが入っていて

最終行のデータをExcelのセルに貼り付けようとしています。

この行数と値を取得する方法を考えているのですが良い方法は無いでしょうか？

最終行のデータのみ知りたいので、他の行のデータはシートに展開することなく取得出来ればと思っています。

お知恵をお貸しください。

こんな感じ？

Sub TEST()

    Open "ファイル名" For Input As #1
    GYOU = 0
    Do While Not EOF(1)
        Line Input #1, TEXTDATA
        GYOU = GYOU + 1
        SAIGO = ""
        SAIGO = TEXTDATA
    Loop
    MsgBox "行数は、" & GYOU & "です.最終行の内容は、" & SAIGO & "です"
    Close #1
End Sub
 (BB)

ありがとうございます。

処理出来るようになりました。

（むむむ）

コメント返信：

[ 一覧(最新更新順) ]

[[20050509120130]] 『テキストファイルの最終行の取得』（むむむ） ページの最後に飛ぶ

[[20050509120130]]　『テキストファイルの最終行の取得』（むむむ）　ページの最後に飛ぶ