RE: Excel.Application определение пустой строки

babken76 — Fri, 09 Feb 2007 13:55:23 GMT

Признаюсь, я не сразу даже понял, что Вы написали.
4 строчки=2 ошибки? здорово!

строка 1 objExcel.Workbooks.Open("C:\project117Form\"BASIC1.xls")
Вторая кавычка лишняя
2 Dim oSheet As New Excel.Worksheet
А с чего Вы решили, что таким образом сослались именно на лист объекта objExcel?

Вот так будет работать:
[code]
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
[/code]

С уважением,

Excel.Application определение пустой строки

Светлячок — Fri, 09 Feb 2007 10:25:10 GMT

необходимо определить номер первой пустой строки в Excel-таблице

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

Dim objExcel As New Excel.Application()

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

Dim oSheet As New Excel.Worksheet

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

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

Релиб / Программирование / .NET / VB.NET / Excel.Application определение пустой строки / Latest Posts

RE: Excel.Application определение пустой строки

Excel.Application определение пустой строки