使用不同的数据子集创建工作簿的多个副本

问题描述 投票:0回答:1

我有一个包含主数据的工作簿。我需要将主数据的副本创建为具有不同数据集的多个工作簿。由于文件具有链接到工作簿中其他工作表的数据验证,因此复制工作表中的内容不起作用。

Set SourceWorkBK = Workbooks.Open(Path_SourceWorkBK)<br>
Set NewWorKBK = SourceWorkBK

我对NewWorKBK所做的任何改变都会影响SourceWorkBK我需要在将一些数据删除到SourceWorkBK之后制作NewWorKBK的新副本,而不会影响SourceWorkBK

excel vba
1个回答
0
投票

您的代码创建了两个变量并将它们指向同一个对象。您要做的是以不同的名称保存工作簿,然后开始删除数据

Set SourceWorkBK = Workbooks.Open(Path_SourceWorkBK)
SourceWorkBK.SaveAs SourceWorkBK.Path & "fred.xls"

将在同一文件夹中以名称fred创建SourceWorkBK的副本。

© www.soinside.com 2019 - 2024. All rights reserved.