求助：VBA中怎样跨表引用？

lan8930

下面是一句代码。意思是：在VBA中使用VLOOKUP函数进行查找。找出本工作表中A4：C6与A13相同的值的C列。

sub test()

[C13] = Application.WorksheetFunction.VLookup(Range("A13"), Range("A4:C6"), 3, 1)

end sub

谁帮帮我改一下代码，我要的是跨表查询。比如说，要查询D：\合同.xls的sheet1工作表中A4：C6与当前工作表的A13相同的值的C列。

即只要告诉我，怎样在Range("A4:C6"),前面加路径就可以了。

谢谢了！

爱疯

Sub test()
    Dim x   '待查的值
    Dim y   '结果
    
    x = [A13]
    Workbooks.Open ("d:\合同.xls") '打开要查询的工作簿
    Sheets("sheet1").Select
    y = Application.WorksheetFunction.VLookup(x, Range("A4:C6"), 3, 1)  '查询
    Workbooks("合同.xls").Close '关闭
    [C13] = y
    
End Sub

直接加路径不知道可不可以？但我觉得不是必须的。楼主44看，这样可以吗

搁浅2008

不打开 是不能查询的 用爱疯的方法试试

xinhuzhuce

谢谢分享！！