VBA的Cells.select复制粘贴不会连续的图像
我有一些数据和一些图片。 我有一些代码将数据和图像从一个工作簿中的表单复制到另一个工作簿中的工作表。
这个问题：如果它会带来图像，它似乎是被打或失的。 有时他们复制，有时他们不跆拳道？
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).Activate wb.Sheets(form).Cells.Select Selection.Copy objwbk.Activate ws.Range("A1").Select ActiveSheet.Paste
将减less到：
Application.CopyObjectsWithCells = True wb.Sheets(form).Cells.Copy ws.Range("A1")
我find了答案。 我正在创build一本新书，并粘贴到新书，但它在兼容模式解决下面
'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
晚了（好..很晚..）答案，但我今天有同样的问题。
我试图以只读模式打开源工作簿，它适用于我™。
所以，当你设置你的objwbk（像set objwbk = open（“c：\ path \ wbk.xls”，true）），把第三个参数设置为true。