【急！】请教高手 --- System.Runtime.InteropServices.COMException


        oXL = CreateObject("Excel.Application")
        oXL.Visible = True        ' 创建一个新的workbook
        oWB = oXL.Workbooks.Add
        oSheet = oWB.ActiveSheet            myTable = New getData().get_DeviceData()    '获取数据Datatable 无错 获取数据正常
            Dim dRow As DataRow
            For i = 0 To myTable.Rows.Count - 1
                dRow = myTable.Rows(i)
                For j = 0 To myTable.Columns.Count - 1
                oSheet.Cells(i, j) = dRow.Item(j)  '报错  
                Next
            Next
错误：An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in mscorlib.dllAdditional information: Exception from HRESULT: 0x800A03EC.