جلب بيانات من صفحة إنترنت

[syrian_a]

أخوتي لدي سؤال

 

هل يمكن جلب بيانات محددة من صفحة الانترنت و تخزينها في جدول في قاعدة بيانت الأكسيس, و كيف ذلك مع مثال بسيط يشمل كود العملية إن وجد؟

 

ملاحظة: آسف لعدم ارفاق مثال أنها مجرد فكرة حتى الآن ولا أعلم كيفية البدء بها

[أبو آدم]

هذه بوابة لما تفكر به

وهناك المزيد

 

 

 

Dim objIE As Object    
    Set objIE = CreateObject("InternetExplorer.Application")
    
    With objIE
        .Visible = True
        .Navigate "http://www.google.co.uk"
        Do While .ReadyState <> 4: DoEvents: Loop
        With .Document.Forms(0)
            .q.Value = "officena"
        End With
        .Document.f.Submit
        Debug.Print .Document.Body.outerText
    End With
 

[syrian_a]

أخ أبو آدم

 

شكراً تجاوبك السريع .. وآسف على تفاعلي البطيئ بسبب ظروف طارئة

 

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

بحيث عندما نضغط زر أمر تكون آلية العمل كالتالي

 

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

 

 لا أعرف إن كنت قد عبرت عن الفكرة بشكل جيد

[syrian_a]

للرفع

[syrian_a]

للرفع

[أبو آدم]

زودنا بعنوان الصفحة ، علنّا نتمكن من اجابة الطلب

 

........

[syrian_a]

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

 

لا تضحك علي ممكن يكون طلبي هبل بس هو سؤال و منكم نستفيد

[syrian_a]

للرفع

[syrian_a]

للرفع