VBA Скопировать лист (с именем переменной) из другой книги в текущую книгу и переименовать ее в текущей книге

Question

Я пытался выяснить это и сделал несколько неудачных попыток. Я пытаюсь скопировать (желательно просто переместить) единственный лист из другой книги в текущую книгу и переименовать его в «Источник» один раз в текущей записной книжке. Подвох в том, что файлы не находятся в одной папке, но оба будут открыты. Кроме того, имя листа, который нужно скопировать / переместить, меняется в каждом случае.

Я очень ценю любую помощь, которую вы можете оказать.

Answer 1

Sub move_external_sheet () 'При ошибке Resume Next' Result = InputBox ("Как называется вкладка, которую вы хотите переместить?", "Sheet Mover")

Windows(Result & ".xls").Activate

Sheets(Result).Select

Sheets(Result).Move After:=Workbooks("Data Converter.xlsm").Sheets(1)

Worksheets(Result).Name = "Source"

Sheets("Sheet1").Select

     Err.Clear

    On Error GoTo 0   

End Sub