أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object

السلام عليكم ورحمة الله وبركاته سأقدم إن شاء الله سلسلة دروس تعليمية لكيفية التعامل مع الانترنت إكسبلورر من خلال الإكسي ..



03-11-2018 08:40 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 

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

سأقدم إن شاء الله سلسلة دروس تعليمية لكيفية التعامل مع الانترنت إكسبلورر من خلال الإكسيل والـ VBA ، وستكون دروس قصيرة سنركز فيها على نقاط بسيطة لتكون نقطة إنطلاق لمن يريد التعامل مع جلب البيانات من المواقع المختلفة ..

ستكون الدروس عبارة عن أكواد جاهزة ، وسنشرح أسطر الكود بحيث يمكنك تطويع الكود بما يتناسب معك

نبدأ على بركة الله
أولاً هذا هو الكود الذي سنقوم بشرحه
Sub Create_Internet_Explorer_Object_Navigate_To_Webpage()
    Dim ie          As Object

    Set ie = CreateObject("InternetExplorer.Application")
    
    With ie
        .Top = 0
        .Left = 0
        .Width = 800
        .Height = 600

        .Visible = True
        .navigate ("http://www.google.com.eg/")

        Do: DoEvents: Loop Until .readyState = 4
    End With
    
    MsgBox "Done...", 64
End Sub


في السطر الأول إعلان عن متغير من النوع Object حيث أن الـ Internet Explorer عبارة عن كائن أو كيان سيتم التعامل معه .. وسنشير له باسم المتغير ie (اختصار لكلمة Internt Explorer) 

ويمكن الإعلان عن الكائن بشكل آخر (أفضل من جهة) بهذا الشكل
Dim ie          As InternetExplorer

لكن إذا قمت بالإعلان عن المتغير بهذا الشكل سيكون عليك أن تقوم بتقعيل مكتبة Microsoft Internet Controls من خلال قائمة Tools ثم References ، وتقوم بوضع علامة صح أمام هذه المكتبة ، كما بالصورة التالية
s4q8De44OlAX08G

وفي هذه الحالة أيضاً ستقوم بتعيين قيمة للمتغير بهذا السطر
Set ie = New InternetExplorer


أما في حالة الكود الأصلي الذي طرحته بأول الموضوع ستكون طريقة تعيين المتغير بهذا الشكل
Set ie = CreateObject("InternetExplorer.Application")

حيث يتم إنشاء كيان جديد للمتصفح ie ..

** ما الفرق بين الطريقتين : 
الطريقة التي تستخدم فيها تفعيل المكتبة تسمى Early Binding أو الربط المبكر ، وهذا مفيد أثناء كتابة الكود ، حيث أن استخدام هذه الطريقة يظهر لك بشكل تلقائي الخصائص والأفعال المرتبطة بالكائن .. مثال ليتضح المقال
uUXPOJ4c88SKQEp

الأسطر التالية
        .Top = 0
        .Left = 0
        .Width = 800
        .Height = 600

للتحكم في وضع نافذة المتصفح .. فالخاصية Top تعني بعد النافذة من أعلى الشاشة ، والخاصية Left تعني بعد النافذة من يسار الشاشة ، والخاصية Width تعني عرض النافذة ، والخاصية Height تعني ارتفاع النافذة

أما السطر التالي
.Visible = True

يخص إظهار نافذة المتصفح وهنا القيمة True ، لأننا نريد أن يظهر المتصفح أثناء العمل على الكود ، ويمكن إخفاء النافذة بجعل القيمة False بدلاً من True

ننتقل إلى السطر الأهم وهو تصفح أو الذهاب لعنوان ويب معين
.navigate ("http://www.google.com.eg/")

حيث يتم كتابة عنوان الويب أو الصفحة المراد الذهاب إليها بين أقواس وأقواس تنصيص ، ونستخدم في هذه الحالة الفعل "navigate" (تصفح)

من المتعارف عليه أنه عند تصفح صفحة معينة فإن المتصفح قد يستغرق بعض الوقت لتحميل الصفحة ، ولضمان تحميل الصفحة بشكل كامل قبل استكمال عمل الكود نضع هذا السطر
Do: DoEvents: Loop Until .readyState = 4

حيث يقوم بعمل حلقة تكرارية ولا نفعل شيء داخل الحلقات التكرارية ، فقط بمثابة عملية انتظار للتحميل إلى أن يتم تحميل الصفحة بشكل كامل

أرجو أن يكون الدرس مفيد وواضح ، وتكون سلسلة هذه الدروس انطلاقة لمجال جديد لم يتطرق إليه الكثيرون في الوطن العربي
وفقني الله وإياكم لكل خير


وأترككم مع الشرح في الفيديو




*** إذا أعجبكم الفيديو لا تنسوا الضغط على زر إعجاب Like وعمل اشتراك بالقناة Subscribe وتفعيل زر الجرس ليصلكم كل جديد

b6ppr_YouTube


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

كان معكم أخوكم في الله / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: مدحت حافظ، ali mohamed ali،





03-11-2018 09:21 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1712
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17640
الاعجاب : 327
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object

جزاكم الله خيرا اخى الحبيب ياسر 3





توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



03-11-2018 09:33 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object
وجزيت خيراً بمثل ما دعوت لي يا غالي .. مشكور على مرورك العطر

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




03-11-2018 10:18 صباحا
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 395
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3219
الاعجاب : 209
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object
المشاركة الأصلية كتبت بواسطة: YasserKhalil
وجزيت خيراً بمثل ما دعوت لي يا غالي .. مشكور على مرورك العطر

​رائع
واصل من دون فواصل
و تابع مع دون تاعب

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




03-11-2018 11:08 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object
الأروع هو مرورك العطر بالموضوع أخي العزيز سليم

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




03-11-2018 12:23 مساء
مشاهدة مشاركة منفردة [5]
mouloudr
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 28
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 9-1-1977
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 34
الاعجاب : 0
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object

جزاكم الله خيرا اخى







03-11-2018 12:41 مساء
مشاهدة مشاركة منفردة [6]
khader
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-09-2018
رقم العضوية : 8001
المشاركات : 12
الجنس : ذكر
تاريخ الميلاد : 2-10-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 0
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object
بالتوفيق





03-11-2018 02:13 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object
وجزيتم خيراً إخواني بمثل ما دعوتم لي ..
تقبلوا تحياتي





03-11-2018 04:29 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object
تم إضافة رابط فيديو لشرح الموضوع ..أرجو أن ينال إعجابكم
ويا ريت مننساش لايك للفيديو ، واشتراك في القناة Subscribe ، وفعل الجرس عشان يوصلكم كل جديد إن شاء الله
تقبلوا تحياتي

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




03-11-2018 05:53 مساء
مشاهدة مشاركة منفردة [9]
خالد الشاعر
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 99
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
يتابعهم : 1
يتابعونه : 2
قوة السمعة : 138
الاعجاب : 2
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object
دائما مبدع استاذ ياسر

جزاك الله كل خيراً

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




03-11-2018 06:02 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object
تسلم أخي العزيز خالد ومشكور على مرورك العطر بالموضوع
ولاتنسى الاشتراك في القناة smile >> على الأقل أحسن من قناة السويس smile





03-11-2018 07:29 مساء
مشاهدة مشاركة منفردة [11]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1212
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5719
الاعجاب : 716
 Online 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object
رائع بارك الله فيك استاذى الكريم شرح وافى وكافى جعله الله فى ميزان حسناتك

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


03-11-2018 08:05 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif سلسلة التعامل مع الانترنت إكسبلورر من خلال الإكسيل (الدرس الأول) Create Internet Explorer Object
بارك الله فيك أخي الكريم علي .. الأروع هو مرروك المشرف بالموضوع
تقبل تحياتي






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
بداية الطريق لإنقاذ الغريق (أساسيات التعامل مع محرر الأكواد) VBE Basics YasserKhalil
11 1438 YasserKhalil
فارق السرعات بين التعامل مع خلايا ورقة العمل والمصفوفات Compare Worksheet Cells Arrays In Speed YasserKhalil
7 113 YasserKhalil
التعامل مع منتدى أكاديمية الصقر للتدريب Eslam Abdullah
40 4355 seba
كود بحث واستبدال داخل الوورد والتعامل مع محرر الاكواد Yasser Elaraby
14 1108 essam_bit
سلسلة اتعلم كيف تصطاد - شروحات الفورم -الدرس السابع والعشرون-Frame-التعامل مع العناصر داخل Frame الصقر
6 83 أباالحسن

الكلمات الدلالية
التعامل ، سلسلة ، الانترنت ، إكسبلورر ، Internet ، Explorer ، خلال ، الإكسيل ،


 







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



الساعة الآن 10:07 مساء

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