Добрый день, форумчане!
Есть задача заменить в формуле имя файла на другое, например:
В ячейке A1 стоит формула "='C:\123\[блаблабла.xls]Выручка'!$AF$8" по кнопке выбора исходного файла необходимо заменить формулу на "='В:\321\[блаблабла_2.xls]Выручка'!$AF$8"
Пробовал сделать так:
В итоге получается формула ='В:\321\[блаблабла_2.xlsВыручка]блаблабла_2'!$AF$8"
Помогите решить данную проблему
Есть задача заменить в формуле имя файла на другое, например:
В ячейке A1 стоит формула "='C:\123\[блаблабла.xls]Выручка'!$AF$8" по кнопке выбора исходного файла необходимо заменить формулу на "='В:\321\[блаблабла_2.xls]Выручка'!$AF$8"
Пробовал сделать так:
Код |
---|
Dim SourceFile As String SourceFile = Application.GetOpenFilename(, , "Выберите исходный файл") Range("B6").Replace What:="С:\123\[блаблабла.xls]", Replacement:=SourceFile, LookAt:=2 |
Помогите решить данную проблему