Имя файла с другого листа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Имя файла с другого листа (Макросы/Sub)

ВладимирС

Дата: Пятница, 03.06.2022, 15:10 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

2016

Добрый день!
Прошу подсказать, как взять имя файла с другого листа.
Вот макрос которым давно пользуюсь. Ранее брал имя с 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]

К сообщению приложен файл: __.xlsm (16.8 Kb)

Владимир

Ответить

_Boroda_

Дата: Пятница, 03.06.2022, 15:25 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16901

Репутация: 6613 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А если написать вместо
[vba]

Код

Range("E3")

[/vba]
вот это
[vba]

Код

Sheets("Лист2").Range("D9")

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995