Vba: extract a single data from a table

[Nelson78]

Hello everybody.

I succeeded to import an entire table from a web page.

But my need is importing just a single data and writing it in Worksheets("General").Range("A1")

The table has 27 columns and 21 rows: how can I import the value with the following coordinates:

column 11
row 4

Dim tbls, tbl, trs, tr, tds, td, r, c

    Set tbls = IE.document.getElementsByTagName("table")
    For r = 0 To tbls.Length - 1
        Debug.Print r, tbls(r).Rows.Length
    Next r

    Set tbl = IE.document.getElementsByTagName("table")(8)
    Set trs = tbl.getElementsByTagName("tr")

    For r = 0 To trs.Length - 1
        Set tds = trs(r).getElementsByTagName("td")
        
        If tds.Length = 0 Then Set tds = trs(r).getElementsByTagName("th")

        For c = 0 To tds.Length - 1
            Worksheets("General").Range("A1").Offset(r, c).Value = tds(c).innerText
        Next c
    Next r

Thank's in advance.

 

[steve the fish]

I dont know how big your table is so something like:

=INDEX(A1:Z100,4,11)

 

[Nelson78]

I dont know how big your table is so something like:

=INDEX(A1:Z100,4,11)

Pardon, I didn't specified I need a vba solution without importing the entire table.

Thank's.

 

[Nelson78]

Hello everybody.

I succeeded to import an entire table from a web page.

But my need is importing just a single data and writing it in Worksheets("General").Range("A1")

The table has 27 columns and 21 rows: how can I import the value with the following coordinates:

column 11
row 4

Dim tbls, tbl, trs, tr, tds, td, r, c

    Set tbls = IE.document.getElementsByTagName("table")
    For r = 0 To tbls.Length - 1
        Debug.Print r, tbls(r).Rows.Length
    Next r

    Set tbl = IE.document.getElementsByTagName("table")(8)
    Set trs = tbl.getElementsByTagName("tr")

    For r = 0 To trs.Length - 1
        Set tds = trs(r).getElementsByTagName("td")
        
        If tds.Length = 0 Then Set tds = trs(r).getElementsByTagName("th")

        For c = 0 To tds.Length - 1
            Worksheets("General").Range("A1").Offset(r, c).Value = tds(c).innerText
        Next c
    Next r

Thank's in advance.

I've made some steps forward in this job.

Now, in this table I've to look for a single data (example: "AA123"). This data is located for sure in the table, is univocal inside the entire table, is always located in the column 3.
I need to identify the row where it is located, and then I've to grasp the data located in the same row but four column toward the right: so, if "AA123" is located in row 5 (and therefore column 3), I've to grasp the data located in row 5 and column 7 (3+4).
The grasped data has to be written in Worksheets("General").Range("A1").

How can I perform the task?