Question

我有一个宏从一个特定的Excel电子表格执行VLOOKUP，它当前硬编码到宏中。我想知道是否有办法让它可以改变特定的Excel电子表格（即提示我选择电子表格，然后VLOOKUP使用新的电子表格而不是硬编码的电子表格）？

以下是显示硬编码文件的代码的一部分：

ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-11],'[Z401 Toyota 25 Nov 16.xlsx]MPF_D_PRI_RSK_20161122_092440_W'!C9:C10,2,0)"

我希望那里的文件名可以互换。这可能以某种方式通过变量吗？

提前致谢。

Answer 1

Dim fName As String

fName = "Z401 Toyota 25 Nov 16.xlsx"

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-11],'[" & fName & _
                          "]MPF_D_PRI_RSK_20161122_092440_W'!C9:C10,2,0)"

能够在VLOOKUP宏中更改电子表格

1 个答案: