请教各位大侠vlookup跨工作簿引用在VBA中代码怎么写

spin2016

请教各位大侠，vlookup跨工作簿引用在vba中代码怎么写

蓝桥玄霜

要学会用VBA方法，不要再用Vloopup这种函数了。
否则建议去函数版求助。

leoparddi

1. Sub QWE()
   
2. 
   
3. Set MyRange = Workbooks("工作簿1.xlsx").Sheets("数据").Range("A:C")
   
4.    
   
5.     LRow1 = Range("A65536").End(3).Row
   
6. 
   
7.     For i = 2 To 3
   
8.         For n = 2 To LRow1
   
9.             Cells(n, i) = WorksheetFunction.VLookup(Cells(n, 1) , MyRange, i, 0)
   
10.         Next
    
11.     Next
    
12.    
    
13. End Sub
    

复制代码

spin2016

蓝桥玄霜 发表于 2016-7-16 10:07
要学会用VBA方法，不要再用Vloopup这种函数了。
否则建议去函数版求助。

老师，我参考了论坛里也做了一段代码
Sub 单个查询()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\工作簿.xlsx"
    SQL = "select b." & Range("d1") & " from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[B$] a left join [A$] b on a.日期=b.日期"
    [d2].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub

这段可以成功运行,但是两个工作簿内查询的字段必须是没有空格，比如D1单元格的内容是"主题"这个两字，这两个字中间不能有空格，否则就运行错误。另外当查询的字段很规范时，偶尔会出现：“运行时错误：‘-2147217904（80040e10)':至少一个参数没有被指定。”不知道什么原因。
而且存数据的工作簿是连接其他软件，每日更新数据的，数据有几万条，查询的字段更新时会被改，所以每次更新后去改查询字段让其规范，这不现实。
用vlookup函数是可以做到跨工作簿准确的引用数据，不会发生错误，但当存数据的工作簿记录的数据量很大时，用vlookup引用到本工作簿，本工作簿会变得很大，打开本工作簿时运行会很慢。所以我想到在VBA中用vlookup公式引用。

spin2016

leoparddi 发表于 2016-7-16 10:20

老师，两个工作簿都打开时运行成功，但在不打开工作簿1的情况下运行后显示“运行时错误'9': 下标越界”，请教怎么解决？

leoparddi

spin2016 发表于 2016-7-16 11:53
老师，两个工作簿都打开时运行成功，但在不打开工作簿1的情况下运行后显示“运行时错误'9': 下标越界”， ...

1. Sub QWE()
   
2. Set MyRange = GetObject(ThisWorkbook.Path & "\工作簿1.xlsx").Sheets("数据").Range("A:C")
   
3.     LRow1 = Range("A65536").End(3).Row
   
4.     For i = 2 To 3
   
5.         For n = 2 To LRow1
   
6.             Cells(n, i) = WorksheetFunction.VLookup(Cells(n, 1), MyRange, i, 0)
   
7.         Next
   
8.     Next
   
9.     Workbooks("工作簿1.xlsx").Close
   
10. End Sub
    

复制代码

俩文件必须再同一路径内

spin2016

leoparddi 发表于 2016-7-16 16:05
俩文件必须再同一路径内

这正是我想要达到的效果，谢谢老师！

LMY123

SQL跨工作薄实现VLOOKUP,自动引用字段名