تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] [جديد ] التحرير في ملف اكسل
#1

السلام عليكم ورحمة الله و بركاته
أقصد بالجديد علي شخصياSmile
بصراحة ماكنت اتوقع سهولة التعامل مع الاكسل وانه لا يحتاج الا خطوتين فقط لتتعامل معه وكانك تتعامل مع الاكسس وبنفس ال_ provider  مع اضافة لنص الاتصال في آخر جملة الاتصال
كلمة المرور sarab
صباح الخير
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
نسيت ان انبه الى انه لا بد من اضافة التالية كمرجع:
Microsoft.Office.Interop.Excel
ووصفها ضمن تبويب الـCom الخاص بالـReference التالي:
Microsoft Excel 12.0 Object Library


الملفات المرفقة
.zip   ExcelBook.zip (الحجم : 25.17 ك ب / التحميلات : 46)
}}}
تم الشكر بواسطة: Taha Okla , tryold
#2
الفرق عن اكسس
1 - هو أنك لا تستطيع أن تقوم بعمليات الحذف، كما في الاكسس.
2 - شيء آخر أنك لو حددت خلية خارج النطاق المحدد للجدول سيقوم الاكسل بجلبها وجلب كل الخلاياا الفارغة معها.
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
}}}
تم الشكر بواسطة: سعود , سعود
#3
(12-03-23, 01:49 PM)Taha Okla كتب : الفرق عن اكسس
1 - هو أنك لا تستطيع أن تقوم بعمليات الحذف، كما في الاكسس.
2 - شيء آخر أنك لو حددت خلية خارج النطاق المحدد للجدول سيقوم الاكسل بجلبها وجلب كل الخلاياا الفارغة معها.

فعلا مثل ماقلت لكن الحذف لا اهتم به عند كل تجربة جديدةSmile
إقتباس :‏‏حذف البيانات في جدول مرتبط غير معتمد بواسطة ISAM هذا.
}}}
تم الشكر بواسطة: Taha Okla
#4
آخر تحديث 
passw:vb4arb
حذف الكل كود يحتاج تعديل بخصوص  رقم آخر صف


الملفات المرفقة
.zip   ExcelBook.zip (الحجم : 25.92 ك ب / التحميلات : 19)
}}}
تم الشكر بواسطة:
#5
اضفت زرين كتحرير في الاعمدة الخاصة بملف اكسل الاول ينظف الورقة والاخر يضيف الاعمدة ... الشيء اللذي لم افهمه وهو كيف اجعل التحرير فوري لانه لابد من الخروج من النظام ثم العودة اليه.
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        xl
()
 
       xlWorkSheet.Cells.Clear()
 
       xlWorkBook.Save()
 
       If Not IsNothing(xlWorkBookThen
            xlWorkBook
.Close()
 
       End If
 
       xlApp.Quit()
 
   End Sub

    Private Sub Button2_Click
(sender As System.ObjectAs System.EventArgsHandles 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(xlWorkBookThen
                xlWorkBook
.Close()
 
           End If
 
           xlApp.Quit()
 
           MsgBox("Done"MsgBoxStyle.Information"")
 
       Catch ex As Exception
            MsgBox
(Err.DescriptionMsgBoxStyle.Critical"error")
 
       End Try
 
   End Sub 
}}}
تم الشكر بواسطة: مصمم هاوي



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم