For num = 2 To [a65536].End(xlUp).Row Step 1
On Error Resume Next
Cells(num, i) = Application.VLookup(Cells(num, j), "'e:\桌面文件\[销售代表维护.xls]销售代表维护'!$b:$e", 3, 0)
Next
你无法用公式直接调用未打开的表，只要有链接数据的，工作薄都会在打开时提醒你更新
用这样的方法来引用指定的表：
dim awk as string,aws as object,wk as objetct
awk=thisworkbook.name
set aws=activesheet
on error resume next
set wk =workbooks("销售代表维护.xls")
if err then workbooks.open ("e:\...\销售代表维护.xls)
set wk =workbooks("销售代表维护.xls")
aws.cells(num,i)=worksheetfunction.vlookup(aws.cells(num,j),wk.sheets("代表维护").range("b:e"),3,0)
........
用这样的方法来引用指定的表：
dim awk as string,aws as object,wk as objetct
awk=thisworkbook.name
set aws=activesheet
on error resume next
set wk =workbooks("销售代表维护.xls")
if err then workbooks.open ("e:\...\销售代表维护.xls)
set wk =workbooks("销售代表维护.xls")
aws.cells(num,i)=worksheetfunction.vlookup(aws.cells(num,j),wk.sheets("代表维护").range("b:e"),3,0)
........
温馨提示：答案为网友推荐，仅供参考
