Макрос на переименование листа другой книги

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

Макрос на переименование листа другой книги (Макросы/Sub)

ПалычЪ

Дата: Суббота, 05.12.2015, 16:49 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 106

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

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

Excel 2010

Добрый день! Вопрос: Напишите пожалуйста макрос который бы запускался в книге 1 и переименовывал бы название первого листа из другой книги которая лежит в этой же папке что и книга 1 (в этой папке всего две книги всегда) но книга в которой нужно переименовать первый лист всегда будет по разному называться. Пример не прикладываю так как он по сути не требуется...
Спасибо!

Сообщение отредактировал ПалычЪ - Суббота, 05.12.2015, 16:49

Ответить

RAN

Дата: Суббота, 05.12.2015, 19:12 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

Sub Мяв_Халява()
    Dim f$
    f = Dir(ThisWorkbook.Path & "\*")
    Do
        If f <> ThisWorkbook.Name And f <> "" Then
            With Workbooks.Open(ThisWorkbook.Path & "\" & f)
                .Sheets(1).Name = "Халява Сэр": .Save: .Close: Exit Sub
            End With
        End If
        f = Dir()
    Loop
End Sub

[/vba]