主题：EXCEL自动更新表

 请把例子发上来

MessageBox.Show( Sheet1.Name & "导入报表日期不符!")

MessageBox.Show(FileSys.GetName(file) & "导入报表日期不符!")

 一个是取表名，一个是取整个路径

 你想说什么？直接写啊

 

 Dim Wb As MSExcel.Workbook = App.WorkBooks.open(f1)

自动更新是什么意思啊

app.AutoFormatAsYouTypeReplaceHyperlinks = True
app.AskToUpdateLinks = True

 你这句代码是想做什么？

 

什么意思啊？公式本来不是有效的么？

 根本就不理解你什么意思。要不你就做个简单的例子发上来。