Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Как проверить открыта ли книга Excel
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
ZhenyaYa
Здравствуйте! Подскажите, пожалуйста, как проверить открыта ли книга excel, и если она открыта только для чтения, задать вопрос "Продолжить работу?", если да, то делаем выгрузку, если нет, то какое то сообщение...Делаю так

Попытка  

Книга=Эксель.Workbooks.Item(СокрЛП(ПараметрыВыгрузки.ПутьКФайлу));

Если Книга.ReadOnly=-1 Тогда
Отв=Вопрос("Файл открыт только для чтения, продолжить заполнение?", 3);
Если Отв=6 Тогда
Сообщить ("Продолжаем ввод");
КонецЕсли;    
Книга.Close(0);
КонецЕсли;
  
Исключение
Сообщить("Ошибка");
КонецПопытки;


Не работает


 ! 

Правила, п.13
 

Точнее не работает
Книга=Эксель.Workbooks.Item(СокрЛП(ПараметрыВыгрузки.ПутьКФайлу));

так как до вопроса не доходит
alex040269
В Item, на сколько я помню, не путь, а номер книги.
ZhenyaYa
На msdn

Set wb = Workbooks.Item("myaddin.xla")

То есть в первом варианте я был не прав, когда писал полный путь...Но сейчас пишу

Книга=Эксель.Workbooks.Item("Док2.xls");


Тоже не работает...

За оформление первого поста извините


с номером книги работает...только как теперь определить под каким номером открыта Док2
alex040269
WorkBooks.Item(1).Name :)
ZhenyaYa
все, оказалось что у меня книга называлась КА.xls на английском языке, а я в 1с вбивал ее название на русском... faceoff.gif

но вы тему не закрывайте, что то мне подсказывает что еще буду вопросы по выгрузке в excel crazy.gif
MATEVI
Цитата(ZhenyaYa @ 19.10.12, 15:07) необходимо зарегистрироваться для просмотра ссылки
но вы тему не закрывайте, что то мне подсказывает что еще буду вопросы по выгрузке в excel crazy.gif

Ну а вы кстати ознакомьтесь с правилами. Так про между прочим wink.gif

 i 

6. Новый вопрос - это новая тема! Не следует создавать одну тему и лепить в неё все свои вопросы
 
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.