VBA V查找文件名

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

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

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

VBA V查找文件名

VBA Vlookup a filename

excel

vba

vlookup