Копирование/Вставка из других книг

Question

Я написал код, чтобы скопировать и вставить в мою книгу используемые диапазоны из других книг. На моем компьютере это работает, но когда я посылаю кому-либо, процесс пасты приводит к ошибке:

"Это изображение в настоящее время не отображается."

текущей версии, я использовал xlPasteAll:

Workbooks(fl.Name).Worksheets(sheetindex).Range("A2:P" & Lastrow).Copy 
Workbooks(fl.Name).Close 
Worksheets(sheetindex).Activate 
ActiveSheet.Range(Cells(startrow,1),Cells(rangeCount,16)).PasteSpecial xlPasteAll 

Answer 1

Вы можете посмотреть на этой KB-Article. В нем описывается ошибка, возникающая при обращении с другими книгами при копировании листа или диапазона в другую книгу.

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

KB-Article/Hoftix удалось исправить нашу проблему - это также объяснит, почему оно работает на вашей рабочей станции, а не где-то в другом месте. (Разные офисные патчи ...)

Answer 2

Вы закрывающий лист после копирования значения. использовать команду включения после вставки значения

Sub test() 

    Workbooks(fl.Name).Worksheets(sheetindex).Range("A2:P" & Lastrow).Copy 
    Worksheets(sheetindex).Activate 
    ActiveSheet.Range(Cells(startrow, 1), Cells(rangeCount, 16)).PasteSpecial xlPasteAll 

    Application.CutCopyMode = False 
    Application.CutCopyMode = True 
    Workbooks(fl.Name).Close 
End Sub