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

Rank: 1

帖子: 6
积分: 16
技术: 0
捐助: 0
注册时间: 2016-4-18

2楼

发表于 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

Rank: 1

帖子: 6
积分: 16
技术: 0
捐助: 0
注册时间: 2016-4-18

3楼

发表于 2016-4-19 06:32 | 只看该作者

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

Rank: 1

帖子: 6
积分: 16
技术: 0
捐助: 0
注册时间: 2016-4-18

4楼

发表于 2016-4-19 06:35 | 只看该作者

回复 1# create

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

Rank: 1

帖子: 6
积分: 16
技术: 0
捐助: 0
注册时间: 2016-4-18

5楼

发表于 2016-4-20 08:40 | 只看该作者

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

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