Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
not insert link into history of IE
i have this macro and 9118 record into sheet ABICAB. I have seen in my
History link (Cronology of IE) the macro make for each record scanned a new link!!!!!!!!!!! after 6 minutes of macro i have 156 new link into history list acccccc..........:-( Is possible to not store into history link all page visited with the macro? Sub RICERCA_ABI_CAB() Dim ie As Object Dim lngRow As Long Dim lngMaxRow As Long Dim wksList As Worksheet Set wksList = ActiveWorkbook.Worksheets("ABICAB1") Set ie = CreateObject("InternetExplorer.Application") On Error GoTo errHandler lngMaxRow = Range("A65536").End(xlUp).Row With ie ..Visible = True For lngRow = 2 To lngMaxRow ..navigate "http://www.bancaroma.it/abicab/index.asp", 2 Do While .busy DoEvents Loop Do While .ReadyState < 4 DoEvents Loop If wksList.Cells(lngRow, 3).Value = "" Then With .document.Forms(0) 'Abi ..ABI.Value = Range("A" & lngRow) 'Cab ..CAB.Value = Range("B" & lngRow) ..submit Application.StatusBar = "Processing row " & lngRow & " of " & wksList.Range("A1").CurrentRegion.Rows.Count End With Do While Not CBool(InStrB(1, .document.URL, "? search")) DoEvents Loop Do While .busy DoEvents Loop Do While .ReadyState < 4 DoEvents Loop On Error Resume Next 'CONSIDERARE PRIMA CELLA COME POSISZIONE "ZERO" Range("C" & lngRow) = UCase(.document.all.tags ("table").Item(1).Rows(0).Cells(3).innerText) Range("D" & lngRow) = UCase(.document.all.tags ("table").Item(1).Rows(1).Cells(3).innerText) Range("E" & lngRow) = UCase(.document.all.tags ("table").Item(1).Rows(2).Cells(1).innerText) Range("F" & lngRow) = UCase(.document.all.tags ("table").Item(1).Rows(3).Cells(1).innerText) Range("G" & lngRow) = Format(UCase(.document.all.tags ("table").Item(1).Rows(4).Cells(1).innerText), "#00000") On Error GoTo errHandler End If Next lngRow End With errHandler: ie.Quit Set ie = Nothing Exit Sub ActiveWorkbook.Save End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Insert a cell value into a link to another worksheet. | Excel Worksheet Functions | |||
How do I insert a link to a cell in a header in Excel? | Excel Discussion (Misc queries) | |||
no add link into history link.... | Excel Programming | |||
Insert cell into link | Excel Discussion (Misc queries) | |||
i want to insert a link to another sheet tab | Excel Worksheet Functions |