Excel VBA-公式为字符串的变量

我试图在VBA代码中的变量内部创建公式。 当代码用于创建邮件部分时，它会崩溃

numer

有什么问题

Dim numer As Integer
Dim day As Integer

day = WorksheetFunction.TODAY()
numer = WorksheetFunction.WeekNum(day, 1)


With OutMail

    .Subject = "text text" &  CStr(numer) & " text text"

---

VBA不允许使用TODAY（）函数。改用Date函数。此外，整数最多只能保存32767的值。改用长的

Private Sub this()
Dim numer As Integer
Dim day As Long

day = Date
numer = WorksheetFunction.WeekNum(day, 1)

---

VBA不允许使用TODAY（）函数。改用Date函数。此外，整数最多只能保存32767的值。改用长的

Private Sub this()
Dim numer As Integer
Dim day As Long

day = Date
numer = WorksheetFunction.WeekNum(day, 1)