Szybkie aktualizowanie łącz do zewnętrznych skoroszytów

Ręczne zmienianie każdego łącza poprzez wybór odpowiedniego polecenia jest dość czasochłonne, tym bardziej że okno dialogowe Zmienianie źródła otwiera się w domyślnej ścieżce lokalizacji plików i za każdym razem musimy przechodzić przez kilka folderów, aby dostać się do konkretnego pliku. Wyjaśniamy, jak to szybciej zrobić z wykorzystaniem makra.

Rysunek 1. Budżet główny oparty na danych z innych skoroszytów, zawierających miesięczne budżety poszczególnych komórek organizacyjnych

Aby utworzyć makro zmieniające łącza w skoroszycie:

1. Otwórzmy Edytor Visual Basic za pomocą kombinacji klawiszy lewy [Alt]+[F11].

2. Dodaj moduł standardowy (Insert/Module), w którym umieścimy makro.

3. W oknie kodu, które się pojawi, wpiszmy następujące makro:

Sub ZmieńŁącza()

Dim łącza, łącze As Variant

Dim ścieżka As String

łącza = ActiveWorkbook.LinkSources(xlExcelLinks)

If Not IsEmpty(łącza) Then

For Each łącze In łącza

ścieżka = InputBox("Zmień łącze do pliku: " & łącze, "Zmień łącza", łącze)

If Dir(ścieżka) <> "" Then

ActiveWorkbook.ChangeLink łącze, ścieżka

ElseIf ścieżka <> "" Then

MsgBox "Nie znaleziono takiego pliku"

End If

Next

Else

MsgBox "Nie znaleziono żadnych łączy do innych skoroszytów"

End If

End Sub

4. Zapiszmy kod i zamknijmy Edytor VBA.

Makro można uruchomić w następujący sposób:

1. Wybierzmy polecenie Widok/Makra/Wyświetl makra.

2. Na liście makr wybierzmy makro o nazwie ZmieńŁącza i naciśnijmy przycisk Uruchom.

Dla każdego łącza pojawi się okno ze ścieżką do innego skoroszytu (rysunek 2). Można ją zmienić lub pozostawić bez zmian.

Rysunek 2. Okno dialogowe ze ścieżką do innego skoroszytu, którą można zmienić

Po zmianie wszystkich łączy na pliki z budżetami główny raport będzie pokazywał stan finansów firmy w innym miesiącu.