Excel Macro VBA- Как сохранить как xlsm с именем файла на основе даты и значения ячейки

Мне очень понравилось решение here, которое предоставило VBA, чтобы принудительно сохранить файл xlsm. Имея в виду, что я едва знаю ничего о VBA, как я мог бы изменить этот код, чтобы сделать следующее:Excel Macro VBA- Как сохранить как xlsm с именем файла на основе даты и значения ячейки

продолжают заставить сохранить как XLSM
имя файла равно значение ячейки С1 в листе с именем " ОТЧЕТ "+ текст" BSC "+ дата в формате ГГГГ.ММ.DD

Любая помощь была бы принята с благодарностью.

источник

2016-04-22 David W Harrington

так что я сегодня щедр, однако на этой ноте, вы действительно должны, по крайней мере, попытаться узнать, а не хочет чтобы кто-то сделает это за вас ... я снова чувствовал себя щедрым так вам должно быть повезло. 'Dim sFileName As String sFileName = Таблицы (« ОТЧЕТ »). Диапазон (« C1 »). Значение &« BCS »и формат (DateTime.Now,« yyyy.mm.dd ») и« .xlsm » ActiveWorkbook. SaveAs sFileName' – Sorceri

Я согласен с Sorceri и все еще редактирую, когда был опубликован этот комментарий. Я только что видел его. Это правильно на границе того, на что следует или не следует отвечать. Но что-то о том, как вы его попросили, показалось, что помощь приведет вас на следующий уровень. Мой ответ дает вам кое-что из этого, но вам придется собрать его вместе, чтобы закончить головоломку. Удачи. Ты можешь это сделать. – peege

Если взять линию, где он говорит:

ThisWorkbook.SaveAs Filename:=FileNameVal & ".xlsm", FileFormat:=ThisWorkbook.FileFormat 
     Application.EnableEvents = True

Вы сохраняете файл как любое значение, сохраненное под FileNameVal

Используя некоторые основные переменные, вы можете установить строки и заменить значение FileNameVal

Dim newFileName As String, nameDate As String, sheet As String, tempVal As String 

    sheet = "REPORT" 
    tempVal = Sheets(sheet).Range("C1").Text 
    nameDate = Format(Date, "yyyy.mm.dd") 
    newFileName = tempVal & "BSC" & nameDate

Посмотрите на окно Locals, и вы можете увидеть значения изменяются, как вы шаг через код, используя клавишу F8.

источник

2016-04-22 19:36:54 peege

Это предназначено, чтобы дать вам некоторые из недостающих элементов. Вы должны быть в состоянии закончить отсюда. – peege

Спасибо за помощь, мочу и Sorceri. Это первый раз, когда мне действительно нужно было попробовать свои силы в любом виде VBA, и я очень далеко от кодера большую часть своей жизни, но если я получу несколько отдельных советов, связанных с проблемой, я работаю Я, как правило, могу быть достаточно компетентным, чтобы задавать действительно хорошие вопросы позже, скажем, HTML, CSS или PHP. Так что это поможет. –

Excel Macro VBA- Как сохранить как xlsm с именем файла на основе даты и значения ячейки

ответ

Смежные вопросы