Script not sending Enter COmmand

[tkeaston14]

Hello, I wrote a script that opens an excel file on my desktop, runs a module macro, saves the file as csv, and exits, however when I get to the post Save As screen where I must confirm that some features will not carry over to CSV I cannot get the script to send the Enter command for some reason. Here is my code.

 

expandcollapse popup

#region --- Au3Recorder generated code Start (v3.3.9.5 KeyboardLayout=00000409)  ---

#region --- Internal functions Au3Recorder Start ---
Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000409' Then
  MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000409->' & $aResult[1] & ')')
EndIf



EndFunc



Func _WinWaitActivate($title,$text,$timeout=0)
    WinWait($title,$text,$timeout)
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc



_AU3RecordSetup()
#endregion --- Internal functions Au3Recorder End ---


Send("a{ENTER}")
_WinWaitActivate("Microsoft Excel - Abacus List","")
Send("{ALTDOWN}{F11}{ALTUP}")
Send("{ALTDOWN}{I}{ALTUP}")
Send("{M}")
_WinWaitActivate("Microsoft Visual Basic for Applications - Abacus List.xlsx","")
Send("Sub sbVBS_To_delete_firstFewRows_in_Excel() {ENTER} Rows(1).EntireRow.Delete {ENTER} Rows(1).EntireRow.Delete {ENTER} Rows(1).EntireRow.Delete {ENTER} Rows(1).EntireRow.Delete {ENTER} Rows(1).EntireRow.Delete {ENTER} Columns([1]).EntireColumn.Delete {ENTER} Columns([1]).EntireColumn.Delete")
Send ("{F5}")
Send ("{ALTDOWN}{F4}{ALTUP}")
_WinWaitActivate("Microsoft Excel - Abacus List","")
Sleep(2000)
Send("{F12}")
Sleep(2000)
_WinWaitActivate("Save As","")
Sleep(2000)
Send("{TAB}c{ENTER}")
Sleep(2000)
_WinWaitActivate("Confirm Save As","")
Send("{ENTER}")
_WinWaitActivate("Microsoft Excel","")
Send("{ENTER}")


#endregion --- Au3Recorder generated code End ---

 

[JohnOne]

I have no time to look at such a script, but have you considered The _Excel_* functions from standard excel UDF?

[tkeaston14]

Ok updated the code to use the Excel UDF with some standard inputs. However, my initial issue still stands where it will not send Enter to the last save dialog box. Any ideas?

 

Updated Code

expandcollapse popup

#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Create application object
Local $oAppl = _Excel_Open()
If @error Then Exit MsgBox(16, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

; *****************************************************************************
; Open an existing workbook and return its object identifier.
; *****************************************************************************
Local $sWorkbook = @ScriptDir & "\Abacus List.xlsx"
Local $oWorkbook = _Excel_BookOpen($oAppl, $sWorkbook, Default, Default, True)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpen Example 1", "Error opening '" & $sWorkbook & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

Sleep(2000)
Sleep(2000)
Sleep(2000)
Send("{ENTER}")
Send("{ALTDOWN}{F11}{ALTUP}")
Send("{ALTDOWN}{I}{ALTUP}")
Send("{M}")
Sleep(2000)
Send("Sub sbVBS_To_delete_firstFewRows_in_Excel() {ENTER} Rows(1).EntireRow.Delete {ENTER} Rows(1).EntireRow.Delete {ENTER} Rows(1).EntireRow.Delete {ENTER} Rows(1).EntireRow.Delete {ENTER} Rows(1).EntireRow.Delete {ENTER} Columns([1]).EntireColumn.Delete {ENTER} Columns([1]).EntireColumn.Delete")
Send ("{F5}")
Sleep(2000)
Sleep(2000)
Sleep(2000)
Sleep(2000)
Send ("{ALTDOWN}{F4}{ALTUP}")
Sleep(2000)
Sleep(2000)
Sleep(2000)
Send("{F12}")
Sleep(2000)
Sleep(2000)
Sleep(2000)
Sleep(2000)
Send("{TAB}c{ENTER}")
Sleep(2000)

Sleep(2000)
Send("{TAB}{ENTER}")
Sleep(2000)
Sleep(2000)
Send("{ENTER}")
Sleep(2000)
Sleep(2000)
Sleep(2000)
_Excel_BookClose($oWorkbook, False)
Send("{TAB}{ENTER}")
Sleep(2000)
Sleep(2000)
Send ("{ALTDOWN}{F4}{ALTUP}")

 

[water]

Saving a worbook can as well be done using a function from the Excel UDF: _Excel_BookSave or _Excel_BookSaveAs.