Как изменить связи РР с книгой экселя.

Старая форма входа

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

Как изменить связи РР с книгой экселя. (Макросы/Sub)

frukti4ek

Дата: Пятница, 09.10.2015, 11:06 | Сообщение № 1

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

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

Сообщений: 117

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

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

Добрый день!
подскажите может быть есть какой то макрос, который изменит источник данных.

для того что бы переподвязать эксель необходимо каждую связь "изменить источник", в одной РР 50 связей, и таких РР надо сделать 20 шт. может быть есть готовый макрос, который возьмет за источник другую книгу но с идентичными таблицами. меняются только цифры, без изменение диапазонов.

Ответить

miver

Дата: Пятница, 09.10.2015, 13:37 | Сообщение № 2

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

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

Сообщений: 190

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

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

Excel 2010

frukti4ek, Универсального не знаю, но пример изменения всех связей активной книги дам
[vba]

Код

Sub ChangeLinks()
    'Прописываем имя новой книги для связи
    Name = "C:\0422538.xlsx"
    With ActiveWorkbook
        aLinks = .LinkSources(xlExcelLinks)
        If Not IsEmpty(aLinks) Then
            For i = 1 To UBound(aLinks)
                .ChangeLink Name:=aLinks(i), NewName:=Name, Type:=xlExcelLinks
            Next i
            .UpdateLinks = xlUpdateLinksUserSetting
            .RefreshAll
        End If
    End With
End Sub

[/vba]

Сообщение отредактировал miver - Пятница, 09.10.2015, 13:38

Ответить

Как изменить связи РР с книгой экселя. (Макросы/Sub)

Страница 1 из 1
1