主题：[求助]

我在命令窗口运行以下代码  但生成的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()

这样：

 

Sheet(10,2).Value = New XLS.Picture(GetImage("大象.jpg"))

试了 但还是没有呢  麻烦各位了

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

 

搞不定，就另外做个简单例子，整个文件夹压缩成一个zip文件发上来

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

你换个jpg图片看看