[habydlg]

This is quite a pickle... I am using interop to read and write in excel but the project is not reading the excel correctly, Here I leave the code for you guys.. hope it helps!

This is in a public Module

    Public name, accessories, comments as string
    Public edit As Object
    Public xlApp As New excel.Application
    Public xlWorkBook As excel.Workbook
    Public xlWorkSheet As excel.Worksheet
    Public Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Module

and this is when the form is activated

        xlWorkBook = xlApp.Workbooks.Open("C:\Users\DF\Desktop\exceltest.xls")
        xlWorkSheet = xlWorkBook.Sheets("Sheet1")
        xlApp.Visible = False
        name = xlWorkSheet.Cells(Val(product), 2)
        accessories = xlWorkSheet.Cells(Val(product), 5)
        comments = xlWorkSheet.Cells(Val(product), 15)
        nametxtbx.Text = name
        accessoriestxtbx.Text = accessories
        commentstxtbx.Text = comments
        previewpicbx.Load("C:\Users\DF\Desktop\pictures\" + ((product).Trim) + ".jpg")
        xlWorkBook.Close()

None of the textboxes show text and the preview picturebox does not work... Do I need any resources besides the excel object library 14.0 and the visual basic external applications 5.3?

By the way, product is a number in a textbox

[tlhIn`toq]

Quote

By the way, product is a number in a textbox

That could be your problem right there. TextBoxes don't contain numbers. They contain text. "5" is not a number. If you aren't converting that text into a number before using it for your array index it's pointless.


Q: I do x and y happens which I didn't expect but I don't know how to figure out why. How do I debug and find my problem?
A:

• Debugging video 1: Breakpoints and Local variables
  
• Debugging video 2: Advanced breakpoints
  
• Debugging tutorial
  
• Debugging tips
  
• Debugging in detail
  
• Great debugging tips
  
• It still doesn't work, article
  
• Debugging tools survival guide
  
• Video: Tips & Tricks to use Visual Studio to the fullest

This post has been edited by tlhIn`toq: 28 June 2012 - 12:47 PM

[habydlg]

Thanks! it was a .Value that was missing!

[habydlg]

Found the answer. After xlWorkSheet.Cells(Val(product), 5) I was missing a .value

[m_wylie85]

Once you run you program, open up task manager and check that the excel app has been closed correctly as this is an issue most people face. As if you don't release the com object correctly it stays open in the background. Just check to be sure

That com object in task manager will most likly be called : Excel.exe

This post has been edited by m_wylie85: 29 June 2012 - 07:40 AM

[habydlg]

m_wylie85, on 29 June 2012 - 07:39 AM, said:

Once you run you program, open up task manager and check that the excel app has been closed correctly as this is an issue most people face. As if you don't release the com object correctly it stays open in the background. Just check to be sure

That com object in task manager will most likly be called : Excel.exe

You are right! I haven't released the com objects correctly... I used this and it does not work...

    Public Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub

This is in a module

[habydlg]

Greetings fellow users and moderators.

I am using interop to write to excel but it seems that my project isn't writing that well into the excel file. I want to change a cell with "N" to "D" but the coding isn't right.

                ElseIf check = "N" Then
                    xlWorkSheet.Cells(Int(Listnum.Items(numrent2)), 6) = "D"
                End If

The listbox contains the row number in a string and changes it to integer.

Afterwards, I am not releasing my COM the right way... I've been informed that my release object is wrong.

        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try

[modi123_1]

Please do not open duplicate or triplicate topics.

[habydlg]

whoa my bad, thought this was a new topic. Never gonna happen again

[edit]
Sorry! I'm kinda new here...

This post has been edited by habydlg: 02 July 2012 - 10:13 AM

[habydlg]

Greetings fellow users and moderators.

I am using interop to write to excel but it seems that my project isn't writing that well into the excel file. I want to change a cell with "N" to "D" but the coding isn't right.

ElseIf check = "N" Then

    xlWorkSheet.Cells(Int(Listnum.Items(numrent2)), 6) = "D"

End If

The listbox contains the row number in a string and changes it to integer.

Afterwards, I am not releasing my COM the right way... I've been informed that my release object is wrong.

Try

    System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

    obj = Nothing

Catch ex As Exception

    obj = Nothing

Finally

    GC.Collect()

End Try

[modi123_1]

No.. I mean do *NOT* open up duplicate topics. As in you already have a thread for your interop issues - keep it together.

[habydlg]

Oh, my bad, well If you wish you can delete this topic.

[habydlg]

Now I understand how this works Never going to make this same mistake! sorry!

Now, does anyone know the right way to release the COM objects and why interop isn't writing into the excel file correctly? It seems to identify when its "N" and "D" but when it tries to write, it does not do anything, maybe its the COM objects not being released on previous debugging?

[habydlg]

I've found the answer! it was the wrong order of my object releasing!

            releaseObject(xlWorkSheet)
            releaseObject(xlWorkBook)
            releaseObject(xlApp)

instead of

            releaseObject(xlApp)
            releaseObject(xlWorkBook)
            releaseObject(xlWorkSheet)

[modi123_1]

Kudos on the find!