Results 1 to 5 of 5
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Ccopy value from web page VBA (2000)

    Hi Hans how to loop the 7 element, i dont understend where i increse a counter to loop all table:::::-)

    For J = 0 To 6

    TEST_TAG_1 = UCase(.document.all.tags("table").Item(1).Rows(0 + J ).Cells(1 + J).innerText)
    'Range("C" & lngRow) = UCase(.document.all.tags("table").Item(3).Rows(0). Cells(3).innerText)
    TEST_TAG_2 = UCase(.document.all.tags("table").Item(1).Rows(0 + J).Cells(3 + J).innerText)
    'Range("D" & lngRow) = UCase(.document.all.tags("table").Item(3).Rows(1). Cells(3).innerText)
    TEST_TAG_3 = UCase(.document.all.tags("table").Item(1).Rows(0 + J).Cells(4 + J).innerText)
    'Range("E" & lngRow) = UCase(.document.all.tags("table").Item(3).Rows(2). Cells(1).innerText)
    TEST_TAG_4 = UCase(.document.all.tags("table").Item(1).Rows(1 + J).Cells(0 + J).innerText)
    'Range("F" & lngRow) = UCase(.document.all.tags("table").Item(3).Rows(3). Cells(1).innerText)
    TEST_TAG_5 = UCase(.document.all.tags("table").Item(1).Rows(1 + J).Cells(1 + J).innerText) ', "#00000")
    'Range("G" & lngRow) = Format(UCase(.document.all.tags("table").Item(3).R ows(4).Cells(1).innerText), "#00000")

    ' RIGA = RIGA + 1
    'CONTROLLO
    Next J

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Ccopy value from web page VBA (2000)

    There's no point in addressing your post to me, you know that I don't do this kind of thing.

  3. #3
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Ccopy value from web page VBA (2000)

    Sorry me Hans....
    In other case solved my sel, tks.
    But have a little prob to increase the value in string of url...
    To the default have:

    .Navigate "http://telefoni/trovadipendenze.asp?start=0&npag=1&VPARTENZA=1&VCE RCA=&TIPRIC="
    and i want to increase the value in start=7 and value in npag=2

    final string here
    http://telefoni/trovadipendenze.asp?start=...VCERCA=&TIPRIC=

    i have dimensioned start and npag as long
    start=7
    npag=1

    i dont undesatnd to set the straing i have insert many " and & but go in error alway..

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Ccopy value from web page VBA (2000)

    Does this work?

    .Navigate "http://telefoni/trovadipendenze.asp?start=" & start & "&npag=" & npag & "&VPARTENZA=1&VCERCA=&TIPRIC="

  5. #5
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Ccopy value from web page VBA (2000)

    No have dubt... work perfect
    Note:re-sorry me if i invoche you name when i post, but, you know...

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •