Excel 如何调用字符串中的单元格值？

我正在尝试设置一个宏来发送电子邮件，在截止日期时间表上更新人员。此电子邮件应从特定单元格中提取日期，并将其放入邮件正文中。到目前为止，我可以设置电子邮件阅读的方式，我想，但我有麻烦调用日期

我是vba的新手，这可能不是一个可以实现的功能，但任何解决方法都会很感激！谢谢

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Dim rev_1 As Date, rev_2 As Date, final_due As Date
rev_1 = Range(I2)
rev_2 = Range(K2)
final_due = Range(M2)

strbody = "XXXXXXX" & vbNewLine & vbNewLine & _
          "This is an update on your project dates:" & vbNewLine & vbNewLine & _
          "Review 1 Suspense: CALL CELL I2 HERE" & vbNewLine & _
          "Review 2 Suspense: CALL CELL K2 HERE" & vbNewLine & _
          "Final Due Date: CALL CELL M2 HERE" & vbNewLine & vbNewLine & _
          "Acoording to this timeline, you are AHEAD/ON TIME/BEHIND." & vbNewLine & vbNewLine & _
          "If you have any questions, please contact XXXX." & vbNewLine & vbNewLine & _



On Error Resume Next
With OutMail
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Upcoming Project - Timeline Update"
    .Body = strbody
    .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

---

End Sub

您好，您可以这样做

"Review 1 Suspense: " & range("I2") & vbNewLine & _

---

您在

I2

、

K2

和

M2

周围缺少引号。要跟进该注释，您应该在模块顶部放置

选项Explicit

，以捕获该类型的错误。