Как в этом коде прописать сохранение прежнего названия + дата ?

HMR

Гость

21.02.2011 03:07:10

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

Sub rrr799()
Dim wb As Workbook
Dim tdat As String
Dim w As Variant
tdat = Format(Now, "dd_mm_yyyy , HH_MM_SS")
Set wb = Workbooks.Add
wb.SaveAs tdat
wb.Close
End Sub

HMR Гость	#2 21.02.2011 03:22:37 Название Книга1 или Книга2 и т.д + дата

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

21.02.2011 03:29:13

Какое ещё прежнее название?
Вы же новую книгу создаёте...

попробуйте так:

Sub rrr799()
Dim wb As Workbook, tdat As String, w As Variant
tdat = Format(Now, "dd_mm_yyyy , HH_MM_SS")
Set wb = Workbooks.Add
wb.SaveAs "Книга1 " & tdat & ".xls"
wb.Close
End Sub

Вообще-то, лучше сразу указывать полный путь (вместе с папкой)

Если бы вы так сохраняли текущую книгу - было бы проще:

Sub CreateBackup()
On Error Resume Next:' ThisWorkbook.Save
BackupsPath = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, PROJECT_NAME & " Backups\")
MkDir BackupsPath
filename = PROJECT_NAME & "_BACKUP_" & Format(Now, "DD-MM-YYYY__HH-NN-SS") & ".xls"
ThisWorkbook.SaveCopyAs BackupsPath & filename
'Debug.Print BackupsPath & filename
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#4 21.02.2011 03:29:19 Sub rrr799() Dim wb As Workbook Dim tdat As String Dim w As Variant tdat = ThisWorkbook.Name & "_" & Format(Now, "dd_mm_yyyy , HH_MM_SS") Set wb = Workbooks.Add wb.SaveAs tdat wb.Close End Sub

HMR

Гость

21.02.2011 03:42:36

В этом коде , почему-то сохраняет , как PERSONAL10.XLSB21_02_2011.Незнаю почему
Sub rrr_799()
Dim wb As Workbook
Dim tdat As String
Dim w As Variant
tdat = ThisWorkbook.Name & "" & Format(Now, "dd_mm_yyyy , HH_MM_SS")
Set wb = Workbooks.Add
wb.SaveAs tdat
wb.Close
End Sub

Создаётся и обрабатывается много книг , что-бы не прописывать название каждой, меня это и заинтересовало ?

HMR

Гость

21.02.2011 04:11:01

Большое спасибо ! Разобрался. Здесь файл сохраняется по умалчиванию ,где я указал в Excele . А возможно-ли указать ещё и путь сохранения в этом коде , примеру вот этот "D:\НУЖНОЕ\Архив\"

Sub rrr_799()
Dim wb As Workbook
Dim tdat As String
tdat = Format(Now, "_dd_mm_yyyy , HH_MM_SS")
Set wb = Workbooks.Add
wb.SaveAs ActiveWorkbook.Name + tdat
wb.Close
End Sub

Guest

Гость

21.02.2011 04:23:33

Уважаемые форумчане возможно- ли в этом коде прописать вот этот путь , не так как предлагает макрорекордер ? "D:\НУЖНОЕ\Архив\"

Sub rrr_799()
Dim wb As Workbook
Dim tdat As String
tdat = Format(Now, "_dd_mm_yyyy , HH_MM_SS")
Set wb = Workbooks.Add
wb.SaveAs wb.Name + tdat
wb.Close
End Sub

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#8 21.02.2011 04:24:32 читайте ответ EducatedFool. ".... И опыт, сын ошибок трудных..." (А.С.Пушкин).

HMR

Гость

21.02.2011 18:36:17

Подскажите пожалуйста , почему-то вот этим кодом не получается сохранить книгу с прежним именем ,в нужную директорию ? Как правильно указать путь ?

Sub aaaaaaaaas()
Dim wb As Workbook
Set wb = Workbooks.Add
ChDir "D:\НУЖНОЕ\АРХИВ"
wb.SaveAs FileName:="D:\НУЖНОЕ\АРХИВ\wb.Name.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
wb.Close
End Sub

HMR Гость	#10 21.02.2011 18:42:56 ВСЁ СПАСИБО , разобрался , вот как надо. Sub aaaaaaaaas() Dim wb As Workbook Set wb = Workbooks.Add ChDir "D:\НУЖНОЕ\ДЛЯ ДЕЛА 1\АРХИВ" wb.SaveAs FileName:="D:\НУЖНОЕ\ДЛЯ ДЕЛА 1\АРХИВ\" & wb.Name & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False wb.Close End Sub

HMR Гость	#11 21.02.2011 18:58:45 Странно почему-то и так сохраняется и название не надо указывать , без последствий. Sub aaaaaaaaas1() Dim tdat As String Dim wb As Workbook Set wb = Workbooks.Add wb.SaveAs "D:\НУЖНОЕ\АРХИВ\" & wb.Name & ".xlsx" wb.Close End Sub

Читают тему