邮件发送excel表格做正文

最新推荐文章于 2023-07-28 11:10:36 发布

Alvin_CC

最新推荐文章于 2023-07-28 11:10:36 发布

阅读量2k

点赞数

分类专栏：我在华为做数据分析师

本文链接：https://blog.csdn.net/Alvin_CC/article/details/107749738

版权

这篇博客介绍了如何通过VBA宏将Excel表格转换为HTML格式，以便在邮件正文中显示。同时，还展示了如何将Excel图表导出为图片，以便在HTML邮件中插入。主要涉及的步骤包括创建临时工作簿，发布对象为HTML，关闭工作簿，以及导出图表为JPG格式。

摘要由CSDN通过智能技术生成

1.excel 表格转换为htm格式，可以在邮件中作为正文发送。

Sub Macro_Htm(sourcefile, targetfile)
Call hide_htm_null_row(sourcefile)

Dim TempWB As Workbook
Set TempWB = Workbooks.Open(sourcefile, False)

With ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=targetfile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With

TempWB.Close False

End Sub

2.excel中的chart 可以导出为图片，在邮件html里

Sub ExportChart(sourcefile, targetfile)
Dim TempWB As Workbook
Set TempWB = Workbooks.Open(sourcefile, False)
Set Sh1 = TempWB.Sheets("Chart")

Dim myChart As Chart
Dim myFileName As String