Сохранение файла с текущей датой
dx
Дата: Среда, 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]
Люди добрые подкорректируйте, пожалуйста, код, а если точней помогите прописать путь к папке, в которую требуется сохранить файл. Папка находится в папке заказы под названием архив [vba]Код
Sub SaveAsDate() Dim strDate As String ' Получение текущей даты и представление ее в формате "ддммгг" strDate = Format(Now(), "ddmmyy") ' Сохранение книги в текущую папку под новым именем ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate End Sub
[/vba] dx
Ответить
Сообщение Люди добрые подкорректируйте, пожалуйста, код, а если точней помогите прописать путь к папке, в которую требуется сохранить файл. Папка находится в папке заказы под названием архив [vba]Код
Sub SaveAsDate() Dim strDate As String ' Получение текущей даты и представление ее в формате "ддммгг" strDate = Format(Now(), "ddmmyy") ' Сохранение книги в текущую папку под новым именем ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate End Sub
[/vba] Автор - dx Дата добавления - 18.12.2013 в 17:03
DAKRAY
Дата: Среда, 18.12.2013, 17:19 |
Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация:
1
±
Замечаний:
0% ±
Excel 2003
Ответить
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 - ячейка, в которую будет вписываться дата.
Вписывай в модуль книги (ThisWorkbook) [vba]Код
Private Sub Workbook_Open() If Me.Name <> "Имя документа.xls" Then Exit Sub Sheet1.[A1] = Format(Date, "ddmmyy") End Sub
[/vba] A1 - ячейка, в которую будет вписываться дата. DAKRAY
Сообщение отредактировал DAKRAY - Среда, 18.12.2013, 17:24
Ответить
Сообщение Вписывай в модуль книги (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:23
dx
Дата: Среда, 18.12.2013, 17:43 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация:
0
±
Замечаний:
100% ±
Excel 2010
DAKRAY, Что то не получается к сожалению я новичок в этой теме а вы не могли бы расписать конкретно по моему примеру.
DAKRAY, Что то не получается к сожалению я новичок в этой теме а вы не могли бы расписать конкретно по моему примеру. dx
Ответить
Сообщение DAKRAY, Что то не получается к сожалению я новичок в этой теме а вы не могли бы расписать конкретно по моему примеру. Автор - dx Дата добавления - 18.12.2013 в 17:43
DAKRAY
Дата: Среда, 18.12.2013, 18:08 |
Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация:
1
±
Замечаний:
0% ±
Excel 2003
Да я сам новичек.) Наверное не так понял. Вы хотите, чтобы в названии файла вставлялась дата? А руками не проще? Все ровно же жмете кнопку сэйв ас.) Я почему-то подумал что Вам в файле нужно в какой-то ячейке поставить сегодняшнюю дату и после сохранения, она там бы и осталась.) Просто вопрос наболевший на столько был, что сразу подумал что именно тоже самое нужно и Вам.)
Да я сам новичек.) Наверное не так понял. Вы хотите, чтобы в названии файла вставлялась дата? А руками не проще? Все ровно же жмете кнопку сэйв ас.) Я почему-то подумал что Вам в файле нужно в какой-то ячейке поставить сегодняшнюю дату и после сохранения, она там бы и осталась.) Просто вопрос наболевший на столько был, что сразу подумал что именно тоже самое нужно и Вам.) DAKRAY
Ответить
Сообщение Да я сам новичек.) Наверное не так понял. Вы хотите, чтобы в названии файла вставлялась дата? А руками не проще? Все ровно же жмете кнопку сэйв ас.) Я почему-то подумал что Вам в файле нужно в какой-то ячейке поставить сегодняшнюю дату и после сохранения, она там бы и осталась.) Просто вопрос наболевший на столько был, что сразу подумал что именно тоже самое нужно и Вам.) Автор - DAKRAY Дата добавления - 18.12.2013 в 18:08
dx
Дата: Среда, 18.12.2013, 18:17 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация:
0
±
Замечаний:
100% ±
Excel 2010
DAKRAY, Мне нужно, что бы файл сохранялся с текущей датой. Не одним листом как в вашем примере, а целой книгой
DAKRAY, Мне нужно, что бы файл сохранялся с текущей датой. Не одним листом как в вашем примере, а целой книгой dx
Ответить
Сообщение DAKRAY, Мне нужно, что бы файл сохранялся с текущей датой. Не одним листом как в вашем примере, а целой книгой Автор - dx Дата добавления - 18.12.2013 в 18:17
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.
О. Получилось. Тогда так. Сделайте кнопку, в нее код: [vba]Код
Sub CommandButton1_Click() Dim strDate As String strDate = Format(Date, "ddmmyy") ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate End Sub
[/vba] После ее нажатия, файл сохраняется с именем сегодняшней даты в формате ddmmyy. DAKRAY
Ответить
Сообщение О. Получилось. Тогда так. Сделайте кнопку, в нее код: [vba]Код
Sub CommandButton1_Click() Dim strDate As String strDate = Format(Date, "ddmmyy") ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate End Sub
[/vba] После ее нажатия, файл сохраняется с именем сегодняшней даты в формате ddmmyy. Автор - DAKRAY Дата добавления - 18.12.2013 в 18:18
dx
Дата: Среда, 18.12.2013, 18:40 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация:
0
±
Замечаний:
100% ±
Excel 2010
DAKRAY, Да все вроде не плохо, но мне нужно чтоб файл сохранялся в папку (Архив)
DAKRAY, Да все вроде не плохо, но мне нужно чтоб файл сохранялся в папку (Архив) dx
Ответить
Сообщение DAKRAY, Да все вроде не плохо, но мне нужно чтоб файл сохранялся в папку (Архив) Автор - dx Дата добавления - 18.12.2013 в 18:40
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]
Так закиньте этот файл с кнопкой в папку (архив). Когда кнопку нажмете, файл будет создаваться с новым именем в текущей папке. Ну или укажите путь к папке: [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] DAKRAY
Сообщение отредактировал DAKRAY - Среда, 18.12.2013, 18:50
Ответить
Сообщение Так закиньте этот файл с кнопкой в папку (архив). Когда кнопку нажмете, файл будет создаваться с новым именем в текущей папке. Ну или укажите путь к папке: [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] Автор - DAKRAY Дата добавления - 18.12.2013 в 18:44
dx
Дата: Среда, 18.12.2013, 18:50 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация:
0
±
Замечаний:
100% ±
Excel 2010
DAKRAY, Как то хотелось поделить мухи отдельно котлеты отдельно) Программа в отдельной папке архив в другой папке
DAKRAY, Как то хотелось поделить мухи отдельно котлеты отдельно) Программа в отдельной папке архив в другой папке dx
Ответить
Сообщение DAKRAY, Как то хотелось поделить мухи отдельно котлеты отдельно) Программа в отдельной папке архив в другой папке Автор - dx Дата добавления - 18.12.2013 в 18:50
DAKRAY
Дата: Среда, 18.12.2013, 18:51 |
Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация:
1
±
Замечаний:
0% ±
Excel 2003
См. выше.
Ответить
Сообщение См. выше. Автор - DAKRAY Дата добавления - 18.12.2013 в 18:51
dx
Дата: Среда, 18.12.2013, 19:03 |
Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация:
0
±
Замечаний:
100% ±
Excel 2010
DAKRAY, Спасибо все получилось.
DAKRAY, Спасибо все получилось. dx
Ответить
Сообщение DAKRAY, Спасибо все получилось. Автор - dx Дата добавления - 18.12.2013 в 19:03
DAKRAY
Дата: Среда, 18.12.2013, 19:04 |
Сообщение № 13
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация:
1
±
Замечаний:
0% ±
Excel 2003
Всегда рад помочь!)
Ответить
Сообщение Всегда рад помочь!) Автор - DAKRAY Дата добавления - 18.12.2013 в 19:04