Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > no add link into history link....
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1
Default no add link into history link....

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

--
sal2

-----------------------------------------------------------------------
sal21's Profile: http://www.excelforum.com/member.php...nfo&userid=204
View this thread: http://www.excelforum.com/showthread.php?threadid=38860

Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1,588
Default no add link into history link....
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



Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1
Default no add link into history link....

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

Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1,588
Default no add link into history link....
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



Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1
Default no add link into history link....

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

Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1
Default no add link into history link....

sal21 Wrote:
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..

--
sal2

-----------------------------------------------------------------------
sal21's Profile: http://www.excelforum.com/member.php...nfo&userid=204
View this thread: http://www.excelforum.com/showthread.php?threadid=38860

Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
PASTE LINK option not available when I select PASTE SPECIAL to link an image in Excel to a Word document. tln Links and Linking in Excel 0 April 22nd 07 04:28 PM
if i sort cell that has link to another page how to keep link steve Bahrain Excel Discussion (Misc queries) 1 August 16th 06 01:20 PM
if i sort cell that has link to another page how to keep link steve Bahrain Excel Discussion (Misc queries) 0 August 16th 06 07:37 AM
Link to external link Chris Wong Excel Worksheet Functions 0 August 3rd 06 07:00 AM
Q: Changing a link without link validation Mike Frederick Excel Programming 3 December 2nd 03 11:02 PM


All times are GMT +1. The time now is 04:55 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement