kvitnitskiy
Новичок
- Сообщения
- 56
- Репутация
- 0
Доброго времени суток господа форумчане.
Есть скриптик, который вцикле запускает макрос, все бы хорошо, да вот только работает он если книга активна, и никаких более книг не открыто, если же при этом открыта другая книга, и с ней работаю(не скрипт) - то соответсвено скрипт фейлится.
==> The requested action with this object has failed.:
$oWorkbook1.Application.Run("mainmodule.mainmacros")
$oWorkbook1.Application^ ERROR:
Есть скриптик, который вцикле запускает макрос, все бы хорошо, да вот только работает он если книга активна, и никаких более книг не открыто, если же при этом открыта другая книга, и с ней работаю(не скрипт) - то соответсвено скрипт фейлится.
==> The requested action with this object has failed.:
$oWorkbook1.Application.Run("mainmodule.mainmacros")
$oWorkbook1.Application^ ERROR:
Код:
#Include <Excel.au3>
#Include <File.au3>
#Include <Date.au3>
AdlibRegister("CheckTime", 59000)
HotKeySet("{F1}", "Pause")
Global $Paused
Func Pause()
$Paused = Not $Paused
While $Paused
Sleep(50)
ToolTip("F1")
WEnd
ToolTip("")
EndFunc
FileDelete("file.txt")
$oExcel = _Excel_Open()
$sTitleFilePicker = "Excel file"
$oExcelFile = FileOpenDialog($sTitleFilePicker, @ScriptDir, "Excel (*.xls;*.xlsx;*xlsm;)", 1)
$oWorkbook1 = _Excel_BookOpen($oExcel, $oExcelFile)
Func CheckTime()
If Not Mod(@MIN, 2) Then
;script here
ConsoleWrite(@MIN & " " & _Now() & @CRLF)
FileWrite("file.txt", _Now() & @MIN & @CRLF)
$oWorkbook1.Application.Run("mainmodule.mainmacros")
EndIf
EndFunc
While 1
Sleep(100)
FileWrite("file.txt", _Now & "бла бла бла " & @MIN & @CRLF)
WEnd