Проблема Я довольно новичок в VBA и в настоящее время собираю фрагмент кода, который извлекает все задачи Microsoft Outlook в новую таблицу Excel. Пока что код VBA работает хорошо, за исключением того, что я не могу заставить его извлекать данные только в пределах указанной пользователем даты.

Спецификации Microsoft Outlook/Excel 2010, Windows 7

Вот выдержка из нерабочего кода:

'VBA MACRO WHICH RUNS IN OUTLOOK 
 --------------
Dim strStart As Date
Dim strEnd As Date

strStart = InputBox("Enter a start date using the following format MM/DD/YYYY", "Input  Required")
strEnd = InputBox("Enter a due date using the following format MM/DD/YYYY", "Input  Required")

strQuery = "[DueDate] >= 'strStart' AND [DueDate] <= 'strEnd'"
Set OlkList = Ns.GetDefaultFolder(olFolderTasks).Items.Restrict(strQuery)

1 ответ1

0

Вы вставляете свои варианты буквально в свои критерии, вместо того, чтобы вставлять их значения, чтобы исправить это:

"[DueDate] >= '" & strStart & "' AND [DueDate] <= '" & strEnd & "'"

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .