Sub？插入圖片500次()
暗淡？strXAs？線
暗淡？斯特利亞斯？線
暗淡？FileNameAs？線
strX？=?" F:\驗收報告\報告備份\ May 14 \500\500\ "
為了什麽？我？=?1?去哪？工作表。數數？-?2
斯特雷？=?工作表(壹)。細胞(8，6)
文件名？=?Dir(strX？& amp？"*"?& amp？斯特雷？& amp？"*")
如果？文件名？=?""?然後
床單(壹).圖片2 .圖片？=?加載圖片
MsgBox？找不到鑄造編號:？& amp？斯特雷？& amp？《圖片的500倍》
退出？潛水艇
其他
床單(壹).圖片2 .圖片？=?加載圖片(文件名)
結束？如果
然後
結束？潛水艇