ブックを閉じたエクセルファイルの最終行を検索

質問

・フォルダ内に複数のエクセルファイル（xlsx）がある
・それぞれのファイルに記載されている内容や量は異なる
（少ないと２００行。多いものだと３０００行以上）

これに対して以下の作業を行う方法は無いでしょうか？

(1)ファイルを開かずに、それぞれのファイル内のデータがある最終行を調べる
例：book1のデータが300行あるのなら、「300」を返すような

(2)フォルダ内にあるエクセルファイルに一括で(1)を行う

自分でもマクロなりでこれらのファイルの情報を取得しようと試行錯誤しております。
ExecuteExcel4Macroなど自分でも試してみたのですが、全くうまくできません。

マクロに限らず、これが出来るのであればツールややり方は問いません。
(1)、(2)の片方だけでも問題ございませんので、どなたかご教示頂けないでしょうか。

回答No.1

keithin · ベストアンサー

具体的なデータの入り具合とか何も情報が無いんですが、とりあえず
例えばセルに
=COUNTA('C:\folder\[Book1.xlsx]Sheet1'!A:A)
などのようにしておけば、何件データが記入されてるか数えられそうです。

そもそも何て名前のブックがあるのか調べるところから、毎回やり直さなきゃならないなら、ファイルを巡回してファイル名を調べる（応用：所定の計算式を書かせる）マクロを利用します

例：
sub macro1()
　dim myPath as string
　dim myFile as string
　dim n as long
　mypath = "C:\folder\"
　myfile = dir(mypath & "*.xls*")

　do until myfile = ""
　　n = n + 1
　　cells(n, "A") = myfile
　　myfile = dir()
　loop
end sub

＃それぞれのブックの具体的なシート名までイチイチ調べなきゃならない状況なら、隠しながらそれぞれ開いて調べます。

お礼

ありがとうございます！

漠然とした質問をしてしまい申し訳ありません。
ご丁寧にお答えいただき感謝致します