求大虾帮忙插入图片问题

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

自己顶自己

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

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

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

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

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

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

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

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

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

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

学习了

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] 求大虾帮忙插入图片问题

最佳答案

相关帖子

站长推荐 /1