|
v7: Сохранение таблицы из 1С в Excel | ☑ | ||
|---|---|---|---|---|
|
0
st13
12.01.08
✎
06:43
|
Народ, нужна помощь по вопросу программного сохранения информации, сформированной в 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 и как ее выгрузить достоверно. Пока я в этой теме не силен. Спасибо за помощь. |
|||
|
1
ТелепатБот
гуру
12.01.08
✎
06:43
|
||||
|
2
st13
12.01.08
✎
10:34
|
Народ, мне надо сохранить таблицу в Excel. Что-то совсем запутался.
По-возможности, помогите, пжл, это сделать. Что можно упростить в этом коде, чтобы таблица программно сохранялась? |
|||
|
3
AcaGost
12.01.08
✎
11:00
|
(0) Мыло...
|
|||
|
4
st13
12.01.08
✎
11:04
|
(0)Пробывал решить задачу по алгориму, приведенному в 3-ем примере (1), что-то не пошло. Мне надо сохранить в конкретно выбираемый файл и чтобы он прописывался в шапке документа, с которого сохраняю.
Если кто сможет - пришлите, пжл, ссылку на практическую обработку, а я сам доделаю под свою задачу или подскажите, какупростить или доделать в алгорите, приведенном выше. Заранее спасибо. |
|||
|
5
st13
12.01.08
✎
11:05
|
(3)st1361@mail.ru Спасибо
|
|||
|
6
st13
12.01.08
✎
11:14
|
(3) st1361@mail.ru Проверил адрес,вроде ничего не пришло. Повторите, пжл. Спасибо
|
|||
|
7
AcaGost
12.01.08
✎
11:19
|
(5) отправил текст модуля
формирование прайса в Excel с группировками |
|||
|
8
st13
12.01.08
✎
11:33
|
(7)Просьба сохранить текст, когда установлен на экране руский язык (не англ). Тект получился - сплошная шифровка. пришли, пжл, еще раз. Спасибо
|
|||
|
9
st13
12.01.08
✎
11:37
|
(7) в приложении текст читабелен. Спасибо, буду разбираться.
|
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |