嘿，我懂你遇到的这个麻烦——直接用innerText确实会把整个表格的文本一股脑塞进一个单元格里，完全没保留表格的结构。别担心，这里有两种靠谱的方法可以帮你把表格内容按单元格拆分到Excel里：

方法1：逐行逐单元格遍历（更灵活可控） #

这种方法适合你需要对单元格内容做额外处理的场景，能精准控制每个内容的位置：

Sub ImportHtmlTableToExcel()
    Dim ie As Object
    Dim targetTable As Object
    Dim ws As Worksheet
    Dim rowNum As Integer, colNum As Integer
    
    ' 初始化IE（假设你已经有打开IE并导航的代码，这里省略）
    Set ie = CreateObject("InternetExplorer.Application")
    ' ... 你的导航代码 ...
    
    ' 等待页面完全加载（关键，避免获取不到表格）
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' 获取目标表格（这里用你指定的索引32）
    Set targetTable = ie.document.getElementsByTagName("Table")(32)
    ' 指定要导入的工作表
    Set ws = ThisWorkbook.Worksheets("temp")
    
    ' 清空工作表原有内容（可选，根据需要）
    ws.Cells.Clear
    
    ' 遍历表格的每一行
    For rowNum = 0 To targetTable.Rows.Length - 1
        ' 遍历当前行的每个单元格
        For colNum = 0 To targetTable.Rows(rowNum).Cells.Length - 1
            ' 把HTML单元格内容赋值到对应的Excel单元格
            ' Excel行列从1开始，所以要加1转换索引
            ws.Cells(rowNum + 1, colNum + 1).Value = Trim(targetTable.Rows(rowNum).Cells(colNum).innerText)
        Next colNum
    Next rowNum
    
    ' 关闭IE（可选）
    ie.Quit
    Set ie = Nothing
End Sub

代码说明： #

• 先通过Do While循环确保页面完全加载，避免因页面未加载完成导致获取不到表格
• HTML的Rows和Cells集合是从0开始索引的，而Excel单元格从1开始，所以要做rowNum + 1和colNum + 1的转换
• 用Trim()去除单元格内容的多余空格，让数据更整洁

方法2：直接复制粘贴（更简洁快速） #

如果不需要额外处理内容，直接用系统复制粘贴功能会更简单，还能保留基本的表格结构：

Sub CopyHtmlTableDirectly()
    Dim ie As Object
    Dim targetTable As Object
    Dim ws As Worksheet
    
    ' 初始化IE并导航（省略你的现有代码）
    Set ie = CreateObject("InternetExplorer.Application")
    ' ... 你的导航代码 ...
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    Set targetTable = ie.document.getElementsByTagName("Table")(32)
    Set ws = ThisWorkbook.Worksheets("temp")
    
    ' 复制HTML表格
    targetTable.Copy
    
    ' 粘贴到Excel的A1单元格（只粘贴值，避免格式冲突）
    ws.Range("A1").PasteSpecial Paste:=xlPasteValues
    
    ' 清除剪贴板内容（避免后续操作受影响）
    Application.CutCopyMode = False
    
    ie.Quit
    Set ie = Nothing
End Sub

注意事项： #

• 可以用Debug.Print ie.document.getElementsByTagName("Table").Length查看页面总表格数，确认(32)这个索引是正确的，避免选错表格
• 如果表格里有合并单元格，两种方法都会自动拆分对应内容到Excel单元格里，不用额外处理

内容的提问来源于stack exchange，提问作者user9351236