繁体   English   中英

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

[英]VBA Copy worksheet (with variable name) from another workbook to the current workbook and rename it in the current workbook

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

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

sub move_external_sheet () ' On Error 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   

结束子

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM