批处理之家 - Powered by Discuz! Board

标题: [已解决]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://bathome.net./)