Re: no add link into history link....
- From: sal21 <sal21.1sicqd_1121929661.8648@xxxxxxxxxxxxxxxxxxxxx>
- Date: Thu, 21 Jul 2005 01:42:34 -0500
Tim Williams Wrote:
> You could try "document.location.replace" instead of "navigate". This
> should not add an entry to the history.
>
> Tim
>
>
>
>
>
> "sal21" <sal21.1sgnma_1121850323.7482@xxxxxxxxxxxxxxxxxxxxx> wrote in
> message news:sal21.1sgnma_1121850323.7482@xxxxxxxxxxxxxxxxxxxxxxxx
> >
> > 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?action=getinfo&userid=2040
> > View this thread:
> > http://www.excelforum.com/showthread.php?threadid=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?action=getinfo&userid=2040
View this thread: http://www.excelforum.com/showthread.php?threadid=388605
.
- Follow-Ups:
- Re: no add link into history link....
- From: Tim Williams
- Re: no add link into history link....
- References:
- no add link into history link....
- From: sal21
- Re: no add link into history link....
- From: Tim Williams
- no add link into history link....
- Prev by Date: Re: Find a match and display a message
- Next by Date: ChildItems and ParentItem of PivotItem object dont seem to work
- Previous by thread: Re: no add link into history link....
- Next by thread: Re: no add link into history link....
- Index(es):
Relevant Pages
|
