Excel VBA質問箱 IV

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

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


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

12958 / 76734

←次へ　｜　前へ→


	【69287】テキストファイルの行数取得

たかし - 11/6/20(月) 14:59 -


	引用なし

	パスワード

いつもお世話になっています。
下記のような、テキストファイルを読み込むマクロを作成しています。
ただ、テキストファイルの行数が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

3 hits

▼

【69287】テキストファイルの行数取得 たかし 11/6/20(月) 14:59

≪