Items.Restrict не работает последовательно при разных значениях даты и времени. (Excel VBA, MS Outlook)
Я получаю электронные письма в течение определенного периода времени из MS Outlook для заполнения листа Excel.
Использование Items.Restrict(filterstring) для ограничения результатов двумя отметками даты и времени.
Это работает для таких интервалов, как 14.06.2024 23:59 и 15.06.2024 23:59 (в течение дня), возвращая количество входящих элементов Outlook (электронные письма, приглашения на собрания, отчеты и т. д.).
Такие интервалы, как 15.06.2024 4:50 и 15.06.2024 23:59, неправильно возвращают 0 результатов, что подтверждается данными Outlook.
'Has the nescessary Outlook variable declarations and references. DateTime vars strT and EndT
restrictfilter = "[ReceivedTime] > '" & Format(CStr(strtT), "M/D/YYYY h:n") & "' AND [ReceivedTime] <= '" & Format(CStr(EndT), "M/D/YYYY h:n") & "'"
Set olItems = olFolder.Items.Restrict(restrictfilter)
allitemscount = olItems.Count
Преобразование HTML-таблицы в профессиональный документ Excel
Это самый простой способ создания Excel из HTML-таблицы.
Импорт excel в laravel в базу данных
Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...
0
1
65
2
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 2
Используйте строку формата, которая возвращает 2 цифры часа, минуты, дня и месяца: "MM/DD/YYYY hh:nn"
Ответ принят как подходящий
Включите AMPM в формат.
Option Explicit
Private Sub ExtractEmail_Time()
Dim olFolder As folder
Dim olMail As MailItem
Dim i As Long
Dim restrictfilter As String
Dim olItems As Items
Dim allItemsCount As Long
Set olFolder = Session.GetDefaultFolder(olFolderInbox)
Dim strtT As Date
Dim endT As Date
strtT = "6/15/2024 4:50"
endT = "6/15/2024 23:59"
restrictfilter = "[ReceivedTime] > '" & Format(CStr(strtT), "M/D/YYYY h:n") & "' AND [ReceivedTime] <= '" & Format(CStr(endT), "M/D/YYYY h:n") & "'"
Set olItems = olFolder.Items.Restrict(restrictfilter)
allItemsCount = olItems.count
Debug.Print allItemsCount
restrictfilter = "[ReceivedTime] > '" & Format(CStr(strtT), "M/D/YYYY h:n ampm") & "' AND [ReceivedTime] <= '" & Format(CStr(endT), "M/D/YYYY h:n ampm") & "'"
Set olItems = olFolder.Items.Restrict(restrictfilter)
allItemsCount = olItems.count
Debug.Print allItemsCount
restrictfilter = "[ReceivedTime] > '" & Format(strtT, "M/D/YYYY h:n ampm") & "' AND [ReceivedTime] <= '" & Format(endT, "M/D/YYYY h:n ampm") & "'"
Set olItems = olFolder.Items.Restrict(restrictfilter)
allItemsCount = olItems.count
Debug.Print allItemsCount
restrictfilter = "[ReceivedTime] > '" & Format(strtT, "ddddd h:n ampm") & "' AND [ReceivedTime] <= '" & Format(endT, "ddddd h:n ampm") & "'"
Set olItems = olFolder.Items.Restrict(restrictfilter)
allItemsCount = olItems.count
Debug.Print allItemsCount
End Sub
Другие вопросы по теме
Запустите функцию Worksheet_Change, когда значение ячейки $O$2 изменится
Зачеркивание строк с определенными значениями из 2 столбцов
Сохраните объектный файл (исполняемый файл exe) в предопределенную папку
Отображать MsgBox, если значение ячейки изменяется и не пусто
Word VBA вставляет несколько изображений и подписей в место, отмеченное закладкой, в документе шаблона из Access
Как интегрировать пользовательскую функцию с формулой Excel
Скопируйте весь диапазон в VBA (только значения)
VBA Создать временную шкалу в стиле диаграммы Ганта на основе данных в 3 столбцах
Извлечение строк данных с частичным совпадением в столбце из одного листа, а затем заполнение второго листа совпадающими данными строки
Извлечение данных из формата файла UTF-8 и их импорт в формат файла utf-8 в VBA
Похожие вопросы
Попытка создать адаптивный список проверки данных
Запустите функцию Worksheet_Change, когда значение ячейки $O$2 изменится
Рассчитать активность на основе времени входа в систему и выхода из нее
Зачеркивание строк с определенными значениями из 2 столбцов
Сохраните объектный файл (исполняемый файл exe) в предопределенную папку
Как динамически изменять суффиксы дат (1-го, 2-го, 3-го, 4-го и т. д.) в Excel
Отображать MsgBox, если значение ячейки изменяется и не пусто
Вложенный Xlookup [если не найден] не работает должным образом, возвращая несуществующие результаты с точным соответствием
Использование промежуточного итога группы столбцов в формуле вычисляемого поля
Как интегрировать пользовательскую функцию с формулой Excel
Пожалуйста, проверьте значения, которые вы получаете от метода формата. Какой тип значения имеет strtT и EndT? Вы можете попробовать удалить CStr там.