Board logo

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

作者: create    时间: 2016-4-18 22:31     标题: [已解决]VBS如何实现将1.xlsx文件中A1单元格的图片复制到2.xlsx中的A1单元格中去

各位,如图片所示,
使用强大的VBS,
请教如何将excel1中的a1单元格中的图片复制到excel2中a1的单元格中去?
作者: create    时间: 2016-4-19 06:30

本帖最后由 create 于 2016-4-19 06:32 编辑

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

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    时间: 2016-4-19 06:32

使用了objrange_t.pastespecial(-4104)也是如此,只能复制文本到2.xlsx中
作者: create    时间: 2016-4-19 06:35

回复 1# create


    感谢提醒,已经改过来了,
作者: create    时间: 2016-4-20 08:40

本帖最后由 create 于 2016-4-20 08:42 编辑

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2