能否通过VBA代码实现TXT文件转HTML并生成与Notepad++手动转换一致的格式表格？

阿华AIGC实验室

2026-4-29

用VBA实现TXT到HTML的转换（保留表格格式）

当然可以用VBA搞定这个需求！从你提供的TXT内容来看，里面已经包含了<TD>标签的片段，我们只需要给这些内容补上完整的HTML表格结构，再保存成.html文件就能达到和Notepad++另存为一样的效果。

以下是具体的VBA代码实现：

Sub ConvertTxtToHtml()
    Dim txtPath As String, htmlPath As String
    Dim fileContent As String
    Dim fso As Object
    
    ' 设置文件路径（请根据你的实际文件修改）
    txtPath = "C:\YourFolder\input.txt" ' 你的TXT文件路径
    htmlPath = "C:\YourFolder\output.html" ' 生成的HTML文件路径
    
    ' 读取TXT文件内容
    Set fso = CreateObject("Scripting.FileSystemObject")
    fileContent = fso.OpenTextFile(txtPath, 1).ReadAll
    
    ' 补全HTML表格结构：添加<html>、<body>和<table>标签
    fileContent = "<html><body><table border='1'>" & vbCrLf & "<tr>" & fileContent & "</tr></table></body></html>"
    
    ' 保存为HTML文件
    With fso.CreateTextFile(htmlPath, True)
        .Write fileContent
        .Close
    End With
    
    MsgBox "转换完成！HTML文件已保存至：" & htmlPath, vbInformation
    Set fso = Nothing
End Sub

代码说明：

路径设置：修改txtPath和htmlPath为你实际的文件路径；
读取TXT内容：用FileSystemObject读取整个TXT文件的内容；
补全HTML结构：给原有的TD标签包裹上<table>、<tr>以及基础的HTML页面标签，border='1'是为了让表格在浏览器里显示边框，和Notepad++另存为的效果一致；
保存文件：把处理后的内容写入新的HTML文件。