Private submmand1_click () DIM VDOC, VTAG, COLL DIM I AS INTEGER DIM J AS INTEGER SET VDOC = IE.Document Dim Mstrcell AS String Set Coll = Vdoc.all ("19") for i = 0 to Coll.Rows.LENGTH - 1 for j = 0 to coll.rows (i) .Cells.Length - 1 mstrcell = mstrcell & space (4) & coll.Rows (i) .cells (j) .innertext next j debug.print mstrcell mstrCell = " "NEXT I End Sub Private Sub Form_Load () IE.NAVIGATE" E: /1.htm "End Sub HTM Content
| Heading 1 < / TH> | Heading 2 |
|---|---|
| Row 1, Column 1 Text. | Row 1, Column 2 TEXT. |
| Row 2, Column 1 Text. | Row 2, Column 2 TEXT.
转载请注明原文地址:https://www.9cbs.com/read-66191.html New Post(0)
|
