Ошибка пустого значения?

[Элексир]

Здравствуйте. Помогите с кодом
выдает какую то ошибку.

Код:

Excel = СоздатьОбъект("Excel.Application");
к="";
ф="";
ФС.ВыбратьФайл(0,ф,к);
файл=к+ф;
Книга=Excel.WorkBooks.Open(файл); 
Лист = Книга.Worksheets(1);
Значение1=1;
КС=8; КК=3;
Пока СтрДлина(Значение1)<>0 Цикл
КС=КС+6;
н=Лист.Cells(КС,4).Value;
Если СтрДлина(СокрЛП(Строка(н)))<>0 Тогда
Значение1=Лист.Cells(КС,4).Value;
Сообщить(Значение1);

КК=КК+6;
Значение2=Лист.Cells(КК,8).Value;
Сообщить(Значение2);
//КонецЦикла;

КонецЕсли;
КонецЦикла;
Excel.Quit();

а вот сама ошибка

Код:

н=Лист.Cells(КС,4).Value;
{C:\КОНФЫ\7КА\EXTFORMS\ЗАГРУЗКА_ИЗ_ЕКСЕЛЯ.ERT(23)}: :

[Kivals]

Возможно превышен лимит строк? (64536)
Просто условие выхода из цикла очень неявное...

[Элексир]

Kivals, возможно, но просто я не знаю как задать чтобы обработка подсчитала количество непустых строк.

[Kivals]

Код:

Excel=Новый ComОбъект("Excel.Application");
WB = Excel.Workbooks.Open(ИмяФайла, Истина); // Только для чтения
WB.Worksheets(1); // Первый лист книги. Можно и по имени листа

КонЯчейка=WS.Cells.SpecialCells(xlCellTypeLastCell);
КонКол=КонЯчейка.Column; // Метод не работает на защищенном листе!
КонСтр=КонЯчейка.Row; // Метод не работает на защищенном листе!

КвоСтр=0; // количество непустых строк
Для И1=1 По КонСтр Цикл
Для И2=1 По КонКол Цикл
Зн=WS.Cells(И1, И2).Value;
Если ПустаяСтрока(Зн)=0 Тогда // Если не пустое значение в любой ячейке...
КвоСтр=КвоСтр+1; // ...увеличиваем счетчик строк...
Прервать; // ... и переходим на следующую строку
КонецЕсли;
КонецЦикла;
КонецЦикла;
WB.Close();
Excel.Quit();

Сообщить(КвоСтр);

[Элексир]

Kivals, спасибо щас попробую.

[Элексир]

Kivals, спасибо, сейчас попробую.

Код:

КонЯчейка=WB.Cells.SpecialCells(xlCellTypeLastCell<<?>>);
{C:\Конфы\7ка\ExtForms\загрузка_из_екселя.ert(58)}: Переменная не определена (xlCellTypeLastCell)

Я, кажется, правильно исправил WS на WB?

[Kivals]

Нет - просто я кое-что забыл дописать:

Код:

...
WS=WB.Worksheets(1); // Первый лист книги. Можно и по имени листа
xlCellTypeLastCell=11;
КонЯчейка=WS.Cells.SpecialCells(xlCellTypeLastCell);
...

[Элексир]

Kivals, а почему присваивается именно значение 11 а не какое то другое?

после выполнения он показал мне что непустых строк у меня 27 хотя на самом деле их 28.

[Kivals]

Потому что xlCellTypeLastCell это константа Excel. Смотриться это значение отладчиком в редакторе Visual Basic в макросах Excel.

Уверен? Можешь прикрепить сюда Excel файл (если у нем нет секретных данных)?

[Элексир]

Kivals, у меня оказывается таблица прерывается и в пятой строке(после шапки) идет пустая строка. А можно ли как-то считать чтобы она показывала мне максимальных номер строки?
т.е. показывал № последней не пустой строки?

[Kivals]

Можно. А самому подумать?

Замени
КвоСтр=КвоСтр+1;
на
КвоСтр=И1;

[Элексир]

Kivals, спасибо.