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" wrote in message
...
Hi All,

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

Tks

--
Knowlege grows when shared.

http://bensoft.miniville.fr/tra