- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- XLS导出插入图片时,遇坏图错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45846)
-- 发布时间：2014/2/12 11:22:00
-- XLS导出插入图片时,遇坏图错误
此主题相关图片如下：未标题-1 拷贝.jpg
在导出XLS时插入图片,因為坏图而出现上述错误,而使整段代码停止了运行,由于图库里的图片很多,要续一查核那个坏图不实际
能不能检测出如遇坏图 则跳过 继续接著的代码?
图片插入路径 代码如下
Sheet(1,1).Value = New XLS.Picture(GetImage( "Y:\\IMG\\" & pic & ".jpg" ),3,3,219,162)
-- 发布时间：2014/2/12 11:24:00
--
在这句代码前加入一句
messagebox.show(pic) 这样不就可以知道那个图片有问题了么
-- 发布时间：2014/2/12 11:25:00
--
Try
Dim img As System.Drawing.Image
Img =GetImage( "Y:\\IMG\\" & pic & ".jpg")
If img IsNot ntohing Then
Sheet(1,1).Value = New XLS.Picture(img,3,3,219,162)
End If
Catch ex As Exception
End Try
-- 发布时间：2014/2/12 11:58:00
-- CSV格式及中文字乱码问题
此主题相关图片如下：未命名.jpg
坏图是像这样的
在XLS是能夠插入
但以VBA 或 狐表就出錯
我知道vba如何排錯
用 On Error Resume Next 可以跳过坏图
但狐表就不懂
狐狸的代码无效,仍然出现錯误
-- 发布时间：2014/2/12 12:05:00
-- CSV格式及中文字乱码问题
以下是引用Bin在2014-2-12 11:24:00的发言：
在这句代码前加入一句
在这句代码前加入一句
messagebox.show(pic) 这样不就可以知道那个图片有问题了么
BIN老師,图片过千的
这样跳出对话框会点到手软
-- 发布时间：2014/2/12 12:06:00
--
这个我也没办法，看错误提示，是可以插入，但是保存excel文件的时候出错，这就无解了，因为保存是excel自己负责啊
-- 发布时间：2014/2/12 12:31:00
-- CSV格式及中文字乱码问题
已查出是哪个图片有问题(花了一小时....)
图片损坏有很多原因,如果每次出錯都得花时间去查,浪费时间
但如果狐表真的不能遇錯跳过,
也只能续一查图了,....
-- 发布时间：2014/2/12 12:54:00
-- CSV格式及中文字乱码问题
慘了,目测查的图都查了
仍出现这个问题.
有何方法再排查?(肯定是GetImage问题,因为把这段代码刪了就完全沒事)