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

【问题标题】：VBA Copy worksheet (with variable name) from another workbook to the current workbook and rename it in the current workbookVBA将工作表（带变量名）从另一个工作簿复制到当前工作簿并在当前工作簿中重命名
【发布时间】：2020-03-02 12:29:22
【问题描述】：

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

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

【问题讨论】：

您可能需要某种自定义表单来指定这些文件位置，而这在 StackOverflow 中无法给出答案。
这些信息不足以创建规则。你能发布一些失败的尝试吗？
我真的想通了。这比我做的要简单得多。我稍后会发布它作为任何想要做同样事情的人的答案。

标签： excel vba copy rename worksheet

【解决方案1】：

子 move_external_sheet () ' 出错时继续下一步 ' 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

结束子

【讨论】：