IMHO.WS

IMHO.WS (https://www.imho.ws/index.php)
-   Программирование (https://www.imho.ws/forumdisplay.php?f=40)
-   -   Что можно придумать? (Exel) (https://www.imho.ws/showthread.php?t=40208)

Keks 04.10.2003 16:50

Что можно придумать? (Exel)
 
Вобщем так, у меня есть книга в формате xls которая каждый день обновляется из внешних источникв, и мне надо чтобы при сохраннении книги вместо имени файла была текущая дата. Как можно осуществить такое? Мне говорили что с помощью макросов, но я не умею ими пользоваться.
Заранее спасибо. :confused:

Mazzi 07.10.2003 11:07

попробуй вот этот код в редакторе макросов. А затем просто выполни макрос SaveCurDate.

Sub SaveCurDate()
Dim CurDate, Path, FName As String
CurDate = Date$
Path = "c:\" 'дирекория для сохранения
FName = CurDate + ".xls"
ActiveWorkbook.SaveAs Filename:=Path + FName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Правда есть здесь один минус, если такой фал существует, то появиться вопрос о презаписи.


Часовой пояс GMT +4, время: 21:06.

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.