主题：XLS导出插入图片时,遇坏图错误

此主题相关图片如下：未标题-1 拷贝.jpg

 

 

在导出XLS时插入图片,因為坏图而出现上述错误,而使整段代码停止了运行,由于图库里的图片很多,要续一查核那个坏图不实际
能不能检测出如遇坏图 则跳过 继续接著的代码?

图片插入路径 代码如下
Sheet(1,1).Value =   New XLS.Picture(GetImage( "Y:\IMG\" & pic & ".jpg" ),3,3,219,162)

在这句代码前加入一句

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

此主题相关图片如下：未命名.jpg

坏图是像这样的

在XLS是能夠插入

但以VBA 或 狐表就出錯

 

我知道vba如何排錯

       用 On Error Resume Next 可以跳过坏图

但狐表就不懂

 

狐狸的代码无效,仍然出现錯误

BIN老師,图片过千的

这样跳出对话框会点到手软

这个我也没办法，看错误提示，是可以插入，但是保存excel文件的时候出错，这就无解了，因为保存是excel自己负责啊

已查出是哪个图片有问题(花了一小时....)

图片损坏有很多原因,如果每次出錯都得花时间去查,浪费时间

但如果狐表真的不能遇錯跳过,

也只能续一查图了,....

慘了,目测查的图都查了

仍出现这个问题.

有何方法再排查?(肯定是GetImage问题,因为把这段代码刪了就完全沒事)