Сохранение файла в определенную папку с датой +1

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла в определенную папку с датой +1 (Формулы/Formulas)

ПалычЪ

Дата: Воскресенье, 22.11.2015, 19:26 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 106

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Добрый день! Вопрос... есть файл нужно написать макрос который бы сохранял данный файл в следующую папку: C:\Users\GTA\Desktop\Автосейф
но есть два условия:
1) Название файла должно состоять из завтрешней даты, то есть например 23.11.15, учитывая что жмем на макрос 22-го числа...
2) Если в этой папке куда сохраняем уже есть файл с завтрешней датой, то сохранить нужно в этом случае с датой послезавтрешней, то есть жмем на макрос 22-го числа, а в папке уже есть файл 23.11.15, то файл должен сохраниться что б в названии была дата 24.11.15
Заранее спасибо!

Прошу прощения за БАЯН... но в инете не нашел именно такое решение задачи ..похожие то есть..но...все не то что именно надо(((

К сообщению приложен файл: 9311854.xlsx (8.3 Kb)

Сообщение отредактировал ПалычЪ - Воскресенье, 22.11.2015, 19:27

Ответить

Karataev

Дата: Воскресенье, 22.11.2015, 19:49 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Макрос запускается кнопкой из листа1, из ячейки "A1". Макрос делает копию книги, в которой находится макрос.
[vba]

Код

Sub СоздатьКопию()

    Const strPath As String = "C:\Users\GTA\Desktop\Автосейф"

    Dim strFileName As String, i As Long

    Do
        i = i + 1
        strFileName = strPath & "\" & DateAdd("d", i, Date) & ".xlsm"
        If Dir(strFileName) = "" Then
            ThisWorkbook.SaveCopyAs strFileName
            Exit Do
        End If
    Loop

    MsgBox "Копия создана!", vbInformation

End Sub

[/vba]

К сообщению приложен файл: macro.xlsm (17.8 Kb)

Ответить

ПалычЪ

Дата: Воскресенье, 22.11.2015, 19:58 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 106

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Спасибо! работает + в репу

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла в определенную папку с датой +1 (Формулы/Formulas)

Страница 1 из 1
1