vba - objReminder.Start = Range ("h"& i) 不工作

Question

我有这个代码:

Sub StoreReminders()
    Dim LastRow As Long
    Dim i As Integer
    LastRow = ActiveSheet.UsedRange.Rows.Count
    i = 2
    Debug.Print LastRow
    Dim appOL As Object
     Dim objReminder As Object

    Set appOL = GetObject(, "Outlook.application")
     Set objReminder = appOL.CreateItem(1) ' olAppointmentItem
     For i = 2 To LastRow
     Debug.Print i
     Debug.Print Range("h" & i)
     objReminder.Start = Range("h" & i)
     objReminder.Duration = Range("I" & i)
     objReminder.Subject = "Renew " & Range("a" & i)
     objReminder.ReminderSet = True
     objReminder.Save
     Next i
End Sub

它在 objReminder.Start = Range("h" & i) 处中断因为根据 Debug.Print代码，它返回整个日期列，而不仅仅是 H2 中的日期
Range("a" & i)代码不能与 objReminder.Start 一起使用? Debug.print正确打印出来。

Answer 1

如果您查看 MSDN 条目中的 Start 属性(property)然后它说:

Returns or sets a Date indicating the starting date and time for the appointment or Journal entry. Read/write.

(他们的重点)

因此，在您的 VBA 代码中，我将更改这一行:

objReminder.Start = Range("h" & i)

对此:

objReminder.Start = CDate(Range("h" & i).Value)

使用 CDate将值转换为日期的函数。