'和当前打开的EXCEL文件放在同一个目录就可以Sub 更新() Sheet1.[b14] = "=VLOOKUP(D14,[原材料检验报告.xls]Cement!$A$2:$AE$1000,31,FALSE)"End Sub
只要'F:\表格设计\[原材料检验报告.xls]Cement'!这个文件名不变且31对应的是你想要的数据而且范围不会超过A2--AE1000就可以