将数据从一个工具箱复制到另一个工作站

Question

我有两个工作簿。源工作簿（1）和目标工作簿（2）。 我正在复制所有内容从1到2. 我有下面的代码运行此。 我有一个工作簿的小问题。 我有我的源图书在其中的图片，如下图所示。

我已经在我的代码中包含要复制的列。但我没有得到这些照片。有人可以告诉我如何将这些图片与内容一起复制到我的目的地表单中，并使用下面的代码。

Sub Extract() 
Dim x As Workbook 
Dim y As Workbook 
Dim Val As Variant 
Dim filename As String 
Dim LastCell As Range 
Dim LastRow As Long 
ThisWorkbook.Sheets("2").Range("A4:P1000").ClearContents 
CopyCol = Split("A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P", ",") 
LR = Cells(Rows.Count, 1).End(xlUp).Row 
LC = Cells(1, Columns.Count).End(xlToLeft).Column 
LCell = Selection.SpecialCells(xlCellTypeLastCell).Address 
LCC = Selection.SpecialCells(xlCellTypeLastCell).Column 
LCR = Selection.SpecialCells(xlCellTypeLastCell).Row 
Set y = ThisWorkbook ' set ThisWorkbook object (where this code lies) 
Set x = Workbooks.Open("D:\Jenny\Raw data\Report.xlsx") 
For Count = 0 To UBound(CopyCol) 
Set temp = Range(CopyCol(Count) & "22:" & CopyCol(Count) & LCR) 
If Count = 0 Then 
Set CopyRange = temp 
Else 
Set CopyRange = Union(CopyRange, temp) 
End If 
Next 
CopyRange.Copy 

y.Sheets("2").Range("A4").PasteSpecial 
x.Close 
End Sub 

可能有人建议，我怎么能复制这些图片与内容到目标工作簿。

Answer 1

而不是

y.Sheets("2").Range("A4").PasteSpecial 

尝试

y.Sheets("2").Paste y.Sheets("2").Range("A4")