Итак, у меня есть программа, которая запускает экземпляр Excel. Это работает на моей машине, а также на машинах двух других, но когда мой руководитель проекта пытается это сделать, он получает следующую ошибку:
System.Runtime.InteropServices.COMException (0x80010108): Creating an instance of the COM component with CLSID {00024500-0000-0000-C000-000000000046} from the IClassFactory failed due to the following error: 80010108.
В приведенном ниже коде я создаю экземпляр Excel и запускаю его.
Dim xlsApp As New Excel.Application
Dim xlsWB As Excel.Workbook
Dim xlsWS As Excel.Worksheet
Try
If ugLoadDeviationsDetails.DataSource IsNot Nothing Then
'Creates a temporary excel file with data located in the grid
UltraGridExcelExporter1.Export(ugLoadDeviationsDetails, "C:\ProgramData\Data-Tronics\ShellFiles\LoadDeviations\tempExcel")
xlsWB = xlsApp.Workbooks.Open("C:\ProgramData\Data-Tronics\ShellFiles\LoadDeviations\tempExcel")
xlsWS = DirectCast(xlsWB.Sheets("Sheet1"), Excel.Worksheet)
DirectCast(xlsWS.Cells.EntireRow, Excel.Range).ClearFormats()
DirectCast(DirectCast(xlsWS.Cells("1", "A"), Excel.Range).EntireRow().Cells, Excel.Range).Interior.Color = Color.LightGray.ToArgb
DirectCast(xlsWS, Excel.Worksheet).Copy()
xlsWB.Close(False)
xlsApp.Visible = True
xlsApp.UserControl = True
Else
RaiseEvent ShowError("Cannot write file when grid is empty.")
End If
Catch ex As Exception
For Each wb As Excel.Workbook In xlsApp.Workbooks
wb.Close(False)
Next
xlsApp.Quit()
Finally
xlsApp = Nothing
xlsWB = Nothing
xlsWS = Nothing
End Try
Согласно трассировке стека, он разбивается на следующую строку:
Dim xlsApp As New Excel.Application
Руководитель проекта использует ту же версию Excel, что и я (2010 г.), может ли кто-нибудь объяснить, почему это может произойти, и как я могу это исправить?
