我有一个包含主数据的工作簿。我需要将主数据的副本创建为具有不同数据集的多个工作簿。由于文件具有链接到工作簿中其他工作表的数据验证,因此复制工作表中的内容不起作用。
Set SourceWorkBK = Workbooks.Open(Path_SourceWorkBK)<br>
Set NewWorKBK = SourceWorkBK
我对NewWorKBK
所做的任何改变都会影响SourceWorkBK
我需要在将一些数据删除到SourceWorkBK
之后制作NewWorKBK
的新副本,而不会影响SourceWorkBK
。
您的代码创建了两个变量并将它们指向同一个对象。您要做的是以不同的名称保存工作簿,然后开始删除数据
Set SourceWorkBK = Workbooks.Open(Path_SourceWorkBK)
SourceWorkBK.SaveAs SourceWorkBK.Path & "fred.xls"
将在同一文件夹中以名称fred创建SourceWorkBK的副本。