Как войти, где копия сохранена в диапазоне

Question

Я хотел бы войти в ячейку, в которой была сохранена копия рабочей книги.

Пока у меня есть ее сохранение, но я не могу понять, как ее зарегистрировать

Sub CreateCopy()

Dim specialPath As String
Dim NameOfWorkbook As String
Dim FileName As String

specialPath = DownloadF & Range("HomeDB")

'FileCopy Application.ThisWorkbook.FullName, specialPath


NameOfWorkbook = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))

ActiveWorkbook.SaveCopyAs FileName:=ThisWorkbook.path & "R" & ".xlsm"

End Sub

Я бы хотел, чтобы на данный момент я сохранил тест диапазона вызовов.

Спасибо

Answer 1

Этот подпункт сохранит путь к книге в именованном диапазоне «тест». Это код для версии Mac, поэтому вам может потребоваться изменить определение пути к файлу.

Sub log()
Dim r As Range
Set r = ActiveSheet.Range("A1")
With ThisWorkbook
    .Names.Add "test", r
    r = .Path & "/R" & ".xlsm"
End With
End Sub