استيراد محتوى ويب إلى مصنف Excel

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

استيراد محتوى ويب إلى مصنف Excel

مُساهمة من طرف السنى في الأربعاء أغسطس 07, 2013 10:00 am

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

إستيراد محتوى ويب إلى مصنف Excel درس بيسط ويتم ذلك على النحو التالى :

1_ قم بفتح  مشروع قياسى جديد 
2_قم بادراج المكتبة microsoft winhttp services الى المشروع 
3_قم بإنشاء وحفظ مصنف Excel فى مجلد المشروع
4_ إنشاء وحدة نمطية Module1 لكتابة الاكواد التالية :

أ_ نقوم بإنشاء إجراء وليكن بأسم على النحو التالى :

الرمز:
Public Sub GetPage(Optional prmURL As Variant)
  
End Sub

ب _ داخل هذا الاجراء سنقوم بكتابة الشفرة التالية :
الرمز:
Dim WinHttpReq As WinHttp.WinHttpRequest
    Dim txtURL As Variant
        
    If IsMissing(prmURL) Or IsNull(prmURL) Or IsEmpty(prmURL) Then
        txtURL = "http://egy-tech.forumegypt.net"
    Else
        txtURL = prmURL
    End If

فى السطر الاول من الكود قمنا بالاعلان عن المتغير WinHttpReq  للاشارة للكائن WinHttp.WinHttpRequest 
فى السطر الثانى من الكود قمنا بالاعلان عن المتغير txtURL ليتم تخزين فية رابط صفحة الويب المراد جلب بيانتها فى مصنف exel 
أما الاسطر الاخير فهى عبارة عن جملة شرطية للتأكد من وجود عنوان ويب فى المتغير  txtURL و فى حالة أن المتغير خالى يتم الذهاب الى عنوان الويب الافتراضى   http://egy-tech.forumegypt.net 

ج _ سنقوم بإضافة الشفرة التالية بعد الكود أعلاه و ذلك لانشاء مثيل للكائن WinHTTPRequest على النحو التالى :
الرمز:
Set WinHttpReq = New WinHttpRequest

د _ سنقوم ايضا باضافة الشفرة التالية بعد الكود أعلاه و ذلك لخلق طلب فتح HTTP على النحو التالى :
الرمز:
WinHttpReq.Open "GET", txtURL, False

ج _  سنقوم ايضا باضافة الشفرة التالية بعد الكود أعلاه و ذلك لارسال طلب http فى عنوان الويب

الرمز:
WinHttpReq.Send

 د_ سنقوم ايضا بإضافة الشفرة التالية بعد الكود أعلاه لوضع حالة التحميل و المحتوى المصنف الخاص بك  في العمود رقم 1، الصف رقم 2  و 3 على سبيل المثال ....و ذلك على النحو التالى :
الرمز:
ActiveSheet.Cells(2, 1) = WinHttpReq.Status & " - " & WinHttpReq.StatusText
    ActiveSheet.Cells(3, 1) = WinHttpReq.ResponseText

و الشفرة الكاملة لهذا الاجراء فى الوحدة النمطية سيكون على النحو التالى :

الرمز:
Public Sub GetPage(Optional prmURL As Variant)
    Dim WinHttpReq As WinHttp.WinHttpRequest
    Dim txtURL As Variant
        
    If IsMissing(prmURL) Or IsNull(prmURL) Or IsEmpty(prmURL) Then
        txtURL = "http://www.devx.com"
    Else
        txtURL = prmURL
    End If
    
    Set WinHttpReq = New WinHttpRequest
    WinHttpReq.Open "GET", txtURL, False
    WinHttpReq.Send
        
    ActiveSheet.Cells(2, 1) = WinHttpReq.Status & " - " & WinHttpReq.StatusText
    ActiveSheet.Cells(3, 1) = WinHttpReq.ResponseText
End Sub

د _ اخيرا يمكنك استدعاء هذا الاجراء فى أى مكان فى مشروعك و إستيراد محتوى ويب إلى مصنف Excel بأستخدام الشفرة التالية :

الرمز:
GetPage "http://www.microsoft.com"

حيث أن http://www.microsoft.com هو موقع الويب الذى ستقوم بجب المحتوى منه 

أتمنى ان اكون وفقت فى شرح هذا الدرس 

السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: استيراد محتوى ويب إلى مصنف Excel

مُساهمة من طرف أحمد مناع في الأربعاء أغسطس 07, 2013 12:15 pm

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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 809
النقاط : 1478
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: استيراد محتوى ويب إلى مصنف Excel

مُساهمة من طرف م/موسي في السبت أغسطس 10, 2013 8:42 am

جزاك الله عنا خير الجزاء .... وبارك فيك

م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 130
النقاط : 252
التقيم : 8
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى