Question

我有一个将我的工作表发布为HTML页面的宏，它运行良好......但是背景边距是错误的颜色。我需要它是黑色的。我发现如果我在网页发布后编辑html代码，我可以轻松解决问题 - 我需要做的就是添加以下代码：

<body bgcolor="black">

我想知道是否有办法让我的宏打开网页，添加html代码行，然后保存并关闭文件？

发布工作表的代码如下：

With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange,_
       Filename:=SavePath, Sheet:="HTML", Source:="$A1:N" & numProc, HtmlType:=0)
.Publish (True)
.AutoRepublish = False
End With

Answer 1

你可以（而且应该）只使用CSS。在与保存HTML文件的文件夹相同的文件夹中创建*.css文件。然后在您的HTML <head>中添加以下内容：

<head>
<link href="my-file.css" rel="stylesheet">
</head>

在CSS文件中：

body {
    background-color: #000000; /* or just background-color: black; */
}

~~然后在你的身体：~~

<body class="background">

在CSS文件中：

body.background { background-color: #000000; /* or just background-color: black; */ }

<击>

这将使具有HTML属性的任何文件具有相同的背景。至于使VB生成，可能不是最好的工具。

用VBA写HTML代码行

1 个答案: