اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





ربط الفيجوال بيسك دوت نت بالاكسيل

بسم الله الرحمن الرحيم اليوم سنقوم بربط الفيجوال بيسك دوت نت بالاكسيل ولكن مع بعض الاضافات على الملف السابق شرحه بسلسلة ..



10-10-2017 03:39 مساء
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 812
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 461
قوة السمعة : 5672
الاعجاب : 1492
موقعي : زيارة موقعي
 offline 

بسم الله الرحمن الرحيم

اليوم سنقوم بربط الفيجوال بيسك دوت نت بالاكسيل ولكن مع بعض الاضافات على الملف السابق شرحه بسلسلة دروس الفيجوال بيسك دوت نت
لكل من تابع الدرس السابق اليكم الاضافات البسيطة
تم اضافة ليست بوكس لعرض محتوى الورقة
تم اضافة زر حذف لحذف اي عنصر يتم تحديده من الليست بوكس
مع بعض التعديل ع الاكواد

MTIxMTUyMQ666612312313
الكود المستخدم في المرفق
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet
    Private Sub Form1_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
        xlWorkBook.Save()
        xlWorkBook.Close()
        xlApp.Quit()
        xlApp = Nothing
        xlWorkBook = Nothing
        xlWorkSheet = Nothing
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        xlApp = New Excel.ApplicationClass
        xlWorkBook = xlApp.Workbooks.Open(Application.StartupPath & "test.xlsx")
        xlWorkSheet = xlWorkBook.Worksheets(1)
        xlApp.Visible = False
        Call yasser()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        xlApp.Visible = True
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim last As Long
        last = xlWorkSheet.Cells(xlWorkSheet.Rows.Count, "a").End(Excel.XlDirection.xlUp).Row + 1
        xlWorkSheet.Range("a" & last).Value = TextBox1.Text
        Call yasser()
        TextBox1.Text = ""
        MsgBox("Done..")
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        xlWorkBook.Save()
        xlWorkBook.Close()
        xlApp.Quit()
        xlApp = Nothing
        xlWorkBook = Nothing
        xlWorkSheet = Nothing
        MsgBox("تم اغلاق ملف الاكسيل")
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        xlWorkBook.Save()
        MsgBox("Done..")
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        xlApp.Visible = False
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim x As Long
        x = ListBox1.SelectedIndex
        If x = -1 Then
            MsgBox("يرجى اختيار العنصر المراد حذفه")
        Else
            xlWorkSheet.Range("a" & x + 2).Delete(Shift:=Excel.XlDirection.xlUp)
            Call yasser()
            MsgBox("Done..")
        End If
    End Sub
    Sub yasser()
        Dim rng As String
        ListBox1.Items.Clear()
        For Each rng In xlWorkSheet.Range("A2:A" & xlWorkSheet.Range("A1000").End(Excel.XlDirection.xlUp).Row).Value
            ListBox1.Items.Add(rng)
        Next
    End Sub
End Class

لتحميل السورس كود

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

اعداد / ياسر العربي

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

111
 
 
  vb2012excel.rar   تحميل rar مرات التحميل :(193)
الحجم :(460.302) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، الصقر، عبد العزيز البسكري، عبدالجيد، Abdh111، samir2018،


توقيع :Yasser Elaraby
663013020




10-10-2017 05:46 مساء
مشاهدة مشاركة منفردة [1]
Kamel meraghni
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 99
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 561
الاعجاب : 121
 offline 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
السلام عليكم أستاذ أولا أشكرك على هذا العمل الجبار والذي كنت أبحث عليه
لكن أستاذ عندي مشكلة بخصوص الدرس الأول عند التنفيذ يحدث خطئ مع العلم أنني أستعمل أوفيس 2016
زالصورة توضخ الخطئ NDc5MzMzMQ33332017-10-09_171718
 
 




توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



10-10-2017 06:28 مساء
مشاهدة مشاركة منفردة [2]
Kamel meraghni
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 99
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 561
الاعجاب : 121
 offline 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
[quote=Kamel meraghni]السلام عليكم أستاذ أولا أشكرك على هذا العمل الجبار والذي كنت أبحث عليه
لكن أستاذ عندي مشكلة بخصوص الدرس الأول عند التنفيذ يحدث خطئ مع العلم أنني أستعمل أوفيس 2016
و الصورة توضخ الخطئ NDE1NDUx%D9%86%D9%86%D9%86
 
  ننن.png   تحميل png ننن.png مرات التحميل :(7)
الحجم :(106.292) KB
 




توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



10-10-2017 10:11 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4384
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 311
قوة السمعة : 12648
الاعجاب : 4628
 Online 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
جزاكم الله خيراً أخي الغالي ياسر العربي ..
نحتاج لمزيد من التفاصيل حول الموضوع .. لا تعطني سمكة ولكن علمني كيف آكل السمك smile

أثارت هذه المشاركة إعجاب: Yasser Elaraby، عبدالجيد،




11-10-2017 08:34 صباحا
مشاهدة مشاركة منفردة [4]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 812
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 461
قوة السمعة : 5672
الاعجاب : 1492
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
هل قمت بهذه الخطوات
MzUwODI2MQ44441_png_7f55ddcd6f2cbf21fbc233b357ddfd63
Mjg5MzE1MQ80802_png_9900293100960d354228c078fb661a7d
ان لم تجد هذه المراجع يرجى العمل على اصدار اوفيس اقل من 2016
ان تم اختيار المرجع بدون مشاكل
ممكن تغير السطر دا 
xlApp = New Excel.ApplicationClass

بالسطر دا
​xlApp = New Excel.Application

تحياتي
 
 




توقيع :Yasser Elaraby
663013020



11-10-2017 08:45 صباحا
مشاهدة مشاركة منفردة [5]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1377
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 345
قوة السمعة : 10413
الاعجاب : 2614
 Online 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل

جزاكم الله خيرا يا عربى مزيد من الابداع ان شاء الله 142



أثارت هذه المشاركة إعجاب: عبدالجيد،




11-10-2017 09:20 صباحا
مشاهدة مشاركة منفردة [6]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 812
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 461
قوة السمعة : 5672
الاعجاب : 1492
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
حبيبي ابو البراء لو على اكل السمك انا بأكلكم اهو انما المقصد هو كيف تصطاد مش كيف تأكل 63
وبعدين لغات البرمجة الاخرى حاليا فرع مصغر ومتابعينه اقل من الاكسيل لما الاقي متابعة كبيرة ان شاء الله سأقوم بالتوسع في الشرح ان شاء الله
اخي الغالي حسام جزاكم الله خير على مروركم العطر خالص تحياتي
142

أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالجيد،


توقيع :Yasser Elaraby
663013020



11-10-2017 12:27 مساء
مشاهدة مشاركة منفردة [7]
Kamel meraghni
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 99
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 561
الاعجاب : 121
 offline 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
MTAwNjEyMQ5656mlتمام مشي الحال مع هذا الكود لكن ظهر خطئ جديد
لم يجد ملف الاكسل مع العلم أني وضعت ملف الأكسل بنفس المسار ونفس الأسم المعلن عنه في الكود
شكرا
 
 


أثارت هذه المشاركة إعجاب: عبدالجيد،


توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



11-10-2017 02:56 مساء
مشاهدة مشاركة منفردة [8]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 812
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 461
قوة السمعة : 5672
الاعجاب : 1492
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
تمام كدا انت ممكن تعمل ملف اكسيل بنفس الاسم والامتداد وتحطه في دريف ال D:
وهيشتغل معاك او استخدم الكود التالي اذا كان في نفس مجلد البرنامج كما بالصورة
MjUwMTc0MQ535313513132
xlWorkBook = xlApp.Workbooks.Open(Application.StartupPath & "\test.xlsx")

ومرفق ملف الاكسيل المنفذ عليه المشروع
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
وتأكد من انك قمت بعمل ملف اكسيل بنفس الامتداد xlsx
تحياتي
 
 
  test.rar   تحميل rar مرات التحميل :(24)
الحجم :(7.019) KB


أثارت هذه المشاركة إعجاب: عبدالجيد،


توقيع :Yasser Elaraby
663013020



11-10-2017 06:31 مساء
مشاهدة مشاركة منفردة [9]
Kamel meraghni
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 99
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 561
الاعجاب : 121
 offline 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
متشكر جدا خلاص أشتغل و الحمد لله
المشكلة في ملف الاكسل
شكرا



توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



17-10-2017 10:59 صباحا
مشاهدة مشاركة منفردة [10]
ابراهيم80
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-09-2017
رقم العضوية : 512
المشاركات : 13
الجنس : ذكر
تاريخ الميلاد : 7-9-1981
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 22
الاعجاب : 6
 offline 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
بارك الله فيك استمر الى الامام123





17-10-2017 11:51 صباحا
مشاهدة مشاركة منفردة [11]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 812
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 461
قوة السمعة : 5672
الاعجاب : 1492
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
الشكر لله اخي الكريم كامل والحمد لله ان تم تشغيل الملف لديك
تحياتي



توقيع :Yasser Elaraby
663013020



17-10-2017 11:51 صباحا
مشاهدة مشاركة منفردة [12]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 812
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 461
قوة السمعة : 5672
الاعجاب : 1492
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ربط الفيجوال بيسك دوت نت بالاكسيل
جزاكم الله خيرا اخي الكريم ابراهيم على مروركم الكريم ودعمكم لنا
تحياتي142



توقيع :Yasser Elaraby
663013020





الكلمات الدلالية
الفيجوال ، بيسك ، بالاكسيل ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 06:38 صباحا

أعلن هنا
أعلن هنا
أعلن هنا