[سعود]

السلام عليكم ورحمة الله و بركاته

أقصد بالجديد علي شخصيا

بصراحة ماكنت اتوقع سهولة التعامل مع الاكسل وانه لا يحتاج الا خطوتين فقط لتتعامل معه وكانك تتعامل مع الاكسس وبنفس ال_ provider  مع اضافة لنص الاتصال في آخر جملة الاتصال

كلمة المرور sarab

صباح الخير

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

نسيت ان انبه الى انه لا بد من اضافة التالية كمرجع:

Microsoft.Office.Interop.Excel

ووصفها ضمن تبويب الـCom الخاص بالـReference التالي:

Microsoft Excel 12.0 Object Library

[Taha Okla]

الفرق عن اكسس
1 - هو أنك لا تستطيع أن تقوم بعمليات الحذف، كما في الاكسس.
2 - شيء آخر أنك لو حددت خلية خارج النطاق المحدد للجدول سيقوم الاكسل بجلبها وجلب كل الخلاياا الفارغة معها.

[سعود]

(12-03-23, 01:49 PM)Taha Okla كتب : الفرق عن اكسس
1 - هو أنك لا تستطيع أن تقوم بعمليات الحذف، كما في الاكسس.
2 - شيء آخر أنك لو حددت خلية خارج النطاق المحدد للجدول سيقوم الاكسل بجلبها وجلب كل الخلاياا الفارغة معها.

فعلا مثل ماقلت لكن الحذف لا اهتم به عند كل تجربة جديدة

إقتباس :‏‏حذف البيانات في جدول مرتبط غير معتمد بواسطة ISAM هذا.

[سعود]

آخر تحديث 

passw:vb4arb

حذف الكل كود يحتاج تعديل بخصوص  رقم آخر صف

[سعود]

اضفت زرين كتحرير في الاعمدة الخاصة بملف اكسل الاول ينظف الورقة والاخر يضيف الاعمدة ... الشيء اللذي لم افهمه وهو كيف اجعل التحرير فوري لانه لابد من الخروج من النظام ثم العودة اليه.

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        xl()
        xlWorkSheet.Cells.Clear()
        xlWorkBook.Save()
        If Not IsNothing(xlWorkBook) Then
            xlWorkBook.Close()
        End If
        xlApp.Quit()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        xl()
        Try
            xlWorkSheet.Range("A1").Value = "tid"
            xlWorkSheet.Range("B1").Value = "tname"
            xlWorkSheet.Range("C1").Value = "age"
            xlWorkSheet.Range("D1").Value = "phone"

            xlWorkBook.Save()
            If Not IsNothing(xlWorkBook) Then
                xlWorkBook.Close()
            End If
            xlApp.Quit()
            MsgBox("Done", MsgBoxStyle.Information, "")
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "error")
        End Try
    End Sub