Удаление ссылки из скопированного листа

Question

То, что я хочу сделать

Я хочу код в моей книге (wbDestination), который открывает еще одну книгу (wbBosOriginal) и копирует весь лист в качестве значений (wbBosOriginal имеет много кода в нем, в модулях и в рабочем листе, о которых идет речь, и я не хочу этого кода, потому что он ссылается на материал в wbB, который не существует в wbDestination). У меня возникли большие проблемы при вставке в качестве значений, поскольку они не будут вставлять скрытые столбцы и строки. Поэтому я решил импортировать весь лист вместо этого.

То, что я пытался и что случилось с ним

Вот блок кода, который я использовал, чтобы скопировать лист в книге назначения, в последней позиции индекса. Проблема в том, что некоторые ссылки все еще существуют для старой книги (формулы, списки проверки, условное форматирование). Я удалил все эти ссылки, но STILL, когда я вставляю лист успешно, сохраняю и снова открываю, у меня есть ошибка, говорящая, что какой-то контент не читается. Я считаю, что есть еще некоторые элементы, связанные со старой книгой.

Set wbBosOriginal = Workbooks.Open(strChosenPath, ReadOnly:=True) 
With wbBosOriginal.Sheets("BOS") 
     .Visible = True 

     'Pastes the ws in last position in wbDestination 
     .Copy after:=wbDestination.Sheets(wbDestination.Worksheets.Count) 

     Set wsNewBos = Worksheets(Worksheets.Count) 

     'Deletes VBA code in the copied sheet 
     ThisWorkbook.VBProject.VBComponents.Item(wsNewBos.CodeName).CodeModule.DeleteLines 1, _ 
      ThisWorkbook.VBProject.VBComponents.Item(wsNewBos.CodeName).CodeModule.CountOfLines 

    End With 

Рабочий лист успешно вставлен без кода в нем со всем остальным, что было ранее. Затем я удаляю все формулы, условное форматирование и списки проверки. Даже после их удаления, я все равно получаю сообщение об ошибке при открытии книги.

Мой вопрос

Помимо условного форматирования, списки проверки, VBA кода и формул, связывающих рабочий лист, который был наклеен на новую книгу, что другие элементы могут вызвать книгу из отверстия в ремонтном режиме каждый раз, когда из-за существующих ссылок на старую книгу?

Если мой вопрос не ясен, прокомментируйте, и я уточню.

Answer 1

Если возникшая у вас проблема вызвана попыткой избежать скрытых столбцов и строк, не допускающих pastevalues, почему бы не отобразить строки и столбцы, а затем скопировать только значения в новую книгу?

Просто пройдитесь по каждому из листов в оригинальной книге и используйте метод .UsedRange.Hidden = False. Насколько мне известно, это должно показать каждую ячейку на листе и позволить вам выполнять оригинальные вызовы pastevalues.

Answer 2

Работа с VBE выглядит немного тяжело. Если ваш код манипулирует несколькими книгами, я бы поместил код в надстройку и не имел его в какой-либо книге. (Технически * .xlam addins - это книги, но когда я говорю «рабочая тетрадь», я имею в виду нормальные * .xls, * .xlsx, * .xlsm и т. Д.)

При этом, если вы просто копируете значения ячеек (которые могут быть формулами) между разными книгами, у вас не должно быть никаких зависимостей, кроме ссылок на ячейки, названных диапазонов и пользовательских функций в исходной книге. Я бы удостоверился, что их нет. Также сообщайте, как вы гарантируете, что ваши формулы не имеют сломанных ссылок.

Answer 3

Это работает быстро и гладко (это труднее удалить все данные IMO):

Sub tests() 
    Dim AllRange As Range: Set AllRange = ActiveSheet.UsedRange 
    Dim ItemRange As Range 
    Dim myWbDestination As Workbook: Set myWbDestination = ThisWorkbook 
    Dim SheetDestination As String: SheetDestination = ("Sheet2") 
    For Each ItemRange In AllRange 
    With myWbDestination.Sheets(SheetDestination) 
    .Range(ItemRange.Address) = ItemRange.Value 
    End With 
    Next ItemRange 
End Sub 

режим ремонта может быть вызвана многими факторами, Вы должны были бы разместить код вы получаете, чтобы искать объяснение, это было бы похоже на вопрос, почему vba может сломаться.