Checking No of Fields in an Excel file - help required

[Sech]

I am using a File Selection window with an import process in my database. After the user selects the excel file to import, I would like to use some code to check the first record of the file and count the number of valid fields. Also any other checks that could identify whether or not the file was valid would be useful. Does anyone know how to do this?

 

[scking]

You could obviously also use the ActiveSheet object rather than pass a worksheet.

Public Function GetLastRow(oWs As Worksheet) As Long

On Error Resume Next

With oWs.Range("a1&quot.CurrentRegion
mlngLastRow = oWs.Cells(.Rows.Count, 1).Row
End With
GetLastRow = mlngLastRow

End Function

Public Function GetLastCol(oWs As Worksheet) As Long

With oWs.Range("a1&quot.CurrentRegion
mlngLastCol = oWs.Cells(1, oWs.Columns.Count).Column
End With
GetLastCol = mlngLastCol

End Function
----------------------
scking@arinc.com
Life is filled with lessons.
We are responsible for the
results of the quizzes.
-----------------------

 

[Sech]

This almost works except that it brings back ALL the valid columns in the spreadsheet i.e. 256 instead of just the columns which have data in...any ideas?