tkeaston14

Script not sending Enter COmmand

4 posts in this topic

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.

 

#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 ---

 

Share this post


Link to post
Share on other sites



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

#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}")

 

Share this post


Link to post
Share on other sites

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


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now