[hamada558]

جرب بدون ما تعدل في الكود

كود :

Dim xlApp As Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet

    Private Sub ReactorButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReactorButton1.Click

        Try
            xlApp = New Excel.Application
            xlApp.Visible = False
            xlWorkBook = xlApp.Workbooks.Open("C:\test.xls")
            xlWorkSheet = xlWorkBook.Sheets("sheet")

            With xlWorkSheet

                .Range("A2").Value = ReactorMultiLineTextBox1.Text
                .Range("a3").Value = ReactorMultiLineTextBox2.Text
                .Range("A4").Value = ReactorMultiLineTextBox3.Text

            End With

            xlWorkSheet = Nothing
            xlWorkBook.Save()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        If Not xlWorkBook Is Nothing Then
            xlWorkBook.Close(False)
            xlWorkBook = Nothing
        End If

        If Not xlApp Is Nothing Then
            xlApp.Quit()
            xlApp = Nothing
        End If

        GC.Collect()
        GC.WaitForPendingFinalizers()

    End Sub

لاحظ مفيش Finally

المشكلة كل مرة بضع كود جديد تقوم ترجع للكود القديم، حبيبي صلاح هل هاد عدم رضاك عن اداء اكوادي؟