主题：EXCEL自动更新表

如果报错，自己检查一下

1、aa1的表名写错了；

2、msgbox弹出看一下i的值，看哪一个错了

什么意思

你是说修改公式？那你就得每个单元格每个单元格的改。

给你说个窍门吧：1、你在excel里面录制一段宏；2、拷贝代码出来改成foxtable的vba的代码，就可以用了。

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 path As String = ws.cells(2,2).Formula.split("]")(0).replace("=", "").replace("[","").replace("'", "")

wb.ChangeLink(Name:= _
        path, NewName:= _
        "C:\Documents and Settings\Administrator\My Documents\Book1.xls", Type:= _
        MSExcel.XlLinkType.xlLinkTypeExcelLinks)

App.Visible = True