2014-12-04 109 views
-1

我有一個將我的工作表作爲HTML頁發佈的宏,並且它工作正常......但背景邊距是錯誤的顏色。我需要它是黑色的。我發現,如果一旦網頁被髮表我編輯HTML代碼,我可以很容易地解決這個問題 - 我需要做的就是添加下面的一行:使用VBA編寫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 
+1

您的宏目前使用哪些代碼?請發佈處理HTML頁面發佈的代碼。 SO不是一個代碼外包平臺。有關更多信息,請參閱http://stackoverflow.com/help/on-topic。 – Chrismas007 2014-12-04 17:12:53

+0

我在 – shwan 2014-12-04 17:26:41

回答

2

你可以(也應該)簡單地使用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而言,可能不是該工作的最佳工具。

+0

上面添加了代碼,你每個頁面只有一個Body標籤,所以根本就不需要類。除此之外,我同意 – Malachi 2014-12-04 17:28:21

+0

好的,但我試圖自動發佈此工作表,因爲我會非常頻繁地這樣做。我想避免手動進入我使用這個宏發佈並編輯html的每個網頁。有沒有辦法自動添加對CSS文件的引用? – shwan 2014-12-04 17:29:20

+1

對不起,看我的編輯。這應該完全符合你需要的CSS,而不需要手動編輯文件。我確信有一種方法可以添加VBA的參考,也許其他人可以參與進來。 – Phrancis 2014-12-04 17:46:53