(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 


 جرب هذا الكود

(15-04-24, 10:05 AM)تركي الحلواني كتب : الكود يعمل بشكل جيد لدي ولم يقم بإظهار أي خطاء

(15-04-24, 10:25 AM)تركي الحلواني كتب : جرب المثال المرفق

(15-04-24, 01:12 PM)تركي الحلواني كتب : أرفق مشروعك ليتم التعديل عليه

(15-04-24, 10:10 PM)justforit كتب :

المرفق مثال بسيط عملته لاجلك 

اذا لم يعمل عندك فلا توجد مشكلة بالاكواد وانما بالتاكيد اختلاف اصدارات الفريم وورك وكذلك ملفات الاوفيس المساعدة