Plz Help me find the error in my script

[martmeister]

Here is my code:

#include <Excel.au3>

run ("C:\Program Files\Microsoft Office\Office12\EXCEL.exe") ;opens excel

winwaitactive ("Microsoft Excel - Book1")

sleep (900)

Global $oExcel = _ExcelBookOpen("C:\Documents and Settings\programHopper.xlsm")

WinWait("Microsoft Excel - programHopper.xlsm")

Sleep(2000)

$oExcel.Run("MacroHop")

The Last Line Is Where Im Getting My Error..ehh, I dont know why its not running the macro called MacroHop

The Macro is Part of the the program Hopper and works correctly when I manually run it so i know it works. I just need some help automating this. lol

thanks!

[PsaltyDS]

Here is my code:

#include <Excel.au3>

run ("C:\Program Files\Microsoft Office\Office12\EXCEL.exe") ;opens excel

winwaitactive ("Microsoft Excel - Book1")

sleep (900)

Global $oExcel = _ExcelBookOpen("C:\Documents and Settings\programHopper.xlsm")

WinWait("Microsoft Excel - programHopper.xlsm")

Sleep(2000)

$oExcel.Run("MacroHop")

The Last Line Is Where Im Getting My Error..ehh, I dont know why its not running the macro called MacroHop

The Macro is Part of the the program Hopper and works correctly when I manually run it so i know it works. I just need some help automating this. lol

thanks!

You may be getting the wrong instance of Excel in $oExcel because you opened it with Run() and then did _ExcelBookOpen() also. What happens if you close all instances of Excel and then just do:

#include <Excel.au3>

Global $oExcel = _ExcelBookOpen("C:\Documents and Settings\programHopper.xlsm")
WinWait("Microsoft Excel - programHopper.xlsm")
Sleep(2000)
$oExcel.Run("MacroHop")

If it still doesn't work, then post exactly what error you are getting.

[martmeister]

thanks man. I will try that tonight and get back to you

[martmeister]

You may be getting the wrong instance of Excel in $oExcel because you opened it with Run() and then did _ExcelBookOpen() also. What happens if you close all instances of Excel and then just do:

#include <Excel.au3>

Global $oExcel = _ExcelBookOpen("C:\Documents and Settings\programHopper.xlsm")
WinWait("Microsoft Excel - programHopper.xlsm")
Sleep(2000)
$oExcel.Run("MacroHop")

If it still doesn't work, then post exactly what error you are getting.

>_<

It is still not working. It errors out when it open the file with "pic- autoit error message"

is there something in excel where i can enable/disable this not to popup..?autoit error message.bmp

[martmeister]

It is still not working. It errors out when it open the file with "pic- autoit error message"

is there something in excel where i can enable/disable this not to popup..?autoit error message.bmp

never mine i solved my pop-up problem

[PsaltyDS]

It is still not working. It errors out when it open the file with "pic- autoit error message"

is there something in excel where i can enable/disable this not to popup..?autoit error message.bmp

I'm not sure you can prevent that message, but you can handle it:

#include <Excel.au3>

Global $oExcel = _ExcelBookOpen("C:\Documents and Settings\programHopper.xlsm")

; Handle link warning within 30sec
Global $iTimer = TimerInit()
While 1
    If WinExists("Microsoft Office Excel", "This workbook contains one or more links that cannot be updated.") Then
        ControlSend("Microsoft Office Excel", "This workbook contains one or more links that cannot be updated.", "", "{ENTER}")
        ExitLoop
    ElseIf TimerDiff($iTimer) >= 30 * 1000 Then
        MsgBox(64, "Timeout", "30 sec timeout expired without seeing links warning")
        ExitLoop
    EndIf
WEnd

Sleep(2000)
$oExcel.Run("MacroHop")

>_<

[martmeister]

I'm not sure you can prevent that message, but you can handle it:

#include <Excel.au3>

Global $oExcel = _ExcelBookOpen("C:\Documents and Settings\programHopper.xlsm")

; Handle link warning within 30sec

Global $iTimer = TimerInit()

While 1

If WinExists("Microsoft Office Excel", "This workbook contains one or more links that cannot be updated.") Then

ControlSend("Microsoft Office Excel", "This workbook contains one or more links that cannot be updated.", "", "{ENTER}")

ExitLoop

ElseIf TimerDiff($iTimer) >= 30 * 1000 Then

MsgBox(64, "Timeout", "30 sec timeout expired without seeing links warning")

.

>_<

Thanks I fixed it.

I have another question after programhopper how would i select a worksheet in the excel workbook?

Would this work after opening:

$oExcel = ObjCreate("programHopper") ; Create an Excel Object WITH $oExcel

.Visible = 1 ; Let Excel show itself

.Workbooks.Open "worksheetnumber4.xls" ; Open workbook

.Run "MacroHop" ; Run macro

.Quit ; Quit Excel ENDWITH... will this exit excel all together?

Would that work.

[PsaltyDS]

Thanks I fixed it.

I have another question after programhopper how would i select a worksheet in the excel workbook?

Would this work after opening:

$oExcel = ObjCreate("programHopper") ; Create an Excel Object WITH $oExcel

.Visible = 1 ; Let Excel show itself

.Workbooks.Open "worksheetnumber4.xls" ; Open workbook

.Run "MacroHop" ; Run macro

.Quit ; Quit Excel ENDWITH... will this exit excel all together?

Would that work.

You have to put parameters passed to methods inside parens, i.e. ".Run('MacroHop')". Other than that, I don't see why it wouldn't work. What happened when you tried it?

>_<