[已解决]VBS如何实现将1.xlsx文件中A1单元格的图片复制到2.xlsx中的A1单元格中去

create

各位，如图片所示，
使用强大的VBS，
请教如何将excel1中的a1单元格中的图片复制到excel2中a1的单元格中去？

create

我是这样操作的，但是只能复制文本，图片不能复制过去，大家有什么建议？

Const Source = "D:\test_2\1.xlsx"
Const Target = "D:\test_2\2.xlsx"

Set objFSO = CreateObject( "Scripting.FileSystemObject" )  
set oExcel = CreateObject( "Excel.Application" )
oExcel.Visible = false
                oExcel.WorkBooks.Open(Target)
                wscript.sleep 1
                set objsheet_t = oExcel.worksheets(1)
                        objsheet_t.activate
                       
                oExcel.WorkBooks.Open( Source )
                wscript.sleep 1
                set objsheet_s = oExcel.worksheets(1)
                        objsheet_s.activate
                Windows(Source_file).Activate
                        objsheet_s.activate

                        set objrange_s = objsheet_s.range("a1:b2")
                                objrange_s.copy       
                   
                        Windows(Target_file).Activate
                        wscript.sleep 1
                        objsheet_t.activate
                        set objrange_t= objsheet_t.range("a1")
                                 objrange_t.Paste
                        oExcel.Workbooks("1.xlsx").Save               
                        oExcel.Workbooks("2.xlsx").Save

create

使用了objrange_t.pastespecial(-4104)也是如此，只能复制文本到2.xlsx中

create

回复 1# create


    感谢提醒，已经改过来了，

create

需要注意一点：
使用objsheet_t.Paste，轻松解决了该问题。