Господа знатоки, доброго времени!
Не поможете задать в нижеприведенном коде, чтобы файл сохранялся с уникальным именем - либо через слеш текущее время, либо число в скобках, либо что то подобное... Ссылка на ячейку с TDATA() дает 15 значную кракозябру...
Это сохранение используется в макросе отправки листа excel по e-mail. Поэтому, если в этот день нужна будет еще одна отправка такого файла по e-mail, предыдущий файл просто заменится, а мне нужно, чтобы в указанной папке сохранились все файлы...
Не поможете задать в нижеприведенном коде, чтобы файл сохранялся с уникальным именем - либо через слеш текущее время, либо число в скобках, либо что то подобное... Ссылка на ячейку с TDATA() дает 15 значную кракозябру...
Это сохранение используется в макросе отправки листа excel по e-mail. Поэтому, если в этот день нужна будет еще одна отправка такого файла по e-mail, предыдущий файл просто заменится, а мне нужно, чтобы в указанной папке сохранились все файлы...
Код |
---|
ActiveWorkbook.SaveAs FileName:="G:\DEPTS\" & Название_листа & "_" & Текущая_дата & ".xls", FileFormat:=xlNormals Wra = ActiveWorkbook.Name Workbooks(sWra).Close SaveChanges:=False |