Как я могу просмотреть календарь для открытия файлов на VBA?

Question

Мне нужно иметь возможность проходить по датам и открывать файлы, основываясь на дате внутри цикла.Например, цикл может быть для 9/1/19 -> 9/10/19, а файлы будут "090119" -> "091019". Я могу открыть файлы по отдельности, но не могу понять, какая часть цикла у них есть,Кроме того, теперь я открываю файлы, набрав в поле ввода « '090119 ».

Можно ли использовать календарь для выбора дат, затем на основе этихdate назначает переменную для месяца, дня и года, а затем использует concatenate для добавления переменных в формат mmddyy.Существует ли заранее заданная формула или метод для циклического перебора дней таким образом, чтобы знать количество дней в каждом месяце 30 против 31 и т. Д.

Спасибо

Answer 1

Вы можете перебирать дни с этим кодом:

Option Explicit

Public Sub IterateDays()
    Dim datFrom As Date: datFrom = DateSerial(2013, 4, 5)
    Dim datTo As Date: datTo = DateSerial(2013, 5, 4)
    Dim datDay As Date: datDay = datFrom
    While datDay <= datTo
        Dim strDay As String: strDay = Format(datDay, "mmddyy")
        Debug.Print strDay
        datDay = DateAdd("d", 1, datDay)
    Wend
End Sub

Answer 2

Простым решением без пользовательских элементов управления календарем было бы создание DialogBox с FROM и TO палитрами календаря, кнопкой для добавления простой даты и ListBox с добавленными датами или периодами дат ... a START Кнопка, чтобы начать процесс создания системного файла для каждой даты в ListBox или дат в периоде, добавленном в ListBox.Вы также можете добавить кнопку DELETE, чтобы удалить ранее ошибочную дату или период, добавленные ранее в ListBox.

Чтобы создать несколько системных файлов после нажатия кнопки START, вы должны только написать код, который итеративно бросает каждыйдата и период, выбранные и добавленные в дату и период ListBox.

ListBox может содержать следующие строки

2018-10-12
2018-10-06 -> 2018-10-14
2018-12-04

Это две части в этом решении.

В первойчасть, вы пишете DialogBox для заполнения ListBox.

Во второй части (после нажатия на кнопку Пуск) вы создаете несколько файлов.