excel VBA Vlookup宏

vwkv1x7d 于 2023-06-07 发布在其他

关注(0)|答案(1)|浏览(160)

我尝试使用Vlookup宏，其中查找值位于已关闭工作簿的单元格C18中。我尝试创建如下所示的代码，但我收到的只是一条消息：
编译错误：

Expected end of statement

你能帮忙吗？

Sub Vlookup()

Dim myRng
Set myRng = Range("Ledger_Account_2")
Range("F15") = "=VLookup('C:\Users\fbdXXXX\Documents\[PRE500KPC90 - BBB Monthly Reclass - 042023.xlsm]Journal Entry'!C18,Range("MyRng,")2,0)

End Sub

excel

来源：https://stackoverflow.com/questions/76418463/vba-vlookup-macro

1条答案

按热度按时间

kqlmhetl1#

编写`VLOOKUP`公式

请注意，只有在源文件关闭时，此操作才有效。

Sub Vlookup()

    Const SRC_FOLDER As String = "C:\Users\fbdXXXX\Documents\"
    Const SRC_FILE As String = "PRE500KPC90 - BBB Monthly Reclass - 042023.xlsm"
    Const SRC_SHEET As String = "Journal Entry"
    Const SRC_CELL As String = "C18"

    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
            
    Dim myRng As Range: Set myRng = ws.Range("Ledger_Account_2")
    
    Dim Formula As String: Formula = "=VLOOKUP('" _
        & SRC_FOLDER & "[" & SRC_FILE & "]" & SRC_SHEET _
        & "'!" & SRC_CELL & "," & myRng.Address & ",2,0)"
    
    'Debug.Print Formula
    
    ws.Range("F15").Formula = Formula

End Sub

赞(0）回复(0）举报 2023-06-07

我来回答

excel VBA Vlookup宏

1条答案

编写`VLOOKUP`公式

相关问题

热门标签

最新问答

excel VBA Vlookup宏

1条答案

编写VLOOKUP公式

相关问题

热门标签

最新问答

编写`VLOOKUP`公式