时间戳

首页 > 解决方案 > 将 Excel 行输出到一系列 html 文件

vba - 将 Excel 行输出到一系列 html 文件

问题描述

Transistor1提供的解决方案非常完美，除了我面临的以下问题。

输出文件在 HTML 代码的开头和结尾包含引号 (")，如果引号已经存在，它还会添加额外的引号。

例如，此代码：<div style="background-color:rgba(0,0,0,0.2);padding:60px;">

变成这样：<div style=""background-color:rgba(0,0,0,0.2);padding:60px;"">

我不希望添加任何额外的引号，只希望文本保持原样。

请帮我解决这个问题。

标签： vbaexcel

解决方案

必须是 FileSystemObject 中的 Write 方法在执行此操作。VBA 内置了文件写入能力，所以我不确定我是否理解使用 FSO 的好处。这是我在 VBA 中的操作方法，它按预期处理引号。

Public Sub ExportFile()

    Dim sFile As String, lFile As Long
    Dim rCell As Range
    Dim sFldr As String

    sFldr = Environ$("userprofile") & "\My Documents\"

    For Each rCell In Sheet1.UsedRange.Columns(1).Cells
        sFile = sFldr & rCell.Value & ".html"
        lFile = FreeFile
        Open sFile For Output As lFile
            Print #lFile, rCell.Offset(0, 1).Value
        Close lFile
    Next rCell

End Sub

推荐阅读