This is how far I can get so far...And this code is just to click on "Monthly Operation Reports"
Public WithEvents ieIXReport As InternetExplorer ---> I have an error on this. The thread above is trying to know how to change the delcaration
Private Sub ieIXReport_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ieOption_submit = New InternetExplorer
Set ppDisp = ieOption_submit.Application
End Sub
Function getNewIxReportWindow() As SHDocVw.InternetExplorer
Set ieIXReport = New SHDocVw.InternetExplorer
ieIXReport.Visible = True
Do
ieIXReport.navigate url_ixReport
waitready ieIXReport
Loop Until ieIXReport.document.URL = url_ixReport
Set getNewIxReportWindow = ieIXReport
End Function
Function http_find_image_id_by_content(strContent As String, strHttp As String) As String
lngPos_content = InStr(strHttp, strContent)
lngPos_image = InStrRev(Left(strHttp, lngPos_content), "img ")
lngPos_id = InStr(lngPos_image, strHttp, "id=")
lngPos_id_begin = lngPos_id + 3
lngPos_id_end = InStr(lngPos_id_begin, strHttp, " ")
http_find_image_id_by_content = Mid(strHttp, lngPos_id_begin, lngPos_id_end - lngPos_id_begin)
End Function
Sub waitready(ByVal ie As Object)
While ie.Busy
DoEvents
Wend
Do Until ie.readyState = 4
DoEvents
Loop
End Sub
Sub ixReport_Download()
Dim strHttp As String
url_ixReport = "http://wp40872/iXReport"
Set ieIXReport = getNewIxReportWindow()
Set frameNavigation = ieIXReport.document.frames("List")
Set frameDetail = ieIXReport.document.frames("Detail")
strHttp = frameNavigation.document.body.innerHTML
strId_Monthly_Operational_Reports = http_find_image_id_by_content("Monthly Operational Reports", strHttp)
Set imgMonthly_Operational_Reports = frameNavigation.document.getElementById(strId_Monthly_Operational_Reports)
imgMonthly_Operational_Reports.Click
waitready ieIXReport
strHttp = frameNavigation.document.body.innerHTML
End Sub
Bookmarks