Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


  共有3715人关注过本帖树形打印复制链接

主题：[求助]
帅哥哟，离线，有人找我吗？
弘安公司
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：78 积分：600 威望：0 精华：0 注册：2014/1/21 21:47:00 		[求助]  发帖心情 Post By：2014/2/13 14:39:00 [只看该作者]

我在命令窗口运行以下代码  但生成的c:\reports\test.xls文件中怎么无图片呢？（注：大象.jpg图片已复制在images文件夹中）

 

Dim Book  As New XLS.Book  '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For i As Integer =  0  To  9  '向工作表的单元格中设置值
    Sheet(i, 0).Value = (i + 1) *  10
     Sheet(i, 1).Value = (i + 1) *  100
     Sheet(i, 2).Value = (i + 1) *  1000
 Next
 Sheet(10,2).Value = New XLS.Picture(GetImage("images\大象.jpg"))
 Book.Save("c:\reports\test.xls") '保存工作簿
 Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
 Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/2/13 14:41:00 [只看该作者]

这样：

 

Sheet(10,2).Value = New XLS.Picture(GetImage("大象.jpg"))
 回到顶部
帅哥哟，离线，有人找我吗？
弘安公司
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：78 积分：600 威望：0 精华：0 注册：2014/1/21 21:47:00 		  发帖心情 Post By：2014/2/13 14:45:00 [只看该作者]

试了 但还是没有呢  麻烦各位了
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/2/13 14:49:00 [只看该作者]

可能文件不存在，仔细检查。

 

搞不定，就另外做个简单例子，整个文件夹压缩成一个zip文件发上来
 回到顶部
帅哥哟，离线，有人找我吗？
弘安公司
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：78 积分：600 威望：0 精华：0 注册：2014/1/21 21:47:00 		  发帖心情 Post By：2014/2/13 15:25:00 [只看该作者]

ico格式的图片可以了  是否.jpg格式的不可以呢？

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/2/13 15:28:00 [只看该作者]

你换个jpg图片看看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询