主题：能不能将exce报表转成图片？

 另存为图片

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.copy
ClipBoard.GetImage.save("d:\abc.jpg")
app.quit