Need to "Reconnect" all Excel Lists in a file from Sharepoint due to 2013 Migration - All URLs changed.

Question

Hi,
I have a lot of excel files with lists that come from Sharepoint.
When we upgrade from Sharepoint 2010 to 2013, all our URLs are chaning since were going to single farm.
When I ran some tests, the excel files in the 2013 Sharepoint site all point to the 2010 Sharepoint lists.
Is there a way to go through all the lists in an excel file and somehow point them to the new Sharepoint Collection?
Thanks!
Mike

Answer 1

Thanks for the advice.
Fortunately I was finally able to come up with a home-grown solution so I'll post here in case someone else needs it.  The code has some extras from my particular application so I just set the basic required code to
bold italics.
Sub Replace_Data_Connection_URLs()
Set wb = ActiveWorkbook
Dim i
Dim FullURL1, FullURL2
Dim didChange
Dim m
Dim arrProt() As Variant    'Just an array I used while checking for sheet protection.
                                    '  >>>>>>>>>  
Sheets need to be unprotected first.
Dim arrConns() As Variant  'Just an array with all the connections and result details.
m = MsgBox("Updating Links in this file: " & Chr(10) & wb.Name, vbOKOnly)
Dim c
ReDim arrConns(0 To 100, 1 To 100)
arrConns(0, 1) = "Connection Name"
arrConns(0, 2) = "Result"
arrConns(0, 3) = "OldURL"
arrConns(0, 4) = "NewURL"
arrProt = Check_Sheet_Status(wb)
c = wb.Connections.Count
If c = 0 Then
    GoTo closeSub:
ElseIf arrProt(0, 3) > 0 Then
'Workbook has protected sheets.  Need to just unlock all for now:
    arrProt = Unprotect_All_Sheets(wb)
End If
m = Empty
For i = 1 To c  'Each conn In wb.Connections
    With wb.Connections(i).OLEDBConnection
        txt = .CommandText
        Debug.Print "Original Connection:  "; txt
        FullURL1 = GetOldURL(txt)
        txt = Replace(txt, oldURL, newURL)
        Debug.Print "New Connection:  " & txt
        FullURL2 = GetOldURL(txt)
        arrConns((i - 1) * 3 + 1, 1) = wb.Connections(i).Name
        arrConns((i - 1) * 3 + 2, 3) = FullURL1 & " >> " & FullURL2
        arrConns((i - 1) * 3 + 3, 3) = Empty
        If FullURL1 <> FullURL2 Then
            didChange = "Yes"
            Debug.Print "Changed: " & FullURL1 & " to " & FullURL2
            m = m & wb.Connections(i).Name & Chr(10)
'            m = MsgBox("Updating Links in these lists: " & Chr(10) & m, vbOKOnly)
            .CommandText = txt
            .Refresh
            arrConns((i - 1) * 3 + 1, 2) = "Changed"
        Else
            didChange = "No"
            Debug.Print "DID NOT Change: " & FullURL1 & " to " & newURL
'            m = MsgBox("DID NOT Change: " & FullURL1 & " to " & newURL, vbOKOnly)
            arrConns((i - 1) * 3 + 1, 2) = "NO Change"
        End If
    End With
Next i
closeSub:
Set sht = Nothing
Set wb = Nothing
End Sub