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

Question

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

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

我对NewWorKBK所做的任何更改都会影响SourceWorkBK 在不影响SourceWorkBK的情况下，将一些数据删除到NewWorKBK之后，我需要制作SourceWorkBK的新副本。

Answer 1

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

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

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