将选定的 Excel 范围复制到 Outlook答案

【问题标题】：Copy selected Excel range to Outlook将选定的 Excel 范围复制到 Outlook
【发布时间】：2018-05-04 15:57:21
【问题描述】：

我想在 vbs 脚本中将选定的 Excel 范围“A1 到 G5”从工作表“PUCCH”复制到 Outlook。

我有错误

类型不匹配

在线.HTMLBody= "PUCCH:<br>" & objWorksheet.Range("A1:G5")

Set outlook = CreateObject("Outlook.Application")
Set email = outlook.CreateItem(0)
Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("X:\d\PCCW\realtime_MTR\PUCCH_level.XLSX")
Set xlSht = xlBook.Sheets("PUCCH")

Set objExcel = CreateObject("Excel.Application")                                                               
Set objWorkbook =objExcel.Workbooks.Open("X:\d\PCCW\realtime_MTR\PUCCH_level.XLSX")  

Set objWorksheet = objWorkbook.Worksheets("PUCCH") 
objWorksheet.Activate

With email
    '.to="Email;"
    .to="Email;"
    .Subject="Houly MTR Alerter"
    .HTMLBody= "PUCCH:<br>" & objWorksheet.Range("A1:G5")
    .Send
End With 
Wscript. quit

如何更正 .Range() 中的 .HTMLBody？

【问题讨论】：

rondebruin.nl/win/s1/outlook/bmail2.htm

标签： excel vba vbscript outlook

【解决方案1】：

您正在尝试将范围本身复制到电子邮件中，而不是先读出值并将其插入到您的电子邮件中。根据这些单元格的格式，您可以尝试这样的操作

Dim sRangeValues as String  
Dim r as Range

Set outlook = CreateObject("Outlook.Application")
Set email = outlook.CreateItem(0)
Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("X:\d\PCCW\realtime_MTR\PUCCH_level.XLSX")
Set xlSht = xlBook.Sheets("PUCCH")

Set objExcel = CreateObject("Excel.Application")                                                               
Set objWorkbook =objExcel.Workbooks.Open("X:\d\PCCW\realtime_MTR\PUCCH_level.XLSX")  

Set objWorksheet = objWorkbook.Worksheets("PUCCH") 
objWorksheet.Activate

set r = objWorksheet.Range("A1:G5")

For i = 1 To r.Rows.Count
    For j = 1 To r.Rows(i).Columns.Count
        sRangeValues = sRangeValues & r.Rows(i).Columns(j).Value & "|"
    Next
    sRangeValues = sRangeValues & Chr(10)
Next

With email
       '.to="Email;"
       .to="Email;"
       .Subject="Houly MTR Alerter"
       .HTMLBody= "PUCCH:<br>" & sRangeValues
       .Send

End With 
Wscript. quit

【讨论】：