如何将EXCEL文件转换成图片，在网上找了一段程序，有很多错误，怎么改？
 Public Function ConvertExcelTOImage() As String  '将EXCEL转换成图片
 
        Dim excelFilePath As String
        excelFilePath = "E:\20140814EQ2008_Dll_VB\运行图甲.xls"
        
        Dim SaveExcelJPG As String
        SaveExcelJPG = "E:\20140814EQ2008_Dll_VB\1.jpg"
        
        Dim app As Microsoft.Office.Interop.Excel.Application
        app = New Microsoft.Office.Interop.Excel.Application
  
        app.CutCopyMode = False
        app.Visible = False
        
        Dim objMis As Object=Type.Missing
        
        Dim singleExcel As Microsoft.Office.Interop.Excel.Workbook
        singleExcel = app.Workbooks.Open(excelFilePath, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis)
        
        Try
            Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet
            wsheet = singleExcel.Worksheets(1)
            
            Dim ranobj As Object
            ranobj = DBNull.Value
            
            wsheet.Range("A1", "Z106").Copy (ranobj)
            
            Dim iData As IDataObject
            iData = Clipboard.GetDataObject()
            
            Dim bits As Bitmap
            bits = iData.GetData(DataFormats.Bitmap)
            
            Dim myBitmap As Bitmap
            myBitmap=New Bitmap(bits.Width,bits.Height)
            
            Dim g As Graphics
            g = Graphics.FromImage(myBitmap)
            
            g.DrawImage(bits,0,0)
            
            myBitmap.Save(String.Format(SaveExcelJPG, Guid.NewGuid()))
            
            Clipboard.Clear()
            
            myBitmap.Dispose()
            
            bits.Dispose()
            
            Return ""
            
        Catch ex As Exception
            ' KillProcess("EXCEL")
            Return ex.Message
        Finally
            Clipboard.Clear()
            ' KillProcess("EXCEL")
        End Try
    End Function

我也怀疑是不是应该是C的语句，要不怎么出现这么多错误，是我把它改成两句的它的原句是：
 Dim app As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()

Dim singleExcel As Microsoft.Office.Interop.Excel.Workbook = app.Workbooks.Open(excelFilePath, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis)


Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet = singleExcel.Worksheets(1)

我把它拆成两句，不然有错误显红色

try
......
      catch
......
end try

这个VB里好像有吧，网上有查到有这种用法，但我也不知道哪里有问题，这段程序中catch 和end try也出错

把这段程序放在VB里是这样的
Public Function ConvertExcelTOImage() As String  '将EXCEL转换成图片
 
        Dim excelFilePath As String
        excelFilePath = "E:\20140814EQ2008_Dll_VB\运行图甲.xls"
        
        Dim SaveExcelJPG As String
        SaveExcelJPG = "E:\20140814EQ2008_Dll_VB\1.jpg"
        
        Dim app As Microsoft.Office.Interop.Excel.Application
        app = New Microsoft.Office.Interop.Excel.Application
  
        app.CutCopyMode = False
        app.Visible = False
        
       （1）Dim objMis As Object=Type.Missing
        
        Dim singleExcel As Microsoft.Office.Interop.Excel.Workbook
        singleExcel = app.Workbooks.Open(excelFilePath, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis, objMis)
        
        Try
            Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet
            wsheet = singleExcel.Worksheets(1)
            
            Dim ranobj As Object
            ranobj = DBNull.Value
            
            wsheet.Range("A1", "Z106").Copy (ranobj)
            
            Dim iData As IDataObject
            iData = Clipboard.GetDataObject()
            
            Dim bits As Bitmap
            bits = iData.GetData(DataFormats.Bitmap)
            
            Dim myBitmap As Bitmap
          （2）myBitmap=New Bitmap(bits.Width,bits.Height)
            
            Dim g As Graphics
            g = Graphics.FromImage(myBitmap)
            
            （3）g.DrawImage(bits,0,0)
            
            （4）myBitmap.Save(String.Format(SaveExcelJPG, Guid.NewGuid()))
            
            （5）Clipboard.Clear()
            
            （6）myBitmap.Dispose()
            
            （7）bits.Dispose()
            
            （8）Return ""
            
        （9）Catch ex As Exception
            ' KillProcess("EXCEL")
            （10）Return ex.Message
        Finally
           （11） Clipboard.Clear()
            ' KillProcess("EXCEL")
        （12）End Try
    End Function

前面两个的错误是缺少语句结束，（3）缺少=号，（4）缺少（号，（5）（6）（7）（11）缺少=号
（8）缺少结束语句，（9）（10）缺少语句结束，（12）缺少：if或select或sub或function或property或type或with或ENUM或语句结束

研究了很久，终于搞明白这段程序是，谢谢了！