Excel VBA跨两个工作簿调用VLookup出现语法错误求助

核心语法错误点 #

• VBA调用工作表函数VLOOKUP必须通过WorksheetFunction对象声明，不能直接写VLOOKUP()
• 外部文件的范围引用不符合VBA语法要求，不能直接套用Excel单元格公式里的路径拼接写法，需要先打开目标CSV文件再引用数据范围
• If MusiposAvail = N行存在两处问题：缺少VBA判断语句必须的Then关键字；文本对比值N未加双引号，会被识别为未定义变量
• 未处理VLOOKUP匹配不到SKU的异常场景，会触发运行时中断

修正后可运行代码 #

Option Explicit
Dim ShopifySKU As String
Dim MusiposAvail As String
Dim VariantPolicy As Boolean
' 声明外部CSV对象
Dim dsWorkbook As Workbook
Dim lookupRange As Range

Sub DROPSHIP()
    ' 先打开目标CSV文件，后台运行不显示
    Set dsWorkbook = Workbooks.Open("C:\Users\Administrator\Desktop\CSV FILES FOR DROPSHIPPING\DROPSHIP.CSV", ReadOnly:=True)
    ' 定义VLOOKUP的匹配范围
    Set lookupRange = dsWorkbook.Sheets("DROPSHIP").Range("Q2:R3123")
    
    Range("N2").Select
    Do Until IsEmpty(ActiveCell)
        ShopifySKU = ActiveCell.Value
        ' 加错误处理，匹配不到值的时候返回空
        On Error Resume Next
        MusiposAvail = WorksheetFunction.VLookup(ShopifySKU, lookupRange, 2, False)
        On Error GoTo 0
        
        ' 补全Then关键字，文本N加双引号
        If MusiposAvail = "N" Then
            VariantPolicy = False
        Else
            VariantPolicy = True
        End If
        
        ' 这里可以添加你需要的VariantPolicy后续处理逻辑，原代码中暂未实现该变量的写入操作
        
        ActiveCell.Offset(1, 0).Select
        MusiposAvail = "" ' 清空变量避免上一行结果干扰
    Loop
    
    ' 关闭打开的CSV文件，不保存修改
    dsWorkbook.Close SaveChanges:=False
End Sub

补充说明 #

如果不需要保留打开的CSV窗口，代码已经做了后台打开处理，运行时不会弹出额外窗口。如果你的CSV中DROPSHIP工作表名有变动，同步修改Sheets("DROPSHIP")中的名称即可。

内容的提问来源于stack exchange，提问作者Mglee