Question

我正在运行一些代码，这些代码在击键时将打开另一个工作簿，并将数据从原始工作簿复制到表中。当原始工作簿名称相同时，此方法起作用。但是，带有初始代码的工作簿将具有不同的名称。当我尝试使用其他文件名运行代码时，出现文件浏览器弹出窗口，这不是我想要的。

我试图为工作簿名称创建一个变量，并使用该变量，但是这没有用。

下面是我使用的代码，到目前为止尚未成功。

'Get the name and path of this file name

 Dim route As String
    Dim book As String

    route = ThisWorkbook.FullName
    book = ActiveWorkbook.Name


'open the workbook to save the data

'make a new line item which works

'Reference Requester where "book" is the variable above which is not working

    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=[book]ARF!R6C4"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

我要代码执行的操作是从原始文件中复制数据，并通过取出行项目然后填充数据将其保存到中央数据库中。然后，避免所有数据引用我复制的最新文件，并避免使用“特殊格式”作为数据值。

Answer 1

您将book用作变量，但是在参考中，您将其用作String。将其更改为以下内容：

ActiveCell.FormulaR1C1 = "=[" & book & "]ARF!R6C4"

引用具有不同文件名的工作簿

1 个答案: