主题：EXCEL自动更新表

1、打开一个表格；

 

2、对单元格B2(2,2)的链接进行替换；

 

3、替换成其它的*.xls文件

 

每个单元格的链接都是不同的，就必须这样替换；相同的连接，只需要替换一次。

 这样写

 

app.AskToUpdateLinks = False     '关闭程序询问更新链接提示
app.DisplayAlerts = False

 参考 http://www.foxtable.com/help/topics/0324.htm

 

 设置控件的属性->格式符号

 

 http://www.foxtable.com/help/topics/0361.htm

 

 遍历全部单元格，看是否存在对应的公式，没有存在，就是已经弄好的。

 

 或者是，已经弄好的那些，你在表的某一个单元格插入一个标志。

If Sheet1(1,0).Value <> nothing AndAlso Sheet1(1,0).Value = vars("cc")Then

If Sheet1(1,0).Text <> "0000年00月00日" AndAlso Sheet1(1,0).Value = vars("cc")Then   不行，就请上传例子

 或许你一开始就理解错了。

 

 你加入代码

 

msgbox(Sheet1(1,0).Value)

msgbox(vars("cc"))

 

 不会改，就请做个例子发上来