Имя: Пароль:
1C
1С v8
Работа с Excel в Восьмёрке
0 В_Пупкин
 
25.09.11
20:49
Пытаюсь прочесть Excel файл делаю:
Процедура КнопкаВыполнитьНажатие(Кнопка)
   СписокОС = Новый СписокЗначений;
   Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   Диалог.Заголовок = "Выберите файл со списком ОС";
   Диалог.ПолноеИмяФайла = "";
   Диалог.ПредварительныйПросмотр = Истина;
   Если Диалог.Выбрать() Тогда
       ПутьКФайлу = Диалог.ПолноеИмяФайла;
   КонецЕсли;
   Эксель = Новый COMОбъект("Excel.Application");
   Книга = Эксель.WorkBooks.Open(ПутьКФайлу);
   Лист = Книга.Sheets(1);
   Для С = 11 по 319 Цикл
       Код = Лист.Cells(С,2).Value;
   КонецЦикла;    
КонецПроцедуры
Смотрю в отладчике-код "Неопределено".Что я делаю не так?Поможите!!!
1 Kookish
 
25.09.11
21:27
У меня этот код работает. Может, файл не открылся из-за того, что занят? Эксель, Книга, Лист в отладчике смотрел?
2 aleks-id
 
25.09.11
21:29
Книга = Эксель.WorkBooks.Open(ПолноеИмяФайла);
3 Kookish
 
25.09.11
21:31
(2) Да не в этом дело. У него так и есть, посмотри. Полностью рабочий код.
4 aleks-id
 
25.09.11
21:34
(3) упс. проглядел... пусть попробует офис переустановить. но пусть сначала попробует посмотреть в диспетчере задач - нет ли там зависшего экселя, и снять его перед отладкой если есть...
5 В_Пупкин
 
25.09.11
21:37
Спасибо alex-id.С меня пиво.
6 Kookish
 
25.09.11
22:12
Эксель.Quit(), Кэп... Это я для себя написал, чтоб запомнить.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан