Страница: 1 |
Вопрос: Не получается сохранить файл по тек. дате | Добавлено: 10.04.09 15:26 |
Автор вопроса: ![]() |
Подскажите ошибку.
Задача такова: по почте приходит файл, его нужно после открытия сохранить в path (путь длинный), формат нужно присвоить xlNormal и не хочется заморачиваться с именем файла, а сохранить по текущей дате. Вроде просто, а не получается. Учусь.. (пока плохо). А если серьезно, где иду не туда? Sub СОХР() iPath = "\\pdc\ " ActiveWorkbook.SaveAs Filename:= iPath & MATCH(TODAY(), FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False End Sub Спасибо. |
Ответы | Всего ответов: 6 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 30 Ответов: 62 |
Профиль | Цитата | #1 | Добавлено: 10.04.09 18:43 |
а зачем такие сложности.
|
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ICQ: не умею Вопросов: 6 Ответов: 4 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 10.04.09 21:42 |
а в чем ошибка? может проблема со скобками?
а для записи даты попробуй функцию Format(Now, "dd-mm-yyyy" ![]() |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 12 Ответов: 23 |
Профиль | Цитата | #3 | Добавлено: 13.04.09 16:43 |
Abrion, спасибо, действительно все гораздо проще. Но маленькая заковыка, файл сохраняется без расширения, хотя при открытии все работает, но присутствует какая-то незавершенность. Как расширение ему задать?
Спасибо. |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 12 Ответов: 23 |
Профиль | Цитата | #4 | Добавлено: 14.04.09 14:53 |
Р.S. Файл сохраняется с кавычками. Как их не ставить? |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 0 Ответов: 3 |
Профиль | Цитата | #5 | Добавлено: 14.04.09 20:44 |
Попробуй так:
Sub COXP() Dim strDate As String strDate = Format(Now(), "dd.mm.yy" ) & ".xls" ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & strDate End Sub Вместо ActiveWorkbook.Path укажи адрес папки куда хочешь сохранять. |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 12 Ответов: 23 |
Профиль | Цитата | #6 | Добавлено: 15.04.09 08:54 |
То что надо. Спасибо. Я еще дописал сообщение
MsgBox ("Сохранил в ...." ![]() |
Страница: 1 |
|