Всем доброго времени суток!
Пожалуйста, подскажите, в чём неправильно составлен код?
Sub СохранитьЛистВФайл()
On Error Resume Next
' название подпапки, в которую по-умолчанию будет предложено сохранить файл
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs [B14]
Application.DisplayAlerts = True
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs [D14]
Application.DisplayAlerts = True
' вывод диалогового окна для запроса имени сохраняемого файла
Filename = "c:\Users\Admin\Documents\Служебные записки на формирование цены автомобиля trade-in" & Range("a1") & ".xls"
' если пользователь отказался от выбора имени файла - отменяем сохранение листа в файл
If VarType(Filename) = vbBoolean Then Exit Sub
' копируем активный лист (при этом создаётся новая книга)
Err.Clear: ActiveSheet.Copy: DoEvents
If Err Then Exit Sub ' произошла какая-то ошибка при попытке копирования листа
' убеждаемся, что активной книгой является копия листа
If ActiveWorkbook.Worksheets.Count = 1 And ActiveWorkbook.Path = "" Then
' сохраняем файл под заданным именем в формате Excel 2010
ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
' закрываем сохранённый файл
' (удалите следующую строку, если закрывать созданный файл не требуется)
ActiveWorkbook.Close False
End If
End Sub
Объясняю, что я хочу, что бы у меня получилось. В ячейках B14 и D14 хранятся данные о модели автомобиля и его VIN
соответственно. Когда я буду сохранять нужный мне файл в папку "Служебные записки на формирование цены автомобиля trade-in", в поле "имя файла" должны автоматически появляться данные о модели и VIN автомобиля.
Помогите, пожалуйста, исправить код.