[ABDULLAH HASSAN]

الاخطأ ذي وش حلها لو تكرمتو
مع العلم ان المطلوب نقل بيانات textbox1.text و textbox2.text الى A1 و A2 في ملف اكسل


والي يقدر يسوي سورس كود مبسط لايبخل علينا رجاء



   
   

[تركي الحلواني]

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 


 جرب هذا الكود

[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 


 جرب هذا الكود

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

[تركي الحلواني]

الكود يعمل بشكل جيد لدي ولم يقم بإظهار أي خطأ

مرفق مثال

[ABDULLAH HASSAN]

انا عارف ان الكود كويس وماعليه كلام لاكن المشكله عندي انا مني عارف من وين المشكله بالضبط

---

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

انا عارف ان الكود كويس وماعليه كلام لاكن المشكله عندي انا مني عارف من وين المشكله بالضبط

[تركي الحلواني]

جرب المثال المرفق

[ABDULLAH HASSAN]

المعذره تعبتك بس جربته نفس الخطأ للأسف

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

[تركي الحلواني]

أرفق مشروعك ليتم التعديل عليه

[justforit]

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

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

[ABDULLAH HASSAN]

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

ابشرك استاذ تركي البروجكت المرفق من الاستاذ justforit اشتغل مضبوط جدا ايش الفرق الله اعلم ماقصرت ي مودير والله يجزاك الخير

---

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

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

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

مشاء الله تبارك الله البروجكت كلييييين اشكرك على مجهودك استاذي الفاضل الله يجزاك الخير