VBA Vlookup 文件名

Question

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

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 中。我知道这会导致问题，但我不知道如何解决它。
文件名看起来像“NSC 06-03-15.xlsm”，我不能只输入它，因为日期每周都会改变。

有什么解决办法吗？

谢谢你。

编辑:此工作表已打开。

Answer 1

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

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