html作品源文件,编辑HTML源文件

我们希望使用Excel宏编辑.htm文件。编辑HTML源文件

这里是我到目前为止，这是打开文件，替换HTML体内一些占位符，然后将文件保存为HTML文件的尝试：

Sub SaveCustomerCountHTML()

Dim customerCountHTML As HTMLDocument

Dim customerCount As String

Dim customerPercentage As String

Dim strHTML As String

Set customerCountHTML = CreateObject("O:\00.Department Documents\06.Status Board Updates\Daily Sales\Templates\CUSTOMER COUNT.htm")

strHTML = customerCountHTML.HTMLbody

customerCount = "55"

customerPercentage = "2"

strHTML = Replace(customerCountHTML.HTMLbody, "%CUSTOMERCOUNT%", customerCount)

strHTML = Replace(customerCountHTML.HTMLbody, "%CUSTOMERPERCENTAGE%", customerPercentage)

customerCountHTML.SaveAs Filename:= _

"O:\00.Department Documents\06.Status Board Updates\Daily Sales\Templates\CUSTOMER COUNT2.htm", _

FileFormat:=xlHtml, _

CreateBackup:=False

End Sub

我们绝对不想要在Internet Explorer中打开文件 - 我们只想编辑正文中的占位符，然后重新保存到另一个文件夹中，而不必看它在做什么。

我在“Set customerCountHTML”行中收到错误消息“ActiveX组件无法创建对象”。即使我们在引用中包含了Microsoft HTML对象库，我们也得到了HTMLBody行的“对象不支持此属性或方法”错误。

此外，意图/尝试是简单地打开HTML文件作为对象，替换该文件中的文本并保存文件。所有这些都不需要看到任何开启或关闭。大部分在线答案都包含Internet Explorer或Outlook，我们只是想编辑文件。

+1

上面的示例正在替换整个'HTMLBody'。为什么不把它作为文本文件打开？ –

+0

我会给你一个镜头。感谢提示，我想它并不是真的需要以HTML格式打开，只是保存为一个。 –

+0

看看这个：http://stackoverflow.com/questions/18286598/read-local-html-file-into-string-with-vba –