Почему нет равенства?

[27102014]

Не совсем понятно с папками - очет за 31.12 должен сохранится в папке 31.12 или уже переместится в папку 01.01 ? отчет отправляется 31.12 ?

У самого на работе очень много папок, обычно обхожу это указанием адреса текущей папки - ActiveWorkbook.Path, например
(ActiveWorkbook.Path & "\" & Cells(9, 3) & "_" & "МВЗ_" & Cells(7, 3) & ".xls"), в ячейках указаны переменные - дата, завод и др.

Предложу свой варинт проверки существования папки с текущей датой - если папка уже есть, сохранит в ней, если нет, то создаст
DestFolder = "C:\Users\Desktop\InboxOutlook\ "
If Len(Dir(DestFolder & Date, vbDirectory)) = 0 Then 'проверка существования директории
MkDir DestFolder & Date 'делаем папку с текущей датой
End If

[valerij]

Сообщение от Hugo121

Всё равно не понял, почему нельзя заранее папок наплодить, но не важно....

нельзя, программа не видит такие папки ибо она, программа сама создаёт папки месяцев, т. е. подходит конец текущего месяца к примеру Январь, а файл ушёл по почте производителю уже февралём, программа сама создаст папку Февраль и два файла разложит - файл 31 в папку год/Январь, а файл 01 в папку год/Февраль.
На следующий день, а это уже февраль, программа(по клику ярлыка Заявки на раб. столе) сама откроет, файл 01 февраля, заполнив его данными, сохранит его как за 01 и как за 02. февраля и 02 уйдёт по почте.

Только я бы называл файлы иначе - например 20150101, так при сортировке по имени будет хронологический порядок.

Имена файлов там такие, На 31.12.14.xls, На 03.01.15.xls
Почему так, это исключает споры(деньгами выстраданы ), присылаются по почте сегодняшним днём, а на исполнение - завтрашним.

Ни каких сортировок не нужно, программа сама всё разлаживает.
Я вот вспомнил, почему не делал полный автомат, если открыть файл прошедшего года, то дату он вставит текущего, кстати нужно дату сделать не системную, а от имени файла, просто практически никогда не заглядывали в прошедшие года.
Но надо переделать, наверное.

Источник не могу найти(там всё разжёвано было), мне SAS888 помогал с макрос, там ещё файл был OpenDate.xls

О-о нашёл
http://www.programmersforum.ru/showt...ghlight=SAS888