اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

مطلوب مني إدخال بيانات بطاقة شخصية على موقع رسمي للنازحين في تركيا( البيانات موجودة لدي في ملف اكسل قمت بإعداداها من قبل) المشكله أن العدد كبير جدا لكي أدخلها يدويا 7000 بطاقة شخصية هل يمكن تعبئتها من ملف اكسل الى الموقع لم أجد حل حتى الآن.. Screenshot_20220712-234944_Chrome.jpg.282bae1631862a132b60c546ca5e6127.jpg

قام بنشر

هل الموقع يفتح بصورة طبيعية في متصفح انترنت اكسبلورر؟

إذا كانت الإجابة بنعم فمن السهل إنجاز المهمة بالكود

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

  • Like 2
قام بنشر

أهلا استاذي الموقع يفتح بشكل جيد على اكسبلور ...سؤال هل الكود يضر بالموقع او يظهر عندهم. 

 

 

  • أفضل إجابة
قام بنشر

الكود لا يضر الموقع ولا يظهر عندهم 

الكود يقوم بما يقوم به المستخدم ولكن بصورة آلية 

تحتاج قبل البدء معرفة ID حقل اسم المستخدم وكذلك كلمة المرور وكذلك زر الدخول 

وبعدها ID لكل حقل سيتم تعبئته من الشيت وكل زر سيتم الضغط عليه 

لمعرفة ID لعنصر نضغط بزر الفارة الأيمن على العنصر في المتصفح ونختار inspect element 

وبعدها نستخدم كود انشاء نسخة من كائن متصفح انترنت اكسبلورر بمثل هذا الكود 

Dim IE As Object, site as String
Set IE = CreateObject("InternetExplorer.Application")
    site = "https://www.example.com/"
    With IE
        .Visible = True
        .navigate site
    Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop
    End With

    IE.Document.getElementById("username").Value = range("aa1").value
    IE.Document.getElementById("password").Value = range("ab1").value

    IE.Document.getElementById("login_go").Click
    Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop

وهكذا في كتابة قيم الحقول من الشيت نستعمل حلقة تكرارية مثل for - next

وهكذا الضغط على اي زر لحفظ البيانات مثلا

بالتوفيق 

  • Like 5
قام بنشر

شكرا لك استاذي الفاضل لا اعلم كيف استطيع شكرك اختصار عمل خمس اشهر في كود واحد

نظريا فهمت الطريقة لكن عمليا لم استطع تطبيقها هل يمكن لحضرتك استاذي أن أرسل اليك فئة وليكن عشر بطاقات وان تعلمني الطريقة وتصورها لي وكل الشكر لصبرك علي 

قام بنشر

لقد عرضت لك الحل كاملا

نظرا لسرية البيانات وخصوصا بيانات الدخول (اسم المستخدم وكلمة المرور) على موقع رسمي كهذا

 

  • Like 1
قام بنشر

لا اعلم سأحاول تطبيقه ان شاء الله في حال عدم نجاحي ...لطفا منك وجعله في ميزان حسناتك سأتواصل معك 

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

ان شاء الله سأقوم بتطبيق ما كتبت أستاذي الكريم وأرجو منك في حال واجهت مشكلة أن تلبيني 

  • 5 months later...
قام بنشر

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

لان انا تقريبا موضوعى قريب من هذا الموضع وهيوفر على كتير وقت

نفس النظام (اسم المستخدم وكلمة المرور) على موقع رسمي ولكن تصدير تأشيرات 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information