在做.NET WEB开发时,用XP系统,但CT时发现对EXCEL的操作在2000上运行存在问题,主要是
m_objExApp.Workbooks.Open(strFileName)
运行异常抛错,求解决办法!!
不知到2003会不会还有异常!

解决方案 »

  1.   

    这段代码在2000下能正确执行,但是在2003下就不执行 , 到xlsBook.Save()这步就不执行了
    怎么回事,应该和楼上的差不多,请指教!!Dim xlsApp As New Excel.Application
            Dim xlsBook As Excel.Workbook
            Dim xlsSheet As Excel.Worksheet
            Dim rowIndex As Integer = 1
            Dim colIndex As Integer = 0
            Dim i As Integer        Try
                GC.Collect()
                xlsBook = xlsApp.Workbooks.Open("C:\Book1.xls")
                'xlsApp.Visible = True
                xlsSheet = xlsBook.Worksheets("表1")
                xlsApp.Range("C7").Value = "25"
                '  xlsApp.Cells(11, 6) = "222"
                ' xlsApp.Range(xlsApp.Cells(1, 1), xlsApp.Cells(1, 18)).Value = "油田主要地面设施全年建设工作量及现状表(2005年度)"
                xlsBook.Save()
            Catch ex As Exception
                Response.Write(ex.Message)
            Finally
                '  xlsSheet = Nothing            ' System.Runtime.InteropServices.Marshal.ReleaseComObject(xlsBook)
                'xlsBook = Nothing
                ' xlsBook.Close(False, Type.Missing, Type.Missing)            xlsApp.Workbooks.Close()
                xlsApp.Quit()
                System.Runtime.InteropServices.Marshal.ReleaseComObject(xlsSheet)
                xlsSheet = Nothing
                System.Runtime.InteropServices.Marshal.ReleaseComObject(xlsApp)
                System.Runtime.InteropServices.Marshal.ReleaseComObject(xlsBook)            ' System.Runtime.InteropServices.Marshal.ReleaseComObject(xlsSheet)            GC.Collect()
            End Try
      

  2.   

    我也遇到同样的问题把xlsBook.Save()改成xlsBook.SaveAs试试看