[ABDULLAH HASSAN]

(14-04-24, 12:52 PM)تركي الحلواني كتب :

PHP كود :

Imports Microsoft.Office.Interop

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        
        Dim xlApp As New Excel.Application()
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet

     
        xlWorkBook = xlApp.Workbooks.Add()
        xlWorkSheet = xlWorkBook.Sheets("Sheet1")

        xlWorkSheet.Cells(1, 1) = TextBox1.Text
        xlWorkSheet.Cells(2, 1) = TextBox2.Text

            xlWorkBook.SaveAs("C:\file.xlsx")
        xlWorkBook.Close()
        xlApp.Quit()

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

        MsgBox("تم نقل البيانات إلى ملف Excel بنجاح!")
    End Sub


    Private 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 Class 


 جرب هذا الكود

طلع لي الخطأ هذا