Сохранение нового файла Excel в каталоге файлов, указанном в ячейке

Question

У меня есть код, который копирует данные из одной основной рабочей книги и вставляет их в новую рабочую таблицу.Я хочу, чтобы код сохранил этот новый файл Excel в определенном каталоге, указанном в ячейке на странице.Я сталкиваюсь с «Ошибка во время выполнения« 1004 »» и не уверен в обходной путь.У меня есть код ниже, который показывает, что у меня есть в настоящее время.Данные в ячейке A11: C:\Users\MY.NAME\Desktop\Data.xls

 Dim Source2, StrFile2 As String

    Source = Workbooks("Main Workbook").Sheets("Directory Location").Range("A11").Value2
    StrFile = Dir(Source)

ActiveWorkbook.SaveAs Filename:=Source2 & StrFile2

Answer 1

Это не позволило бы мне задать уточняющий вопрос. Если вы просто пытаетесь скопировать книгу в то место, которое находится в ячейке A11, это работает для меня. Обязательно измените расширение в ячейке A11 на xlsm

Sub fff()
    Dim Source2, StrFile2 As String
    Source2 = Range("A11").Value
    ActiveWorkbook.SaveAs Filename:=Source2
End Sub