Оно, конечно, и в Excel есть меню Edit -> Replace, но здесь-то документов много, и лучше попробовать сделать замену программно. Ну, например, скриптом - что-то вроде этого:
Код
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshFS = WScript.CreateObject("Scripting.FileSystemObject")
ToReplace = "\\server1" 'строка с именем старого сервера, которую мы заменяем
ReplaceWith = "\\server2" 'на строку с именем нового
DirName = "\\server2\path" 'путь, где лежат эти 100 файлов
Set fldr = WshFs.GetFolder(DirName)
Set fcoll = fldr.Files
Set XlApp = CreateObject("Excel.Application")
XlApp.DisplayAlerts = False
For Each f in fcoll
XlApp.Workbooks.Open(DirName + "\" + f.name)
Set XlWb = XlApp.Workbooks(1)
For Each XlSheet in XlWb.Worksheets
Set XlRange = XlSheet.UsedRange 'получаем объект Range - используемый диапазон
Res = XlRange.Replace(ToReplace,ReplaceWith,,,False) 'последний False - это значит не учитывать
'регистр символов, если надо, поменяешь на True
Next
XlWb.Save
XlWb.Close
Next
Set XlApp = Nothing
Set WshShell = Nothing
Set WshFS = Nothing
Я долго учился на чужих ошибках, и теперь мои собственные ошибки не хуже, чем у других.