Что нового

Как включить макросы в Excel с помощью Autoit

Stalevar

Новичок
Сообщения
31
Репутация
0
В VBS вроде так:

Код:
Sub test()
    Dim objXL
    Dim Secur
    Set objXL = CreateObject("Excel.Application")
    objXL.Visible = TRUE
    secur = objXL.AutomationSecurity
    objXL.AutomationSecurity = 1
    objXL.Workbooks.Open replace(Wscript.ScriptFullName,".vbs",".xlsb"),,,,"4321"
    objXL.AutomationSecurity = secur
End Sub
Как можно в Autoit сделать.
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Код:
Func _Test()
    Local $oXL
    Local $vSecur
    $oXL = ObjCreate("Excel.Application")
    $oXL.Visible = TRUE
    $vSecur = $oXL.AutomationSecurity
    $oXL.AutomationSecurity = 1
    $oXL.Workbooks.Open(StringReplace(@ScriptName,".au3",".xlsb"),,,,"4321")
    $oXL.AutomationSecurity = $vSecur
EndFunc ;==> _Test
 
Автор
S

Stalevar

Новичок
Сообщения
31
Репутация
0
Сделал по другому, нормально вроде работает.
Код:
Local $oExcel = _Excel_Open()
Local $oWorkbook =_Excel_BookOpenEX($oExcel,@WorkingDir &"\123.xlsb",False,False,"111","",3)

Подскажите еще пожалуйста.
Книга "123" открывается с паролем, но у нее связь с другой книгой "1234", на которую тоже пароль установлен.
Как ввести пароль при открытии книги "123" на книгу с которой установлена связь?
 
Верх