我們希望使用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,我們只是想編輯文件。
上面的示例正在替換整個'HTMLBody'。爲什麼不把它作爲文本文件打開? – Comintern
我會給你一個鏡頭。感謝提示,我想它並不是真的需要以HTML格式打開,只是保存爲一個。 – user4333011
看看這個:http://stackoverflow.com/questions/18286598/read-local-html-file-into-string-with-vba – Miqi180