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