Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Ошибка при СоздатьОбъект("Excel.Application")          
Vofka Подменю пользователя
сообщение 15.09.09, 16:09
Сообщение #1

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13956
Из: Киев
Спасибо сказали: 4523 раз
Рейтинг: 3646.4

Привет!

Сабж. Это может быть из-за того, что в системе не установлен Excel ?

Если да, тогда
В системе установлен опэн офис. Можно как-нибудь его заюзать (как-то типа СоздатьОбъект("OpenOffice.Application") или всё не так просто?)
Иначе
Что делать?
КонецЕсли;

smile.gif

World1С Подменю пользователя
сообщение 15.09.09, 16:42
Сообщение #2

Оратор
Иконка группы
Квалифицированному 1С программисту
Группа: Местный
Сообщений: 358
Из: г.Луганск, обл.Луганская
Спасибо сказали: 110 раз
Рейтинг: 0

СоздатьОбъект("OpenOffice.Application") или всё не так просто.


Signature
В наше время люди всему знают цену, но понятия не имеют о подлинной ценности.
Оскар Уайлд

danie Подменю пользователя
сообщение 15.09.09, 16:43
Сообщение #3

Завсегдатай
****
Группа: Пользователи
Сообщений: 219
Из: Полтава
Спасибо сказали: 38 раз
Рейтинг: 0

Ошибка именно из-за отсутствия самого приложения Excel.
Работа с опеном посредством OLE возможна. Почитайте [необходимо зарегистрироваться для просмотра ссылки], [необходимо зарегистрироваться для просмотра ссылки].
[необходимо зарегистрироваться для просмотра ссылки]


Signature
Новый Орбит "Ай, бля!" со вкусом языка

Спасибо сказали: Vofka,

World1С Подменю пользователя
сообщение 15.09.09, 16:49
Сообщение #4

Оратор
Иконка группы
Квалифицированному 1С программисту
Группа: Местный
Сообщений: 358
Из: г.Луганск, обл.Луганская
Спасибо сказали: 110 раз
Рейтинг: 0

Sub firstOOoProc()

Dim oSM                   'Root object for accessing OpenOffice from VB
Dim oDesk, oDoc As Object 'First objects from the API
Dim arg()                 'Ignore it for the moment !
    
'Instanciate OOo : this line is mandatory with VB for OOo API
  Set oSM = CreateObject("com.sun.star.ServiceManager")
'Create the first and most important service
  Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
  
'Create a new doc
  Set oDoc = oDesk.loadComponentFromURL("private:factory/swriter", "_blank", 0, arg())
'Close the doc
  oDoc.Close (True)
  Set oDoc = Nothing
    
'Open an existing doc (pay attention to the syntax for first argument)
  Set oDoc = oDesk.loadComponentFromURL("file:///c:/dev/ooo/test.doc", "_blank", 0, arg())
'Save the doc
  Call oDoc.storeToURL("file:///c:/dev/ooo/test2.sxw", arg())
'Close the doc
  oDoc.Close (True)
  Set oDoc = Nothing
    
End Sub


Вот так это выглядит для VBA


Signature
В наше время люди всему знают цену, но понятия не имеют о подлинной ценности.
Оскар Уайлд

Спасибо сказали: Vofka,

World1С Подменю пользователя
сообщение 15.09.09, 16:57
Сообщение #5

Оратор
Иконка группы
Квалифицированному 1С программисту
Группа: Местный
Сообщений: 358
Из: г.Луганск, обл.Луганская
Спасибо сказали: 110 раз
Рейтинг: 0

процедура Сформировать();
перем tOO,яч;
    tOO=СоздатьОлеОбъект("TOpenOffice.Bridge");
    tOO.Open("c:\sample.xls");
    tOO.Cells(1,1).text="Это текст из 1С!";
    яч=tOO.Cells(1,2);
    сообщить("В ячейке B3 содержится текст:"+яч.text);
    tOO=0;
конецПроцедуры // Сформировать();
Для 8.1

Посмотреть можно здесь


Signature
В наше время люди всему знают цену, но понятия не имеют о подлинной ценности.
Оскар Уайлд

Спасибо сказали: Vofka,

Vofka Подменю пользователя
сообщение 16.09.09, 11:51
Сообщение #6

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13956
Из: Киев
Спасибо сказали: 4523 раз
Рейтинг: 3646.4

Спасибо за инфу!

Раз все не так просто, то вопрос пока отпадает. У клиента был вопрос "нельзя ли что-то исправить что-бы работало?". А разрабатывать специально под опен офис клиент не хочет (денег жалко чтоли или думает, что его "кидют"). Поэтому инфу по возможности почитаю (в целях самообразования) smile.gif .

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 01.06.24, 10:37
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!