小白求助，excel表格有效期导入到outlook里后，提示已过期600多周

aidekuangtu2000

想把图片中的到期日期更新到outlook中，在不打开excel表格的情况下，outlook自动提醒到期时间，搜集了以下代码粘贴后，outlook却提升已过期6308周，恳请大侠们赐教，不胜感激。（excel工作簿中有多个工作表，代码最好是可以根据需要随意调整指定工作表）

Sub test()
Dim ol As Outlook.Application
Set ol = CreateObject("Outlook.Application")
Dim t As AppointmentItem
For r = 2 To Range("b65536").End(xlUp).Row
Set t = ol.CreateItem(olAppointmentItem)
With t
.Subject = Cells(3, 6) '类型
.Start = Cells(3, 11) '有效期
.Duration = 30 '持续时间
.ReminderMinutesBeforeStart = 45 '提前N分钟提醒
.Body = "Excel日程提醒" '事件内容
.Save
'.Display
End With
Next
End Sub

aidekuangtu2000

恳求大师们赐教