小编Joh*_*lko的帖子

嗨我从网站导入整个表到excel字符串:

Dim fST As String
fST = Doc.getElementsByTagName("table")(0).innerText

之后,我想在excel单元格中拆分表格,并使用<td>html表格中的标签进行拆分,或者至少这是我认为可以做的选项,因此导入的表格在excel内部是相同的一旦导入,每个值都将在单个单元格内.

让我知道谢谢.

这是我正在使用的整个conde:

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Row = Range("URL").Row And _
 Target.Column = Range("URL").Column Then
    Dim IE As New InternetExplorer
    IE.Visible = True
    IE.navigate Application.ActiveSheet.Range("URL")
    Do
        DoEvents
        Loop Until IE.readyState = READYSTATE_COMPLETE
    Dim Doc As HTMLDocument
    Set Doc = IE.document

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

    Set tbl = Doc.getElementsByTagName("table")(0)
    Set trs = tbl.getElementsByTagName("tr")

    For r = 1 To trs.Count
        Set tds = trs(r).getElementsByTagName("td") …