Excel VBA找不到使用限制篩選器的Outlook 2010約會

Question

我在Outlook 2010中的日歷上遇到問題，這使我發瘋。 我對Outlook和VBA都是新手，因此我可能忽略了一些顯而易見的內容。 但是，經過大量研究和測試，我沒有找到解決方案。

使用Excel VBA，我已將生日作為全天約會添加到Outlook 2010日歷中（開始時間為開始日期的12:00 AM，第二天的結束時間為12:00 AM）。 當我隨后嘗試使用以下過濾器查找約會時，程序在該日期不返回任何內容（在示例中，2018年10月14日應包含1個約會）：

Dim dAppDate as Date
dAppDate = "14.10.2018"
sFilter = "[Start] = '" & Format$(dAppDate, "dd.mm.yyyy") & "'"
Set onamespace = oApp.GetNamespace("MAPI")
Set oFolder = onamespace.GetDefaultFolder(olFolderCalendar)
Set oItems = oFolder.Items
Set oFilterAppointments = oItems.Restrict(sFilter)

但是，如果我只是稍微更改過濾器，如下所示：

sFilter "[Start] >= '" & Format$(dAppDate, "dd.mm.yyyy") & "'"

我會在2018年10月14日之后獲得所有約會，但在該日期之前沒有約會。 有任何想法嗎？ 這也讓我感到恐懼。.我也嘗試在過濾器中添加開始時間（上午12:00），但這也沒有帶來任何樂趣。 任何想法將不勝感激。

Answer 1

我認為有兩個問題：

• 日期字符串必須采用明確的格式，因此請拼寫月份，或使用“ yyyy / mm / dd”之類的格式
• 至少在美國這里，我無法使=運算符在搜索日期時起作用，因此我嘗試了組合過濾器，該方法起作用：

---

sFilter = "[Start] > '" & Format(dAppDate - 1, "yyyy/mm/dd") & "'" & " AND [End] < '" & Format(dAppDate + 1, "m/d/yyyy") & "'"