Создание нескольких копий рабочей книги с различным подмножеством данных

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"

создаст копию SourceWorkBK в той же папке под именем fred.