Get workbook version

[jstiene]

How can I get the workbook version of an open workbook? The problem with 07 is you may have one workbook open as 07 and a million rows another in 97-03 with only 65,536 rows. So rather an doing an Excel down, is there a command in the object model telling me the last row possible in a workbook, for example, similar to

ActiveCell.SpecialCells(xlLastCell).Select

or

ActiveWorkbook.Application.Version

which only tells me the parent or ap version not the workbooks capabilities

I've run a few samples like

If ActiveWorkbook.Application.Version > 11 Then
' If Range("A65000").End(xlDown).Row > 66000 Then
Lrow = Sheets(WS1).Range("A105536").End(xlUp).Row
Lrow2 = Sheets(WS1).Range("A105536").End(xlUp).Row
Else
Lrow = Sheets(WS1).Range("A65536").End(xlUp).Row
Lrow2 = Sheets(WS1).Range("A65536").End(xlUp).Row
End If

 

[Leith Ross]

Hello jstiene,

This will tell you how many rows there are in the worbook.

    ActiveWorkbook.Rows.Count

Sincerely,
Leith Ross

 

[Leith Ross]

Hello jstiene,

I made a typo in the previous post. It should be...

    ActiveSheet.Rows.Count

Leith Ross

 

[Scott Huish]

You don't need the IF Then construct though:

Drop the 65536 entirely and switch to something like this:

Dim x as long
x=Range("A" & Rows.Count).End(xlUp).Row

then it will be compatible with both versions.

 

[jstiene]

Thanks.