Ищу функцию для VIP, аналог макроса Excel
Sub Макрос1()
' Макрос1
ActiveSheet.PageSetup.Zoom = 80
End Sub
Eсть же функция xlAutoFit(3,1,MaxExcelRow , MaxExcelCol);
и та, которую ищу должна быть, и вообще, как посмотреть все функции для Excel которыми можно пользоваться в VIP.
Ищу функцию
Модераторы: m0p3e, edward_K, Модераторы
-
- Постоянный обитатель
- Сообщения: 143
- Зарегистрирован: 09 авг 2006, 16:40
- Откуда: Россия, Тюмень, ОАО "Сибирский Научно-Аналитический Центр"
Посмотреть можно в файле Excel.doc
А вам можно сделать так VIP-ом :
А вам можно сделать так 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'));
...
На самом деле excellib.dll экспортирует функций больше, чем описано в excel.doc. Достаточно просмотреть dll с помощью, например Dependency Walker или PAS/EXCEL/excellib.pas.Nikos писал(а):http://www.tyumbit.ru/gal_forum/viewtopic.php?t=2786