Имя: Пароль:
1C
1C 7.7
v7: Сохранение в Excel
0 NemeL
 
13.06.12
11:22
Добрый день, подскажите в чем проблема и как ее решить, выводу документ на печать, открывается форма предварительного просмотра, и Сохраняю как - таблица Excel,сохранил, открываю Excel-документ, а там проловина текста не сохранилось. В чем проблема?
1 SanGvin
 
13.06.12
11:23
(0) попробывать раздвинуть строки ячеек
2 Venom
 
13.06.12
11:24
Длина строки ячейки обрезается до 128 (помоему по памяти) символов.
3 NemeL
 
13.06.12
11:24
(1) в excel? если там то пробывал ничего там нету
4 Venom
 
13.06.12
11:25
(2) поправка 255 символов.
5 Попытка1С
 
13.06.12
11:25
(0) Йоксель себя спасет.
6 Попытка1С
 
13.06.12
11:27
тебя т.е. )
7 NemeL
 
13.06.12
11:35
(5) Спасибо, так то все работает и сохраняется, но требует большего количества действий, чтоб сохранить в Excel файл, т.е никакой автоматизации(((
8 NemeL
 
13.06.12
12:37
еще вопрос:  как создать новый документ в ойкселе?
[Code]
Если ВыгрузитьВФайл = 1 тогда
ПолноеИмяФайла = КаталогИБ() + "Счет.mxl";
Если ФС.СуществуетФайл(ПолноеИмяФайла) = 1 Тогда
ФС.УдалитьФайл(ПолноеИмяФайла);
КонецЕсли;
Таб.Записать(ПолноеИмяФайла, "XMLS");

Йоксель = СоздатьОбъект ("Йоксель");
Документ = Йоксель.СоздатьТабличныйДокумент ();
Документ.Открыть(ПолноеИмяФайла,2,0);
[/code]
хочу сначало выгрузить печатную форму в таблицу, а потом чтоб йоксель открыл ее, только вот как подключиться в нему ?
9 oleg_prg
 
13.06.12
12:42
Процедура ОткрытьДокумент()
   Файл = "D:\MOЙ.XLS";
   ЗапуститьПриложение(Файл);
КонецПроцедуры
10 oleg_prg
 
13.06.12
12:51
Если интересует как работать с EXCEL на уровне OLE, то вот так
ОкноExcel = СоздатьОбъект("Excel.Application");
   ОкноExcel.Workbooks.Open("F:\План_Счетов-2012.xls");    
   Для А = 1 По ОкноExcel.Worksheets.Count Цикл
       Сообщить(ОкноExcel.Worksheets(А).Name);            
   КонецЦикла;    
   
   //Прочитаем данные
   Для А = 1 По 20 Цикл
       Сообщить(ОкноExcel.Worksheets(1).Range("A"+СокрЛП(А)).Value);
       Сообщить(ОкноExcel.Worksheets(1).Range("B"+СокрЛП(А)).Value);
   КонецЦикла;    

      //Визуальное открытие
      //вроде вот так
       ОкноExcel.Visible = 1;
   ОкноExcel.Activate();
   ОкноExcel.Application.WindowState = 1;

//По OLE командам смотри HELP VB в продуктах MS OFFICE
11 NemeL
 
13.06.12
14:18
(9)(10) спасибо, проблема решена.
12 andrewks
 
13.06.12
14:20
(7) всё автоматизируется, не надо ля-ля
13 NemeL
 
13.06.12
15:03
(12) поспешил с выводом, просто никогда не работал с йокселем, щас разобрался все работает как надо.
Независимо от того, куда вы едете — это в гору и против ветра!