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

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

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

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

كلمة المرور sarab

صباح الخير

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

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

Microsoft.Office.Interop.Excel

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

Microsoft Excel 12.0 Object Library

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

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

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

إقتباس :‏‏حذف البيانات في جدول مرتبط غير معتمد بواسطة 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 

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

سعود

Taha Okla

سعود

سعود

سعود