Добрый день!
Прошу подсказать, как взять имя файла с другого листа.
Вот макрос которым давно пользуюсь. Ранее брал имя с Sheets("Лист1").Range("E3")Сейчас стала необходимость брать имя файла с другого листа Sheets("Лист2").Range("D9"). И еще Лист2 скрытый.
[vba]Код
Sub Лист_в_файл() 'Сохранить текущий лист.
Dim List$, iPath$
iPath = "F:\Documents\Мои программы\Мои повседневные\Договора(архив)\" ' конкретный адрес для сохранения нового файла
Application.ScreenUpdating = False
Application.DisplayAlerts = False
List = ActiveSheet.Name
Sheets(List).Copy
Sheets(List).UsedRange.Value = Sheets(List).UsedRange.Value
Sheets(List).Buttons.Delete 'Удаляем кнопки
'Sheets(List).DrawingObjects.Delete 'Удаляем все элементы
ActiveWorkbook.SaveAs "F:\Documents\Мои программы\Мои повседневные\Договора(архив)" & "\" _
& Range("E3") & " № " & Range("A1") & " " & DateValue(Now) & ".xlsx", FileFormat:=51 '& ".xls"
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Готово!"
End Sub
[/vba]