Делаю следующим образом -

Dim objExcel As New Excel.Application()

objExcel.Workbooks.Open("C:\project117Form\"BASIC1.xls")

 number = objExcel.WorksheetFunction.CountA(oSheet.Range("A:A")) + 1 -

в этой строчке выдает ошибку,может что еще забыла объявить,подскажите плиз!заранее всем спасибо

Dim objExcel As New Excel.Application



objExcel.Workbooks.Open ("C:\project117Form\BASIC1.xls")

Set oSheet = objExcel.ActiveSheet' или objExcel.worksheets(n), где n номер листа

Number = objExcel.WorksheetFunction.CountA(oSheet.Range("A:A")) + 1