How to click the OK button Using VBA?

[sreekhosh]

Hi All,

I am trying to export and excel report from a website. Website is opening with the report but i am receiving a run-time error '2147467259 (80004005)':
Method Document of object 'IWebBrower2' failed.
I am using Internet Explorer 9

Here is my code.

Dim ipf, ie As Object
    Dim path As String, savpath As String, scrap As String
    Dim mybook As Workbook
    Dim i As Integer, k As Integer
    Dim ipath, initialpath As String
  
    k = WorksheetFunction.CountA(Sheets("Control").Range("A9:A65000"))
   
    For i = 9 To k + 8
        Set ie = CreateObject("InternetExplorer.Application")
        ie.Visible = False
        Rval = Sheets("Control").Range("A" & i).Value
        Rnme = Sheets("Control").Range("C" & i).Value
        path = "https://xxxxxxxx.net/"
        savepath = Sheets("Control").Range("B7").Value
       
        ie.Navigate path
       
        Do While ie.Busy
        DoEvents
        Loop
       
        'Do While ie.readystate <> 4 Or _
        '  ie.Busy = True
          ' DoEvents
        'Loop
       
        Set ipf = ie.Document.all.Item("ButtonOK")
           
        'ie.Document.all(106).Click
        ipf.Click
       
        Do While ie.Busy = True
          DoEvents
        Loop
        GoTo Line01
Line0:
        Application.Wait (Now + TimeValue("0:00:15"))
Line01:
        If Not CheckFile("ReportsExcel.aspx") Then GoTo Line0
        Windows("ReportsExcel.Aspx").Activate
        ActiveWorkbook.SaveAs Filename:=savepath & "/" & Rnme & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        ActiveWorkbook.Close
        ie.Quit
  Next
 
  Set ie = Nothing
    y = MsgBox("Download complete", vbOKOnly + vbInformation, "Alert")
 
End Sub

 

[Hui]

If pressing the Enter key is the same as Clicking Ok you could use the Send keys command

Application.SendKeys("{enter}")
or
Application.SendKeys("~")

Refer: http://msdn.microsoft.com/en-us/library/office/aa202943(v=office.10).aspx

 

[sreekhosh]

Hi Hui,

Thanks for the reply.

My actual issue is this.

http://www.accessforums.net/programming/error-attempting-export-data-ie9-26092.html

But i couldnt solve it

Regards
Sreekhosh

 

[Marc L]

Hi,

it depends on the web page structure. So without notice of that page ! …

Also don't forget that Excel cans directly open a net compatible file !
​