VBScript focus on Excel Alert

[jimbolove]

My code is using errorcodes generated from Excel. So I don't want to turn off alerts. However I'm having an issue and want to answer the Excel Alert caused by the save error "File already exists, Do you want to save over?" message and want to answer "No". Is this possible? Below is some of my code:
Set oExcelFile = oFileObject.GetFile(strExternalFilePath)
strExcelFileName = oExcelFile.Name
Set oExcelObject = GetObject("","Excel.Application")
Set ExcelWorkbook = oExcelObject.Workbooks.Open(strExternalFilePath)
Set oExcelSheet = ExcelWorkbook.Sheets(1)

On Error resume next
oExcelSheet.parent.save
If Err.Number <> 0 Then
OExcelObject.diplayalerts.Visible = True
msgbox "The file is open and needs to be closed"
subDestroyObjects
wscript.quit
Else

oExcelObject.Application.Windows(strExcelFileName).Visible = True
oExcelObject.Application.Visible = False
End If

End IF
End Sub

 

[SkipVought]

Hi,

OExcelObject IS the Excel Application Object. Look at your Set statement.

OExcelObject.DisplayAlerts = FALSE

...turns off alerts.

 

[jimbolove]

Skip thanks for the response but if I turn off alerts then I don't get the error code. The script just continues to run. Whereas I don't want the script to continue if there is an error.

 

[SkipVought]

Then why can't you answer the alert? Is the Excel Application visible at that instant?

 

[jimbolove]

I can't seem to activate the box, it's visible but it's not letting me focus on it.

 

[SkipVought]

You might try this...

On Error resume next
oExcelSheet.parent.save 
If Err.Number <> 0 Then

   MsgBox err.message, vbYesNo

   If vbYesNo = "Yes" Then

   Else

   End If

Else

End If

On Error Goto 0.  'Turn off on error.

Code the yes /no according to your needs.

 

[jimbolove]

Here's the alert box that I'm getting from excel, but nothing I try seems to focus on it.

 

[SkipVought]

Oh, I should have added to first set DisplayAlerts to FALSE, then the code I posted.