我有从单元格 A1 到 A20 的值。我希望Vlookup
他们每个人都从关闭的 Excel 文件中获取相应的值。我找到了一些可行的方法,但我不想打开任何文件,即使它保持隐藏状态,也不想Vlookup
在任何单元格中写入公式。
我试过Application.WorksheetFunction.VLookup
和ExecuteExcel4Macro
方法。
1 - 这是一个工作示例:ExecuteExcel4Macro to get value from closed workbook,但我无法将其更改为使用Vlookup
.
wbPath = "c:\users\fatihmi\Desktop\"
wbName = "Ornek.xlsx"
wsName = "Sheet1"
MsgBox ExecuteExcel4Macro("VLOOKUP(" & "testString" & ";" & "'" & wbPath & "[" & wbName & "]" & wsName & "'!$C:$E;3;FALSE)")
2 - 我不知道如何引用或使用已关闭的文档Application.WorksheetFunction.VLookup
。
Dim wk As Workbooks
Set wk = "c:\users\fatihmi\Desktop\Ornek.xlsx"
Dim ws As Worksheet
Set ws = wk.Sheets("Sheet1")
Dim wr As Range
Set wr = ws.Range("C:E")
result = Application.WorksheetFunction.VLookup("testString", wr, 3, False)
MsgBox result
有可能获得范围InputBox
,但我不知道如何使用原始范围数据作为代码Application.WorksheetFunction.VLookup
。
Application.InputBox(prompt:="Enter range", Type:=8)