vb 读取 excel单元格内容问题

[zyl850830]

vb读取单元格内容。出错

        
Dim objExcelFile As Excel.Application
        Dim objWorkBook As Excel.Workbook
        Dim objSheet As Excel.Worksheet

        objExcelFile = New Excel.Application
        objExcelFile.DisplayAlerts = False
        objWorkBook = objExcelFile.Workbooks.Open("C:\xxx.xls")

       objSheet = CType(objWorkBook.Worksheets(1), Excel.Worksheet)


        Dim str As  String = objSheet.Cells(1,1).ToString

用了各种办法 都没有办法读取 特定单元格里面的数据， 直接报错！

求高手解答！

[zyl850830]

问题解决了 直接用cell没有办法取数据 报错 Exception from HRESULT: 0x800A03EC 用 cell（5，5）的返回值rang 直接取 cells（rang）也报错 最后用

        Dim str As String 
        Dim rag As Excel.Range
        rag = CType(objSheet.Cells(5, 5), Excel.Range)

        str = rag.Text.ToString

就取出来了很奇怪 求高人解答

[ailengukai]

这样写，应该是对的 Dim str As String = objSheet.Cells(1,1).Vaule2.ToString objSheet.Cells(1,1)是单元格，自然不能转换为String