+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أمثلة ومشاريع قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=77)
+--- الموضوع : [مشروع] [جديد ] التحرير في ملف اكسل (/showthread.php?tid=45660)
[جديد ] التحرير في ملف اكسل - سعود - 12-03-23
السلام عليكم ورحمة الله و بركاته
أقصد بالجديد علي شخصيا
بصراحة ماكنت اتوقع سهولة التعامل مع الاكسل وانه لا يحتاج الا خطوتين فقط لتتعامل معه وكانك تتعامل مع الاكسس وبنفس ال_ provider مع اضافة لنص الاتصال في آخر جملة الاتصال
كلمة المرور sarab
صباح الخير
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
نسيت ان انبه الى انه لا بد من اضافة التالية كمرجع:
Microsoft.Office.Interop.Excel
ووصفها ضمن تبويب الـCom الخاص بالـReference التالي:
Microsoft Excel 12.0 Object Library
RE: [جديد ] التحرير في ملف اكسل - Taha Okla - 12-03-23
الفرق عن اكسس
1 - هو أنك لا تستطيع أن تقوم بعمليات الحذف، كما في الاكسس.
2 - شيء آخر أنك لو حددت خلية خارج النطاق المحدد للجدول سيقوم الاكسل بجلبها وجلب كل الخلاياا الفارغة معها.
RE: [جديد ] التحرير في ملف اكسل - سعود - 12-03-23
(12-03-23, 01:49 PM)Taha Okla كتب : الفرق عن اكسس
1 - هو أنك لا تستطيع أن تقوم بعمليات الحذف، كما في الاكسس.
2 - شيء آخر أنك لو حددت خلية خارج النطاق المحدد للجدول سيقوم الاكسل بجلبها وجلب كل الخلاياا الفارغة معها.
فعلا مثل ماقلت لكن الحذف لا اهتم به عند كل تجربة جديدة
إقتباس :حذف البيانات في جدول مرتبط غير معتمد بواسطة ISAM هذا.
RE: [جديد ] التحرير في ملف اكسل - سعود - 13-03-23
آخر تحديث
passw:vb4arb
حذف الكل كود يحتاج تعديل بخصوص رقم آخر صف
RE: [جديد ] التحرير في ملف اكسل - سعود - 13-03-23
اضفت زرين كتحرير في الاعمدة الخاصة بملف اكسل الاول ينظف الورقة والاخر يضيف الاعمدة ... الشيء اللذي لم افهمه وهو كيف اجعل التحرير فوري لانه لابد من الخروج من النظام ثم العودة اليه.
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