Форум вопросов и ответов

Форум вопросов и ответов (https://www.otvetnemail.ru/)
-   Новый архив 3 (https://www.otvetnemail.ru/novyj-arhiv-3-813/)
-   -   Прошу, помогите, может быть кто-то знает как переписать следующий код: (https://www.otvetnemail.ru/novyj-arhiv-3-813/proshu-pomogite-mozhet-byt-kto-znaet-kak-perepisat-sleduyushij-kod-309016/)

Guest 30.09.2011 00:16

Прошу, помогите, может быть кто-то знает как переписать следующий код:
 
код должен открывать не Excel, a Calc. На работе горят сроки, в инете ну ничего не нашла, тем более инет ограничен (( Код:EXPORT TO (loPathReport) TYPE XL5 && свои данные экспортирую в новый xls-файл loExcel=GetObject(,"Excel.Application") && запускаю Excel loExcel=CreateObject("Excel.Application" ) loExcel.Application.Visible=.T. && делаю его невидимым и минимизирую окно loExcel.Application.WindowState = xlMinimized .Workbooks.Open( "Report.xls") && открываю файл с макросом .ActiveWindow.WindowState=2 .WorkBooks.Open(loPathReport) && открываем файл с переданными данными lozapmacros='"Report.xls!'+'Report'+'"'+ loparam .Run(&lozapmacros) && запускаем макрос с параметрами loparam .Workbooks(1).Close && закрываю файл с макросом и показываю данные с наложенными на них шаблоном и раставленные по своим местам..... .Application.WindowState = xlMaximized Смогла найти только создать и открыть файл в Calc, а как запустить макрос??? А как скрыть окно, чтобы не видеть как шаблон накладывается и т.д. ((


Часовой пояс GMT, время: 16:02.


© www.otvetnemail.ru - Форум вопросов и ответов.