Сохранение файла с текущей датой

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла с текущей датой (Макросы Sub)

Дата: Среда, 18.12.2013, 17:03 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 44

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

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

Excel 2010

Люди добрые подкорректируйте, пожалуйста, код, а если точней помогите прописать путь к папке, в которую требуется сохранить файл. Папка находится в папке заказы под названием архив

[vba]

Код

Sub SaveAsDate()

Dim strDate As String

' Получение текущей даты и представление ее в формате "ддммгг"

strDate = Format(Now(), "ddmmyy")

' Сохранение книги в текущую папку под новым именем

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate

End Sub

[/vba]

Ответить

DAKRAY

Дата: Среда, 18.12.2013, 17:19 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

Не ленись, сначала поищи на форуме!

http://www.excelworld.ru/forum/2-7854-1

Я тут всех достал, но результат хороший!

Ответить

DAKRAY

Дата: Среда, 18.12.2013, 17:23 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

Вписывай в модуль книги (ThisWorkbook)

[vba]

Код

Private Sub Workbook_Open()
If Me.Name <> "Имя документа.xls" Then Exit Sub
Sheet1.[A1] = Format(Date, "ddmmyy")
End Sub

[/vba]

A1 - ячейка, в которую будет вписываться дата.

Сообщение отредактировал DAKRAY - Среда, 18.12.2013, 17:24

Ответить

Дата: Среда, 18.12.2013, 17:43 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 44

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

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

Excel 2010

DAKRAY, Что то не получается к сожалению я новичок в этой теме а вы не могли бы расписать конкретно по моему примеру.

Ответить

DAKRAY

Дата: Среда, 18.12.2013, 18:08 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

Да я сам новичек.) Наверное не так понял.
Вы хотите, чтобы в названии файла вставлялась дата? А руками не проще? Все ровно же жмете кнопку сэйв ас.)

Я почему-то подумал что Вам в файле нужно в какой-то ячейке поставить сегодняшнюю дату и после сохранения, она там бы и осталась.) Просто вопрос наболевший на столько был, что сразу подумал что именно тоже самое нужно и Вам.)

Ответить

Дата: Среда, 18.12.2013, 18:17 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 44

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

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

Excel 2010

DAKRAY, Мне нужно, что бы файл сохранялся с текущей датой. Не одним листом как в вашем примере, а целой книгой

Ответить

DAKRAY

Дата: Среда, 18.12.2013, 18:18 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

О. Получилось. Тогда так. Сделайте кнопку, в нее код:

[vba]

Код

Sub CommandButton1_Click()
Dim strDate As String
strDate = Format(Date, "ddmmyy")

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate

End Sub

[/vba]

После ее нажатия, файл сохраняется с именем сегодняшней даты в формате ddmmyy.

Ответить

Дата: Среда, 18.12.2013, 18:40 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 44

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

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

Excel 2010

DAKRAY, Да все вроде не плохо, но мне нужно чтоб файл сохранялся в папку (Архив)

Ответить

DAKRAY

Дата: Среда, 18.12.2013, 18:44 | Сообщение № 9

Группа: Пользователи

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

Так закиньте этот файл с кнопкой в папку (архив). Когда кнопку нажмете, файл будет создаваться с новым именем в текущей папке.

Ну или укажите путь к папке:

[vba]

Код

Private Sub CommandButton1_Click()

Dim strDate As String
strDate = Format(Date, "ddmmyy")
ActiveWorkbook.SaveAs ("C:\Documents and Settings\user\Desktop\") & strDate

End Sub

[/vba]