VBA,每天更新到其他工作簿的链接

我对VBA编程非常新,有一个问题。

我有一个名为stream动性预测的基础文件,其中填写其他文档中的数据。我收集数据的文档每天更新,因此名称中的date每天都在变化。

名称是“(date,”YYMMDD“)和”SE_Laizy.xlsx“,所以一个例子是160229SE_Laizy.xlsx

当我收集数据时,我使用索引匹配公式。 我的问题是试图通过使用date值更新公式中的链接。

目前我这样写,

ActiveCell.Range((Cells(1, 1)), (Cells(1, 1))).FormulaR1C1 = _ "=INDEX('[" & Format(Date, "YYMMDD") & "SE_Laizy.xlsx"]Visa'!R1:R1048576,MATCH(R2C,'[" & Format(Date, "YYMMDD") & "SE_Laizy.xlsx"]Visa'!C1,0),MATCH(""Ub perioden"",'[" & Format(Date, "YYMMDD") & "SE_Laizy.xlsx"]Visa'!R2,0))" 

我从这里得到的是一个NA。 任何帮助,将不胜感激!

我已经添加了父级工作表参考,并将INDEX和MATCHfunction分解为三个主要部分。

 With Worksheets("Sheet2") .Cells(1, 1).FormulaR1C1 = _ "=INDEX('[" & Format(Date, "YYMMDD") & "SE_Laizy.xlsx]Visa'!C1:C16384, " & _ "MATCH(R2C,'[" & Format(Date, "YYMMDD") & "SE_Laizy.xlsx]Visa'!C1, 0), " & _ "MATCH(""Ub perioden"", '[" & Format(Date, "YYMMDD") & "SE_Laizy.xlsx]Visa'!R2, 0))" End With 

如上所述,外部工作簿名称中存在一些错位的引号。 我不知道如何处理你的Range对象定义。 对于所有的意图和目的,所提供的只是解决了[A1]。