mark excel截图
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 range = ws.range("A3:D10")range.CopyPicture(Appearance:=1, Format:=2)ClipBoard.GetImage.save("d:\aaa.jpg")