How to get the number of Line/Column used in Excel sheet ?

[bbnimda]

Hi All,

I'm using a VbScript for Outlook , and want to get informations about Excel
file (Number of line and Column used)

Tks

 

[Bob Phillips]

Off the top

Dim XLApp As Object
Dim XLWB as Object
Dim NumRows As Long
Dim NumCols As Long

Set XLApp = CreateObject(Excel.Application")
Set XLWB = Workbooks.Open(Filename:="C:\test\filename.xls")

NumRows = XLWB.Worksheets(1).UsedRange.Rows.Count
NumCols = XLWB.Worksheets(1).UsedRange.Columns.Count

Set XLWB = Nothing
Set XLApp = Nothing

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[bbnimda]

Hello Bob,

Great tks

Bye

Off the top

Dim XLApp As Object
Dim XLWB as Object
Dim NumRows As Long
Dim NumCols As Long

Set XLApp = CreateObject(Excel.Application")
Set XLWB = Workbooks.Open(Filename:="C:\test\filename.xls")

NumRows = XLWB.Worksheets(1).UsedRange.Rows.Count
NumCols = XLWB.Worksheets(1).UsedRange.Columns.Count

Set XLWB = Nothing
Set XLApp = Nothing

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my
addy)