51Testing软件测试论坛

标题: 求大虾帮忙插入图片问题 [打印本页]

作者: hotcaoyong 时间: 2009-7-9 11:45
标题: 求大虾帮忙插入图片问题
求教怎样用VB代码实现
创建一个指定路径的EXCEL文件并新建一个指定名字sheet
而且在这个sheet里面插入指定路径的图片
谢谢各位

作者: ermine 时间: 2009-7-9 11:45
Dim xlapp,xlfile,xlsheet
Set xlapp=CreateObject("Excel.application")
Set xlfile=xlapp.Workbooks.Open("C:\Users\Administrator\Desktop\book2.xls")
Set xlsheet=xlfile.sheets("sheet1")
'改名字
xlsheet.name="MyName"
xlsheet.select
'插图片
xlsheet.pictures.insert("C:\Users\Administrator\Pictures\11_200806051032521eXmU_thumb.jpg")
xlfile.save

xlfile.Close
xlapp.Quit
Set xlsheet=Nothing
Set xlfile=Nothing
Set xlapp=Nothing

作者: hotcaoyong 时间: 2009-7-9 11:52
自己顶自己

作者: hotcaoyong 时间: 2009-7-9 13:27
没人帮我回答啊还是我说得步清楚不知道怎么回答

作者: ermine 时间: 2009-7-9 16:23
另外，对于EXCEL的操作，你可以先用宏录制下来，然后看宏代码即可。

作者: hotcaoyong 时间: 2009-7-9 17:42

原帖由 ermine 于 2009-7-9 16:23 发表
另外，对于EXCEL的操作，你可以先用宏录制下来，然后看宏代码即可。

先谢谢你
对EXCEL的操作用宏录下来不知道怎么录制像用QTP录制网页一样？

作者: cjp1021 时间: 2009-7-9 19:22
打开EXCEL工具菜单，里面就有宏的，然后你开始录制，进行操作，结束后，在EXCEL的VB编辑器里就有代码了。

作者: houzeal 时间: 2009-7-10 12:00
学习了

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)