Using VBA to Close Internet Explorer Message Box Popup

[akrobrat]

Hello, everyone! First time caller, long time listener.

I'm automating a number of weekly reports by using VBA to populate data from an intranet site (via Internet Explorer) into Excel 2003. I am an intermediate user and just ran into something to which I cannot find a solution online.

Current Process:
(1) Navigate to site (2) Use Regular Expressions to extract first set of data into Excel (3) Make changes to page (via buttons and input fields).

Problem:
I've got a handle on nearly everything but in Step (3), IE has a MessageBox popup that asks for confirmation before I deleted some data. That is, I click on a button to clear the items...

IE.Document.getelementbyid("clearRelItems").click()

... and then the Message Box appears, with options "OK" and "Cancel", and I need to hit "OK". Since it's technically not a New Window, I don't think I need to worry about Shell scripts. I can't seem to set any code after this because the Message Box forces user input before continuing.

Just in case, the code on the HTML page has the following line for the button...

<INPUT TYPE=BUTTON NAME=clearRelItems ID=clearRelItems VALUE="Clear List" *******="add_rel_items_to_box(0);">

... but I can't touch any of the JavaScript that's included (company no-no).

What are my options? Can I use keystrokes to mimic pushing the "OK" button? Would I set a timer that could keep checking to see if the Message Box has popped up and to hit "OK"? Thanks in advance for any insight!

- Angelo

 

[Blade Hunter]

I hate doing this but I would think you could use the application.sendkeys command to send a carraige return to the popup.

 

[akrobrat]

@Blade Hunter: Thanks for the response. I have tried using Application.Sendkeys, but the code comes to a complete halt and doesn't get to the Sendkeys statement after the IE Message Box pops up. It waits around for human intervention before proceeding with the code. How can I overcome this?

Thanks again.

 

[John_w]

Just in case, the code on the HTML page has the following line for the button...

<INPUT TYPE=BUTTON NAME=clearRelItems ID=clearRelItems VALUE="Clear List" *******="add_rel_items_to_box(0);">

... but I can't touch any of the JavaScript that's included (company no-no).

I see the forum software has modifed your HTML - the '*******' in the above HTML is meant to be 'o n C l i c k', without the spaces. If you're allowed to, you could try removing the o n C l i c k attribute and/or setting your own o n C l i c k attribute, so that the Javascript confirmation window doesn't appear. Like this, maybe:

IE.Document.getElementById("clearRelItems").removeAttribute ("o n C l i c k")
IE.Document.getElementById("clearRelItems").setAttribute "o n C l i c k", "return true"

That code is untested and the syntax might be wrong - have a play around. Search for HTMLInputButtonElement for more properties and methods of the Input button.

    Dim ib As HTMLInputButtonElement
    ib.o n C l i c k = ""  'remove spaces

Might work instead of removing/setting the attribute. Note - there should be no spaces in o n C l i c k in VBA and HTML code!

 

[akrobrat]

John W, your suggestion to change the attribute in the document rather than fighting the popup confirmation window worked. I was even able to use the removeAttribute method to get rid of some of the ReadOnly fields to process document faster.

I didn't test the HTMLInputButtonElement, but it may cmoe in handy for someone that runs into this issue in the future.

Thank you very much!

 

[velkugan]

Hi Folks,

I found this info very useful... i have been searching for this long time...

but my situation is little different now....

the html code for the button has been formed using

SPAN

tag in that they are using

A

tag with on click event.

i am able to click the tag... but the message box is still displayed..

i tried setAttribute and removeAttribute but no help... still the message box appears...

i am not sure i can use the HTMLInputButtonElement, since my html button is not exactly an input button.

kindly help me on this......

Thanks

 

[Raygar]

I see the forum software has modifed your HTML - the '*******' in the above HTML is meant to be 'o n C l i c k', without the spaces. If you're allowed to, you could try removing the o n C l i c k attribute and/or setting your own o n C l i c k attribute, so that the Javascript confirmation window doesn't appear. Like this, maybe:

IE.Document.getElementById("clearRelItems").removeAttribute ("o n C l i c k")
IE.Document.getElementById("clearRelItems").setAttribute "o n C l i c k", "return true"

That code is untested and the syntax might be wrong - have a play around. Search for HTMLInputButtonElement for more properties and methods of the Input button.

    Dim ib As HTMLInputButtonElement
    ib.o n C l i c k = ""  'remove spaces

Might work instead of removing/setting the attribute. Note - there should be no spaces in o n C l i c k in VBA and HTML code!

The Attribute idea worked for me in the past but I'm stuck now.
INPUT style="WIDTH: 100px" id= StatusBar_btnDelete class=MyButton *******="DeleteBtnClicked(); return false;" value=Delete type=submit name= StatusBar$btnDelete
Using "Return True" doesn't cut it. I tried a bunch of variations. DeleteBtnClicked gives me a Yes/Cancel prompt. Is there a way to rewrite it so that I'm submitting an Ok respose?
Or is there a way to sendkeys to the prompt without using sendkeys since that doesn't work?

 

[DeepikaShinde]

The Attribute idea worked for me in the past but I'm stuck now.
INPUT style="WIDTH: 100px" id= StatusBar_btnDelete class=MyButton *******="DeleteBtnClicked(); return false;" value=Delete type=submit name= StatusBar$btnDelete
Using "Return True" doesn't cut it. I tried a bunch of variations. DeleteBtnClicked gives me a Yes/Cancel prompt. Is there a way to rewrite it so that I'm submitting an Ok respose?
Or is there a way to sendkeys to the prompt without using sendkeys since that doesn't work?

Hi,

I am stack with the same issue.
When I click Download button through macro,Download popup comes which need manual click.Here,I want to avoid it and do automatically through macro and download excel file on respective path.

Plz someone help me on this.

Thank you in advance.