VBAを使用してリンク内の特定のテキストに基づいてExcelのリンクを更新するにはどうすればよいですか？

Question

VBAを使用してリンク内の特定のテキストに基づいてExcelのリンクを更新するにはどうすればよいですか？ オフィスを利用する2016

私はそれぞれの場所に独立したサーバーを持つ40の場所を持っています。

ファイル名はすべて、各場所で同じで、同じフォルダに保存され、場所名のみが異なります。例えば

：

Store 1\Schedules\2017\04_01_17.xlxb 
Store 2\Schedules\2017\04_01_17.xlxb 
Store 3\Schedules\2017\04_01_17.xlxb 

各場所は、各年の週だけでなく、いくつかの前の年のスケジュールを持っています。

問題は、04_01_17週のデータを取得する場合は、リンクを1つずつ編集して、これらのファイルのそれぞれに到達するマスターリキャップファイルを操作する必要があることです。

ファイル全体を有効にする場合は、リンクされたすべてのファイルを1年全体および数年前にプルし、完了するまでに数時間かかることがあります。

私が探していたのは、リンクに含まれているテキストを要求し、一致したすべてのファイルを取得するVBAコードでした。例

"Contains" 
Answer=04_01_17 

については

アドバンス

に感謝

ブラッド

Answer 1

は以下のこれらの2つのサブルーチンは、操作/ファイル内のリンクを表示する方法を示しています。 あなたが探している重要な部分は、ActiveWorkbook.LinkSources(xlExcelLinks)で、リンクのリストで配列を取得し、ActiveWorkbook.ChangeLinkにリンクを変更します。

Sub gen_links() 
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) 
If Not IsEmpty(aLinks) Then 
    For i = 1 To UBound(aLinks) 
     MsgBox "Link " & i & ":" & Chr(13) & aLinks(i) 
    Next i 
End If 
End Sub 

Sub swap_links1() 
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) 
If Not IsEmpty(aLinks) Then 
    For i = 1 To UBound(aLinks) 
    If aLinks(i) = "C:\tests\2017(1)\Test1.xlsx" Then 
     ActiveWorkbook.ChangeLink "C:\tests\2017(1)\Test1.xlsx", "C:\tests\2017(2)\Test2.xlsx", xlExcelLinks 
    End If 
    If aLinks(i) = "C:\tests\2017(2)\Test2.xlsx" Then 
     ActiveWorkbook.ChangeLink "C:\tests\2017(2)\Test2.xlsx", "C:\tests\2017(1)\Test1.xlsx", xlExcelLinks 
    End If 
    MsgBox "Link " & i & ":" & Chr(13) & aLinks(i) 
    Next i 
End If 
End Sub 

ChangeLink documentation
LinkSources documentation

は、あなたはすべての可能なオプションの場合、テストを構築する、またはそれ以上の分別、変数を作成し、IF-ないテストを行うことで、これを利用することができます。例えば。

My_Store_Name = "Store 1" 
My_Year_Name = "2017" 
My_File_Name = "04_01_17" 
My_Test_file = My_Store_Name & "\Schedules\" & My_Year_Name & "\" & My_File_Name & ".xlxb" 
If aLinks(i) <> My_Test_file Then