VBA Cells.select скопировать пасту, не доставляя изображения по согласованному

У меня есть некоторые данные и некоторые изображения на листе. У меня есть код, который копирует данные & изображений с этого листа в одной книге на лист в другой книге.VBA Cells.select скопировать пасту, не доставляя изображения по согласованному

Проблема: кажется, что она попала или пропустила, если она принесет изображения. Иногда они копируют, иногда они не WTF?

  wb.Sheets(form).Activate 
      wb.Sheets(form).Cells.Select 
      Selection.Copy 
      objwbk.Activate 
      ws.Range("A1").Select 
      ActiveSheet.Paste

источник

2015-09-01 Johnson Jason

Все еще не работает, если кто-то хочет получить кредит за помощь в этом. –

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

Набор

Application.CopyObjectsWithCells = True

Перед копированием

BTW код

wb.Sheets(form).Activate 
wb.Sheets(form).Cells.Select 
Selection.Copy 
objwbk.Activate 
ws.Range("A1").Select 
ActiveSheet.Paste

сведет к:

Application.CopyObjectsWithCells = True 
wb.Sheets(form).Cells.Copy ws.Range("A1")

источник

2015-09-01 23:34:39

добавил вашу строку. Объекты, похоже, копируются с моего компьютера, но когда я запускаю макрос с компьютера моего коллеги, объекты не копируются. :( –

Имеет ли ваша книга –

Не думаю, что это просто новая книга с новым листом, созданным, и этот материал вклеился в него. –

Я нашел ответ. Я создаю новую книгу и приклеивание к новой книге, но это в режиме совместимости решить ниже

'Remember the users setting which currently is 97-2003 file format 
SaveFormat = Application.DefaultSaveFormat 
'Set it to the 2007-2010 file format xlsm 
Application.DefaultSaveFormat = 52 

'MAKE NEW BOOK HERE 

'Set DefaultSaveFormat back to the users setting 
Application.DefaultSaveFormat = SaveFormat

источник

2015-09-02 20:27:33

конца (ки .. очень поздно ..) ответ, но у меня есть такая же проблема сегодня.

Я пытаюсь открыть исходную книгу в режиме только для чтения, и она работает для меня.

Итак, когда вы установили свой objwbk (что-то вроде set objwbk = open ("c: \ path \ wbk.xls", true)), установите третий аргумент в true.

источник

2017-08-08 14:34:12 Bla2

VBA Cells.select скопировать пасту, не доставляя изображения по согласованному

ответ

Смежные вопросы