整合營銷服務商
電腦端+手機端+微信端=數據同步管理
免費咨詢熱線：
電腦端+手機端+微信端=數據同步管理
免費咨詢熱線：
用VBA從Access創建HTML電子郵件只需將下面Outlook相關屬性的語句
.Body=strBody
修改為
.HTMLBody=strBody
具體函數如下：
閱讀原文：http://www.accessoft.com/article-show.asp?id=20108 里復制代碼。
頭條創作挑戰賽# HTMLStyleElement 對象是 Excel VBA 中用來操作 HTML 樣式的元素對象。它表示 HTML 頁面中的樣式標簽（<style>）。
下面是 6 個代碼實例，用來說明 HTMLStyleElement 對象的用法：
1、創建一個新的 <style> 元素對象，并將其添加到 HTML 文檔中：
Dim style As Object
Set style=ThisWorkbook.Sheets("Sheet1").OLEObjects.Add(ClassType:="HTML Style")2、設置 <style> 元素的 innerHTML 屬性，即添加樣式規則：
style.Object.innerHTML="body { background-color: lightblue; }"3、獲取 <style> 元素的 innerHTML 屬性，即獲取樣式規則：
Dim styleRules As String
styleRules=style.Object.innerHTML4、將 <style> 元素插入到 HTML 文檔中的某個節點之前：
Dim targetNode As Object
Set targetNode=ThisWorkbook.Sheets("Sheet1").OLEObjects("targetNode")
targetNode.ParentNode.insertBefore style.Object, targetNode5、從 HTML 文檔中移除 <style> 元素：
style.Delete6、通過指定 <style> 元素的 id 屬性，獲取具有特定 id 的 <style> 元素對象：
Dim styleId As String
styleId="myStyle"
Dim style As Object
Set style=ThisWorkbook.Sheets("Sheet1").OLEObjects(styleId).Object通過以上的代碼實例，你可以了解如何創建、設置、獲取、移除和查找 HTMLStyleElement 對象。注意，在上述代碼中，ThisWorkbook.Sheets("Sheet1") 可以根據你的具體情況進行修改，以指定你要操作的工作表。
當我感到壓力或需要放松時，我通常會使用 Excel 來記錄和跟蹤我的情緒和心理狀態。我創建了一個簡單的示例，使用 HTMLStyleElement 對象在 Excel 中應用不同的樣式主題來反映我的情緒。
Sub ApplyEmotionalStyle()
' 創建新的 HTMLStyleElement 對象
Dim style As Object
Set style=ThisWorkbook.Sheets("Sheet1").OLEObjects.Add(ClassType:="HTML Style")
' 根據情緒類型設置樣式規則
Dim mood As String
mood=InputBox("請輸入你的情緒類型（例如：happy、sad、excited、calm）：")
Select Case mood
Case "happy"
style.Object.innerHTML="body { background-color: yellow; }"
Case "sad"
style.Object.innerHTML="body { background-color: blue; }"
Case "excited"
style.Object.innerHTML="body { background-color: red; }"
Case "calm"
style.Object.innerHTML="body { background-color: green; }"
Case Else
MsgBox "無效的情緒類型"
Exit Sub
End Select
' 將樣式應用到整個工作表
ThisWorkbook.Sheets("Sheet1").Cells.Font.Name="Arial"
ThisWorkbook.Sheets("Sheet1").Cells.Font.Size=14
ThisWorkbook.Sheets("Sheet1").Cells.Font.Color=RGB(255, 255, 255)
ThisWorkbook.Sheets("Sheet1").Cells.Interior.Pattern=xlNone
ThisWorkbook.Sheets("Sheet1").Cells.Interior.ColorIndex=xlColorIndexNone
ThisWorkbook.Sheets("Sheet1").Cells.Interior.ThemeColor=xlThemeColorLight1
' 將 <style> 元素插入 HTML 文檔中的某個節點之前
Dim targetNode As Object
Set targetNode=ThisWorkbook.Sheets("Sheet1").Range("A1")
targetNode.ParentNode.insertBefore style.Object, targetNode
' 彈出對話框展示情緒樣式的效果
MsgBox "樣式已應用到工作表中的單元格范圍"
End Sub當運行上述代碼時，它會提示你輸入情緒類型，然后根據輸入的情緒類型應用相應的樣式。例如，如果輸入 “happy”，則會將工作表的背景顏色設置為黃色。你可以根據需要添加更多的情緒類型和對應的樣式規則。【請注意，該代碼假定在工作表 “Sheet1” 中有一個 Range 對象(A1) 作為目標節點，你也可以根據需要修改它】
在使用 HTMLStyleElement 對象時，需要注意以下幾點：
1、確保在添加 <style> 元素之前，要創建一個 OLEObject 控件并將其類型設置為 “HTML Style”，然后再通過 Object 屬性來訪問 HTMLStyleElement 對象。
Dim style As Object
Set style=ThisWorkbook.Sheets("Sheet1").OLEObjects.Add(ClassType:="HTML Style")2、使用 .innerHTML 屬性來設置或獲取 <style> 元素的樣式規則。樣式規則必須遵循 CSS 的語法規則。
style.Object.innerHTML="body { background-color: lightblue; }"3、在插入 <style> 元素之前，需要找到要將其插入到的目標節點。通過 ParentNode 屬性和 insertBefore 方法來實現。
Dim targetNode As Object
Set targetNode=ThisWorkbook.Sheets("Sheet1").Range("A1")
targetNode.ParentNode.insertBefore style.Object, targetNode4、如果不再需要 <style> 元素，可以使用 Delete 方法將其從文檔中刪除。
style.Delete5、當在 Excel 中使用 HTMLStyleElement 對象時，要確保選擇適當的目標范圍（比如工作表、單元格等），以便樣式被正確應用。
6、需要遵循 CSS 的語法規則，確保正確設置樣式規則。例如，必須使用正確的 CSS 選擇器（如 “body”、“div”）和屬性（如 “background-color”、“font-size”）。
7、HTMLStyleElement 對象只能應用于支持 HTML 渲染的環境中，例如在 WebBrowser 控件中或使用 VBA 內置的 Web 瀏覽器。
8、在應用樣式之前，應該清楚目標節點的父節點是否支持樣式。例如，在 <style> 元素之前的節點必須是支持樣式的元素。
【通過遵循以上注意事項，你能夠正確地使用 HTMLStyleElement 對象來操作樣式規則并在 Excel 中應用相應的樣式。】
分享成果，隨喜正能量】人生，有多少計較，就有多少痛苦。有多少寬容，就有多少歡樂。痛苦與歡樂都是心靈的折射，就像鏡子里面有什么，決定于鏡子面前的事物。心里放不下，自然成了負擔，負擔越多，人生越不快樂。計較的心如同口袋，寬容的心猶如漏斗。復雜的心愛計較，簡單的心易快樂。
《VBA信息獲取與處理》教程是我推出第六套教程，目前已經是第一版修訂了。這套教程定位于最高級，是學完初級，中級后的教程。這部教程給大家講解的內容有：跨應用程序信息獲得、隨機信息的利用、電子郵件的發送、VBA互聯網數據抓取、VBA延時操作，剪貼板應用、Split函數擴展、工作表信息與其他應用交互，FSO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數等等內容。程序文件通過32位和64位兩種OFFICE系統測試。是非常抽象的，更具研究的價值。
教程共兩冊，八十四講。今日的內容是專題八“VBA與HTML文檔”的第二節上半部分：HTML文檔元素
大家好，我們這講開始HTML的講解，為了認識這種特殊的語言，我們要先看看這種語言中的各種元素個代表什么意義。上節中在講這種語言的特征時講過，標簽是用來描述網頁的。瀏覽器讀取HTML文檔，識別標簽，并按標簽要求以網頁進行顯示文本。大部分標簽都是成隊出現的。
起始標簽和結束標簽之間的所有文本，都叫做元素。也就是這個格式就是：
<起始標簽:也叫元素名>元素的內容<結束標簽:/+元素名>
標簽是可以擁有屬性的，屬性提供了元素的一些附加信息，起始標簽，有時候格式如下：
<元素名 屬性名稱=”屬性值”>
同時，元素是可以擁有元素的，即某個元素的內容有時候是一個子元素。
元素這東西，比較抽象，我們可以把它且當作一個對象來理解，例如工作簿對象，每個工作簿的名稱都不一樣（屬性），每個工作簿里面都有工作表（子元素），每個表都有名稱（屬性），里面填寫的內容也不一樣（元素的內容）。
在上一講中我們舉了一個最為簡單的實例來說明HTML文檔：
<html>
<body>
<h1>學習VBA語言</h1>
<p>為了更好的掌握VBA的各個知識點，您可以參考我的第一套教程：VBA代碼解決方案</p>
</body>
</html>
我們將上面的格式修正一下，如下面：
<html>
<head> <!--注釋：文檔頭部，文檔相關消息，并不提供文檔內容-->
<title>
VBA應用提高篇
</title>
</head>
<body> <!--注釋：文檔主體-->
<h1>學習VBA語言</h1>
<p>為了更好的掌握VBA的各個知識點，您可以先參考我的第一套教程：VBA代碼解決方案</p>
</body>
</html>
將上面的內容寫入記事本中保存為.html文件：HTML基礎學習-1.html
然后我們雙擊打開這個文件，看看瀏覽器的翻譯效果：
我們再看看網頁的源碼：
從上面的框架代碼，我們可以看出，一般的頁面，都有html元素，其一般內含兩個元素，一個是head元素，一個是body元素。Head元素僅僅說明文檔的相關消息，并不展示文檔實體，body元素才是真正展示文檔主體的，所有要在頁面展示的元素，都要在body內進行書寫。
1）HTML標題 <h1> - <h6>
標題（Heading）是通過 <h1> - <h6> 等標簽進行定義的。<h1> 定義最大的標題。<h6> 定義最小的標題。瀏覽器會自動地在標題的前后添加空行。標題很重要，將 HTML heading 標簽只用于標題。不要僅僅是為了產生粗體或大號的文本而使用標題。因為用戶可以通過標題來快速瀏覽您的網頁，所以用標題來呈現文檔結構是很重要的。應該將 h1 用作主標題（最重要的），其后是 h2（次重要的），再其次是 h3，以此類推。在HTML基礎學習.HTML文件中我們已經用到了標題的元素
2）HTML水平線 <hr />
<hr /> 標簽在 HTML 頁面中創建水平線。可用于分隔內容。
[待續]
本節參考文件：HTML基礎學習-1.html；HTML基礎學習-2.html
我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中，教程學習順序：
【分享成果，隨喜正能量】人生，一歲有一歲的味道，一站有一站的風景，你的年齡應該成為你生命的勛章而不是你傷感的理由。 ??
*請認真填寫需求信息，我們會在24小時內與您取得聯系。
