Cannot create ActiveX component.

[azurdar]

This is an issue where when the code hits ExcelObj = CreateObject("Excel.Application") line it throws the "Cannot create ActiveX component" error. Does anyone know why this is happening?





Sub SavePartNumbersInSession()
Dim ExcelObj As Object
'Dim ExcelBook As Object
'Dim ExcelSheet As Object
Dim i As Integer
Dim j As Integer
'Dim cells As Object

ExcelObj = CreateObject("Excel.Application")
'ExcelSheet = CreateObject("Excel.Sheet")

ExcelObj.WorkBooks.Open(sPath & "UploadedFiles\" & System.IO.Path.GetFileName(MyFile.PostedFile.FileName))

'ExcelBook = ExcelObj.Workbooks(1)
'ExcelSheet = ExcelBook.WorkSheets(1)

i = 1
j = 2

'cells = ExcelBook.WorkSheets(1).cells

Session("PartNumbers") = ""

Do Until ExcelObj.Workbooks(1).WorkSheets(1).cells(1, i).value & "" = ""

If ExcelObj.Workbooks(1).WorkSheets(1).cells(1, i).value = "Part Number" Then
ExcelObj.Workbooks(1).WorkSheets(1).UsedRange.Columns(i).NumberFormat = "@"

Do Until ExcelObj.Workbooks(1).WorkSheets(1).cells(j, i).value & "" = ""
'If IsNumeric(ExcelObj.Workbooks(1).WorkSheets(1).cells(j, i).value) Then
If Session("PartNumbers") <> "" Then
Session("PartNumbers") &= "|"
End If

Session("PartNumbers") &= CStr(ExcelObj.Workbooks(1).WorkSheets(1).cells(j, i).value)
' End If


j = j + 1
Loop
End If

i = i + 1
Loop

ExcelObj.DisplayAlerts = False
ExcelObj.Workbooks(1).Close()
ExcelObj.Quit()

ExcelObj = Nothing
End Sub

[Arnoutdv]

This is VB.Net code, not VB6 or earlier

[LaVolpe]

At this link, CreateObject in .Net is described, along with a simple example of using it to automate Excel

[Max187Boucher]

Maybe add a 'Set' infront?

[Max187Boucher]

No need for multiple threads we will help when we can.
http://www.vbforums.com/showthread.p...won-t-turn-off

[Niya]

Maybe add a 'Set' infront?

You don't use Set in .Net. You can assign objects to object variables the same way you assign values to primitive types.

Maybe a mod should move this thread.

[FunkyDexter]

...and maybe a mod has