| |
いつもお世話になっています。
下記のような、テキストファイルを読み込むマクロを作成しています。
ただ、テキストファイルの行数が1000行以上、時には10000行になる為
プログレスバーにて処理経過を確認するようにしたいのですが、テキスト
ファイルの総行数の取得がうまくできません。
総行数は取得できますか？
どなたか、アドバイスをお願い致します。
Sub AAA()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
fp = Application.GetOpenFilename(MultiSelect:=True, _
Title:=" SEQLOGファイルを選択して下さい(CtrlやShiftキーを使って複数選択可)")
If Not IsArray(fp) Then
MsgBox ("処理を中止します")
Exit Sub
End If
Set fso = CreateObject("Scripting.FileSystemObject")
For i = 1 To UBound(fp)
Set fnow = fso.OpenTextFile(fp(i), ForReading)
Do While fnow.AtEndOfStream <> True
temp = fnow.readline
If temp Like "*BBB*" Then
DAT = Split(temp, " ")
Sheets(1).range("A1")=DAT(2)
End if
Loop
fnow.Close
Set fnow = Nothing
Call Display_MyProgressBar(i, UBound(fp))
DoEvents
Next i
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
