另存为图片
Dim App As New MSExcel.ApplicationDim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)Dim Rg As MSExcel.Range = Ws.UsedRangerg.copyClipBoard.GetImage.save("d:\abc.jpg")app.quit