0
alekosansey
26.05.22
✎
11:37
|
Добрый день. Разбираю excell и не могу понять получаю решетки в значение. Как это обойти?
Код:
Excel = Новый COMОбъект("Excel.Application");
Excel.WorkBooks.Open(Объект.Файлик);
//Открываем необходимый лист
Excel.Sheets(1).Select(); // лист 1, по умолчанию
Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
Если Версия = "8" тогда
КолСтрок = Excel.Cells.CurrentRegion.Rows.Count;
Иначе
КолСтрок = Excel.Cells(1,1).SpecialCells(11).Row;
Конецесли;
Если КолСтрок > 0 И КолСтрок <> 8 Тогда
НомерСтроки = 8;
Для НомерСтроки = 8 По КолСтрок Цикл
Для НомерКолонки = 1 По 14 Цикл
ТекущееЗначение = Excel.Cells(НомерСтроки, НомерКолонки).Text;
КонецЦикла;
КонецЦикла;
КонецЕсли;
Excel.Quit();
|
|