VBA将工作表（具有变量名）从另一个工作簿复制到当前工作簿并在当前工作簿中重命名

Question

我一直试图弄清楚这一点，并尝试了几次失败。我试图将唯一的工作表从另一个工作簿复制（最好是移动）到当前工作簿中，并在当前笔记本中将其重命名为“源”。问题是文件不在同一文件夹中，但是两者都将打开。另外，要复制/移动的工作表的名称在每个实例上都不同。

非常感谢您能提供的任何帮助。

Answer 1

Sub move_external_sheet（）'关于错误继续'结果= 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   

结束子