Как добавить имя файла в ячейку?

#excel #vba

#excel #vba

Вопрос:

Я пытаюсь ввести имя файла для поиска сведений об учетной записи в списке файлов, добавить их в свой активный файл, а затем удалить, очистить ячейку с именем файла.

Я нашел эту формулу, которая работает при вводе в Excel.

В Excel:

 =SUBSTITUTE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),"[","")
 

В VBA:

 ActiveCell.FormulaR1C1 = "=Substitute(Left(CELL(""filename"",R1C1),Find(""]"",CELL(""filename"",R1C1))-1),""["","")"
 

Ошибка VBA:

Ошибка времени выполнения ‘1004’:
ошибка, определенная приложением или объектом

Комментарии:

1. "=Substitute(Left(CELL(""filename"",R1C1),Find(""]"",CELL(""filename"",R1C1))-1),""["","""")" — вам нужно удвоить последний набор двойных кавычек.

2. О, большое спасибо — я мог бы смотреть на это весь день и не видеть этого