Question

here由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;"">

我不想添加任何额外的引号，只是想要原样。

请帮助我解决这个问题。

Answer 1

必须是正在执行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

Answer 2

要将Excel数据转换为HTML，请执行以下步骤。这些说明适用于Excel 2016、2013、2010和2007的所有“功能区”版本：

在工作簿上，转到“文件”选项卡，然后单击“另存为”。如果您只想导出部分数据，例如一系列单元格，数据透视表或图形，请先选择它。

在“另存为”对话框中，选择以下选项之一：网页（.htm; .html）。这会将您的工作簿或所选内容保存到网页上，并创建一个支持文件夹，该文件夹将存储页面的所有支持文件，例如图像，项目符号和背景纹理。

单个文件网页（.mht; .mhl）。这样会将您的工作簿或所选内容保存到单个文件，并将支持文件嵌入到网页中。

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

2 个答案: