WSHでExcelシートの最大行数を知るには?

質問

WSHでExcelシートを開いたときに、そのシートの最大行数(最終行)の値を知るにはどうしたらよいですか?

回答No.1

himajin100000 · ベストアンサー

'どれ求めたかったのか知らないので。
'あー型を明示したいよぉ

Sub hoge()
Dim app
Set app = CreateObject("Excel.Application")
app.WorkBooks.Open("C:\aaa.xls")

'xlDirection.xlDown
'http://msdn.microsoft.com/en-us/library/aa221100%28office.11%29.aspx
Msgbox(app.WorkBooks(1).WorkSheets(1).Range("A1").End(-4121).Row)
Msgbox(app.WorkBooks(1).WorkSheets(1).Range("A1").End(-4121).Column)
Msgbox(app.WorkBooks(1).WorkSheets(1).Rows.Count)
Msgbox(app.WorkBooks(1).WorkSheets(1).Columns.Count)
app.WorkBooks(1).Close()
Set app = Nothing
End Sub

hoge()

お礼

回答ありがとうございました。