Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставка даты (из ячейки книги) в название файла при его сохранении макросом
 
#1
25.06.2016 18:17:53
Есть книга1 excel с кучей закладок, в одной из которых собираются данные для регулярных отчётов.
Делается макрос (макрорекордером), который создаёт книгу2 excel только с отчётом (для отправки в хэд-офис).
При сохранении файла (с включённой записью макроса) вводится название файла, например, "Отчёт по ...", а дальше нужно автоматически вставить дату, присутствующую в одной из ячеек книги1.
Это возможно как-то реализовать?
 
 
 
#2
25.06.2016 18:20:38
Код
"Отчёт по ..." & " " & range("A1").value
 
 
 
#3
25.06.2016 23:55:35
Код
... & Format(range("A1").value,"dd/mm/yy")
 
 
 
#4
26.06.2016 00:01:27
или
Код
& [a1].Text
это если в ячейке как утверждаете только дата, без времени.
 
 
 
#5
27.06.2016 19:01:36
Вот так, без изменения даты, всё работает:
Код
ActiveWorkbook.SaveAs Filename:="C:\Отчёт по 2016.06.25.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

Если вставить вместо даты код, получается:
Код
ActiveWorkbook.SaveAs Filename:="C:\Отчёт по " & " " & range("F3").value", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

Или:
Код
ActiveWorkbook.SaveAs Filename:="C:\ Отчёт по &  Format(range("F3").value,"dd/mm/yy").xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

Или:
Код
ActiveWorkbook.SaveAs Filename:="C:\ Отчёт по &  [F3].Text.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

По всем трем вариантам выдает ошибку. У меня подозрение на синтаксис, подскажите, где я напортачил?
 
 
 
#6
27.06.2016 20:49:11
везде - поскольку не ознакомились с Правилами - приложите файл с этим всем, в котором не работает...
p.s. в последних 2-х не позакрывали кавычки до & и не пооткрывали до точки-и-расширения... везде не указали откуда F3 - ThisWorkbook.Sheets("какой")... может ещё где - без файла неизвестно...
Изменено: JeyCi - 27.06.2016 20:49:57
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
 
 
 
#7
27.06.2016 21:09:35
Цитата
presentt написал:
range("F3").value"
И здесь кавычки лишние...
 
 
 
#8
27.06.2016 21:16:25
Код
Sub qqq()
    Workbooks.Add 'Создали новую книгу
    ActiveWorkbook.SaveAs Filename:="C:\Отчёт по " & " " & ThisWorkbook.Sheets("Лист1").Range("F3").Value & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub
 
 
 
#9
27.06.2016 22:21:47
Range("F3").Value скорее всего будет числом вроде 42548 - там ведь вроде как дату обещали.
 
 
 
#10
27.06.2016 22:50:43
Неа - я проверил: дата в имени ) Но для надёжности, ты прав: лучше .Text
 
 
 
#11
28.06.2016 13:52:40
Большое спасибо! Учел все замечания и заработало
 
 
 
Страницы: 1
Наверх