Как скопировать лист в новый файл и обозвать его (файл) именем, включающим текущую дату?

@academ · Регистрация: 31.05.2010

Господа, как скопировать лист в новый файл и обозвать его (файл) именем, включающим текущую дату. В общем, чтобы появился новый файл с названием, например, 'отчет3103.xls' и чтоб содержал он необходимый лист. Все получается, кроме как в название дату засунуть.

@vlth · 08.06.2010, 17:00

strDate = Left$(Date, InStrRev(Date, '.') - 1)
strDate = 'отчёт' & Replace(strDate, '.', '') & '.xls'

@vlth · 08.06.2010, 17:08

Уточнение:
Приведён пример для обработки системной даты формата дд.ММ.гг (31.03.04).
Формат даты задаётся в настройках Windows.

09.06.2010, 19:48

много разного можно типа:

Код

Sub DateName()
    Dim myFile As String, myPath As String
    myPath = 'C: ' 'сюда свой путь впиши
    myFile = Format(Now(), 'ddmmyy')
    ActiveWorkbook.SaveAs (myPath & myFile)
End Sub

@academ 0 / 0 / 0 Регистрация: 31.05.2010 Сообщений: 3
		1
	Как скопировать лист в новый файл и обозвать его (файл) именем, включающим текущую дату? 08.06.2010, 16:00. Просмотров 1683. Ответов 3 Метки нет (Все метки) Господа, как скопировать лист в новый файл и обозвать его (файл) именем, включающим текущую дату. В общем, чтобы появился новый файл с названием, например, 'отчет3103.xls' и чтоб содержал он необходимый лист. Все получается, кроме как в название дату засунуть. 0

@vlth 13 / 13 / 2 Регистрация: 23.03.2010 Сообщений: 635
	08.06.2010, 17:00	2
	strDate = Left$(Date, InStrRev(Date, '.') - 1) strDate = 'отчёт' & Replace(strDate, '.', '') & '.xls' 0

@vlth 13 / 13 / 2 Регистрация: 23.03.2010 Сообщений: 635
	08.06.2010, 17:08	3
	Уточнение: Приведён пример для обработки системной даты формата дд.ММ.гг (31.03.04). Формат даты задаётся в настройках Windows. 0

Farhad
	09.06.2010, 19:48	4
	много разного можно типа: Код Sub DateName() Dim myFile As String, myPath As String myPath = 'C: ' 'сюда свой путь впиши myFile = Format(Now(), 'ddmmyy') ActiveWorkbook.SaveAs (myPath & myFile) End Sub

Опции темы