Tim Williams Wrote:
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

--
Tim Williams
Palo Alto, CA


"sal21" wrote in
message ...

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

Tim





"sal21" wrote
in
message ...

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


--
sal21




------------------------------------------------------------------------
sal21's Profile:
http://www.excelforum.com/member.php...fo&userid=2040
View this thread:
http://www.excelforum.com/showthread...hreadid=388605


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

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


--
sal21



------------------------------------------------------------------------
sal21's Profile:
http://www.excelforum.com/member.php...fo&userid=2040
View this thread:
http://www.excelforum.com/showthread...hreadid=388605

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


------------------------------------------------------------------------
sal21's Profile: http://www.excelforum.com/member.php...fo&userid=2040
View this thread: http://www.excelforum.com/showthread...hreadid=388605