no add link into history link....

[sal21]

i have this macro and 9118 record into sheet ABICAB i have seen in m
History link (Cronology of IE) the macro make for each record scanned
new link!!!!!!!!!!! after 6 minutes of macro i have 156 new link int
history list acccccc..........:-(

Is possible to not store into history link all page visited with th
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 Su

 

[Tim Williams]

You could try "document.location.replace" instead of "navigate". This
should not add an entry to the history.

Tim

 

[sal21]

You could try "document.location.replace" instead of "navigate". This
should not add an entry to the history.

Tim

Tks for fast reply, but i not have understand the modify...

please correct for me the line with your suggestion...
Tks from newbie.
Sal.

 

[Tim Williams]

Modify your inital code to
.....
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "about:blank"
Do While ie.ReadyState <> 4
DoEvents
Loop
......


Then replace your "navigate" line with


.document.Location.Replace "http://www.bancaroma.it/abicab/index.asp"


Tim

 

[sal21]

Modify your inital code to
.....
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "about:blank"
Do While ie.ReadyState <> 4
DoEvents
Loop
......


Then replace your "navigate" line with


.document.Location.Replace "http://www.bancaroma.it/abicab/index.asp"


Tim

Hi Tim always the macro add link history.....
I attach my project and if you have a time for me test it.
Tks
Sal.


+-------------------------------------------------------------------+
|Filename: TROVA_CAP_DA_BANCA_DI_ROMA.zip |
|Download: http://www.excelforum.com/attachment.php?postid=3617 |
+-------------------------------------------------------------------+

 

[sal21]

Hi Tim always the macro add link history.....
I attach my project and if you have a time for me test it.
Tks
Sal.

Please, important for me..