VBNet - Форум - Не получается сохранить файл по тек. дате

Вопрос: Не получается сохранить файл по тек. дате Добавлено: 10.04.09 15:26

Автор вопроса: oleg

Подскажите ошибку.
Задача такова: по почте приходит файл, его нужно после открытия сохранить в path (путь длинный), формат нужно присвоить xlNormal и не хочется заморачиваться с именем файла, а сохранить по текущей дате. Вроде просто, а не получается. Учусь.. (пока плохо). А если серьезно, где иду не туда?

Sub СОХР()
iPath = "\\pdc\ "
ActiveWorkbook.SaveAs Filename:= iPath & MATCH(TODAY(), FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Спасибо.
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Abiron Вопросов: 30 Ответов: 62	Профиль \| Цитата \| #1	Добавлено: 10.04.09 18:43
	а зачем такие сложности. dim dat as string dat=date msgbox iPath+dat Ответить

Номер ответа: 2 Автор ответа: Лёха М ICQ: не умею Вопросов: 6 Ответов: 4	Web-сайт: не имею Профиль \| Цитата \| #2	Добавлено: 10.04.09 21:42
	а в чем ошибка? может проблема со скобками? а для записи даты попробуй функцию Format(Now, "dd-mm-yyyy" Ответить

Номер ответа: 3 Автор ответа: oleg Вопросов: 12 Ответов: 23	Профиль \| Цитата \| #3	Добавлено: 13.04.09 16:43
	Abrion, спасибо, действительно все гораздо проще. Но маленькая заковыка, файл сохраняется без расширения, хотя при открытии все работает, но присутствует какая-то незавершенность. Как расширение ему задать? Спасибо. Ответить

Номер ответа: 4 Автор ответа: oleg Вопросов: 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 Автор ответа: oleg Вопросов: 12 Ответов: 23	Профиль \| Цитата \| #6	Добавлено: 15.04.09 08:54
	То что надо. Спасибо. Я еще дописал сообщение MsgBox ("Сохранил в ...." & iPath + strDate Ответить

Страница: 1 |