Question

我正在尝试在Vlookup中包含Dim。

Dim filename As String
filename = Format(DateAdd("d", -6, Now()), "mm-dd-yy")
filename = "NSC " & filename & ".xlsm"

For Each ws In ActiveWorkbook.Worksheets
        ws.Activate

        ActiveCell.FormulaR1C1 = _
            "=VLOOKUP(RC[-2],'[" & filename & "]" & ws & "'!R8C4:R500C6,3,FALSE)"
Next

我的错误来自vlookup中的 filename 。我知道这会引起问题，但我不知道如何解决它。文件名看起来像“NSC 06-03-15.xlsm”，我不能只在每周更改日期时输入。

任何解决方案？

谢谢。

编辑：此工作表已打开。

Answer 1

您需要使用工作表的名称，而不是对象本身。

ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-2],'[" & filename & "]" & ws.Name & "'!R8C4:R500C6,3,FALSE)"

VBA Vlookup是一个文件名

1 个答案: