用vba创建html表格

Sub CreateHTMLTable()
    Dim html As String
    Dim i As Integer, j As Integer
    Dim rowCount As Integer, colCount As Integer
    
    ' 设置表格行数和列数
    rowCount = 5
    colCount = 3
    
    ' 开始HTML表格标记
    html = "<table>"
    
    ' 创建表头行
    html = html & "<tr>"
    For j = 1 To colCount
        html = html & "<th>表头" & j & "</th>"
    Next j
    html = html & "</tr>"
    
    ' 创建数据行
    For i = 1 To rowCount
        html = html & "<tr>"
        For j = 1 To colCount
            html = html & "<td>数据" & i & "-" & j & "</td>"
        Next j
        html = html & "</tr>"
    Next i
    
    ' 结束HTML表格标记
    html = html & "</table>"
    
    ' 将HTML代码输出到文本文件
    Dim filePath As String
    filePath = "C:\path\to\output.html"
    Open filePath For Output As #1
    Print #1, html
    Close #1
    
    MsgBox "HTML表格已创建并保存到文件：" & filePath
End Sub