hotcaoyong 发表于 2009-7-9 11:45:48

求大虾帮忙插入图片问题

求教 怎样用VB代码实现
创建一个指定路径的EXCEL文件 并新建一个指定名字sheet
而且在这个sheet里面插入指定路径的图片
谢谢 各位

ermine 发表于 2009-7-9 11:45:49

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:46

自己顶自己:loveliness:

hotcaoyong 发表于 2009-7-9 13:27:14

没人帮我回答啊还是我说得步清楚不知道怎么回答:Q

ermine 发表于 2009-7-9 16:23:04

另外，对于EXCEL的操作，你可以先用宏录制下来，然后看宏代码即可。

hotcaoyong 发表于 2009-7-9 17:42:44

原帖由 ermine 于 2009-7-9 16:23 发表 http://bbs.51testing.com/images/common/back.gif
另外，对于EXCEL的操作，你可以先用宏录制下来，然后看宏代码即可。
先谢谢你
对EXCEL的操作 用宏录下来 不知道怎么录制 像用QTP录制网页一样？

cjp1021 发表于 2009-7-9 19:22:39

打开EXCEL工具菜单，里面就有宏的，然后你开始录制，进行操作，结束后，在EXCEL的VB编辑器里就有代码了。

houzeal 发表于 2009-7-10 12:00:37

学习了
页: [1]
查看完整版本: 求大虾帮忙插入图片问题