excel - 用于复制包含从源工作簿到目标工作簿的命名范围的工作表的 VBA 代码

Question

我有 2 本作业簿。源工作簿和目标工作簿。它们完全相同，除了 1 个工作表名称相同但数据不同(两者都包含大约 30 张工作表)。我想要的是将其余相同的工作表从源工作簿复制到目标工作簿，留下 1 个延迟数据的工作表。

基本上，目标工作簿中存在的相同工作表应替换为源工作簿中的工作表。工作表包含公式和命名范围。我成功地编写了 VBA 代码来复制工作表。但由于命名范围具有工作簿范围。命名范围仍然引用源工作簿中的位置。所以我得到了 2 个同名的命名范围。像这样的东西:

'The one already present in the destination workbook (from the worksheet which was replaced)
Name=VaccStart , Refers To =Sheet2!$A$2 
'The one due to the copied worksheet.
Name=VaccStart , Refers To =[C:\Users\.....\Source.xls]Sheet2!$A$2 

我希望命名范围在复制时引用目标工作簿而不是源工作簿。由于两个工作簿中的所有工作表都是相同的，我只是替换它们。

Answer 1

从源工作簿移动到目标工作簿时避免意外创建链接的一种简单方法是将目标工作簿从源重新链接到其自身

xl2010截图

• 编辑...链接
• “更改源”并选择当前文件作为新源