Страница 1 из 1

Ищу функцию

Добавлено: 15 апр 2008, 11:04
ENB83
Ищу функцию для VIP, аналог макроса Excel

Sub Макрос1()
' Макрос1
ActiveSheet.PageSetup.Zoom = 80
End Sub

Eсть же функция xlAutoFit(3,1,MaxExcelRow , MaxExcelCol);
и та, которую ищу должна быть, и вообще, как посмотреть все функции для Excel которыми можно пользоваться в VIP.

Добавлено: 15 апр 2008, 11:09
Nikos

Добавлено: 15 апр 2008, 11:20
k_vit
Посмотреть можно в файле Excel.doc


А вам можно сделать так VIP-ом :

Код: Выделить всё

...
  LogStrToFile('c:\Macro.bas', ShortStrToWin('Sub Макрос1()'));
  LogStrToFile('c:\Macro.bas', ShortStrToWin('ActiveSheet.PageSetup.Zoom = 80'));
  LogStrToFile('c:\Macro.bas', ShortStrToWin('End Sub'));

  xlImportModule('c:\Macro.bas');
  xlRunMacro(ShortStrToWin('Макрос1'));
...

Добавлено: 15 апр 2008, 18:04
m0p3e
На самом деле excellib.dll экспортирует функций больше, чем описано в excel.doc. Достаточно просмотреть dll с помощью, например Dependency Walker или PAS/EXCEL/excellib.pas.

Добавлено: 16 апр 2008, 05:48
Алексей
m0p3e
Может быть кто-нибудь дополнит эту доку и выложит "свежий" вариант? :-o

Добавлено: 16 апр 2008, 11:54
m0p3e
Может дополнит. Как только с поддержкой OpenOffice закончит. :)