Обучение 1С 8.2 Докум. в PDF или Excel сохраняем. Урок 13
| Народ, нужна помощь по вопросу программного сохранения информации, сформированной в 1С во внешнюю таблицу Excel. Помогите, кто сможет.Бьюсь над выгрузкой несколько часов, чертовски устал, результата нет, а утром надо сдать заказчику. Нижнюю часть взял с выгрузки чужой, все остальное писал сам. Но сама выгрузка и не работает Таблица имеет секцию шапка и секцию Строка. Процедура Сформировать() ИмяФайлаВыгр="ТаблицаДляНДС.xls"; _ВыбКат= КаталогИБ()+"ExtForms\"; _Зн=ФС.ВыбратьФайл(1,ИмяФайлаВыгр,_ВыбКат,"Сохранить файл как...","Файлы Excel|*.xls","xls",10); Если ИмяФайлаВыгр="" Тогда СтатусВозврата(0); Возврат; КонецЕсли; //формирую саму таблицу Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); Таб.ВывестиСекцию("Шапка|Основная"); //Таб.Записать(ИмяФайлаВыгр+".xls",1); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Состояние("Вывод выходной таблицы..."); НомерПП=0; ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл НомерПП=НомерПП+1; Таб.ВывестиСекцию("Строка|Основная"); //Таб.Записать(ИмяФайлаВыгр+".xls",1); КонецЦикла; //Формирую сам объект и мне надо сохранить в Excel (скопировал с выгрузки чужой, но не заработало _ОкноЕхс=СоздатьОбъект("Excel.Application"); _ИмяФФ =_ВыбКат+ИмяФайлаВыгр; _ОкноЕхс.Visible=0; _ОкноЕхс.DisplayAlerts=0; Попытка // если уже открыт файл с таким именем, то просто неназойливо сохраним его и закроем :-) _ОкноЕхс.Windows(ИмяФайлаВыгр).Close(1); // или Close(-1) - тогда просто молча закроем, не сохраняя Исключение КонецПопытки; _ОкноЕхс.DisplayAlerts=1; _ОкноЕхс.Workbooks.Open(_ИмяФФ); _ОкноЕхс.DisplayAlerts=0; _ОкноЕхс.ActiveWorkbook.SaveAs(_ИмяФФ,-4143); //без лишних вопросов сохраним в нормальном формате Excel _ОкноЕхс.DisplayAlerts=1; Состояние("Запись файла ...."); _ОкноЕхс.Workbooks(ИмяФайлаВыгр).Save(); _ОкноЕхс.ReferenceStyle=1; _ОкноЕхс.Visible=1; _ОкноЕхс.Windows(ИмяФайлаВыгр).Visible=1; _ОкноЕхс=0; Сама таблица в 1С заполняеся и формируется нормально. Программно выгрузить в Еxcel не получилось. Кто сможет, подскаите, пжл, как можно упростить саму процедуру формирования выгружаемой таблицы в excel и как ее выгрузить достоверно. Пока я в этой теме не силен. Спасибо за помощь. | 0 3 4 |