主题：链接更.新

 录制宏，然后在foxtable打开，然后执行类似宏的那些代码。

参考vba知识点，代码基本一样，遇到报错的地方，比如 xlCellTypeFormulas 的值，你可以在excel那里msgbox xlCellTypeFormulas 弹出是什么数字，然后直接用

http://www.foxtable.com/webhelp/scr/2121.htm

打开excel，循环每一个单元格，一个一个地置换，看你13楼代码。

无语，你问过啊ChangeLink

激活公式，有多个表，就循环多个表啊。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Formula = rg.Formula
app.visible = True
'app.quit

循环所有的链接，然后修改

参考vba的代码，如果需要改成foxtable，对应的修改。

Dim aLinks
aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
        MsgBox aLinks(i)
    Next i
End If
ActiveWorkbook.ChangeLink aLinks(1), "Excel.Sheet.12|D:\test.xlsx!'", xlLinkTypeOLELinks

自己学一下 https://msdn.microsoft.com/zh-cn/library/office/ff839916