Ссылка на книгу с различными именами файлов

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"