Excel VBA質問箱 IV

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

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


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

13834 / 76734

←次へ　｜　前へ→


	【68402】Re:複数のCSVファイルの総行数を集計する際に時間がかかる

ひよっこ - 11/3/3(木) 9:57 -


	引用なし

	パスワード

▼SK63 さん：
>▼ひよっこさん：
>
>下の部分を動作させても Line 'にはNothinｇですが、、？？
>う～ん　　難しいですね。
>
>
>　'ファイルを書き込みモードで読み込む
>　　　　　　Set FSO = CreateObject("Scripting.FileSystemObject")
>　　　　　　　　With FSO.OpenTextFile(TargetFile, 8)
>　　　　　　　　　　'複数ファイルがある場合、ファイルの総行数を集計する
>　　　　　　　　　　gCnt = gCnt + Line　★
>　　　　　　　　　　.Close
>　　　　　　　　End With
>
>　　　　　　Set FSO = Nothing

Lineではなく、.Lineだとファイルの総行数を取得できるかと思います。
With使ってるので＞＜
やはり処理速度にはファイルの容量がかかわっているようです；
.Lineで取得するのは早いのですが、集計する際に時間がかかってしまうので
どうしようもないのでしょうね；
ご回答ありがとうございました！わざわざ動かして頂いたことでとても親身になっていただいたようでうれしかったです！

3 hits

▼

【68395】複数のCSVファイルの総行数を集計する際に時間がかかる ひよっこ 11/3/2(水) 17:32