logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





18-10-2017 01:04 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 137
المشاركات : 19
الجنس :
تاريخ الميلاد : 18-1-1981
قوة السمعة : 142
الاعجاب : 0
السلام عليكم ورحمة الله وبركاته إخواني الكرام
قبل أن أتكلم عن موضع تصدير البيانات أود أولاً أن أشكر أخي الحبيب ياسر خليل فكود الدخول لصفحة الحكومة الالكترونية كان البذرة الاولى لتعديل هذا الكود ليسمح باضافة البيانات لقاعدة البيانات في وقت قياسي ثم أطلب منكم فضلا لا أمر الدعاء لي ولوالدي بالرحمة والمغفرة ووالدتي حفظها الله ثم لعامة المسلمين وجزاكم الله خير
موضوع : تصدير بيانات التلاميذ على الحكومة الالترونية .
وقد قمت باستخدم مجموع من الأفكار للاخوة الافاضل منها فصل الاسماء واستخراج تاريخ الميلاد ومحافظة الميلاد والنوع ثم بعد ذلك تصديرها بضغطت زر في الاكسيل مباشرة . ولكن أود أن أنوه أيضاً على مراعاة بعض التغييرات مثل رقم المحافظة الموجود بالبرنامج غلى أخره . ولكن سوف أقوم برفع ملف التطبيق في وقت لاحق للتنبيه على بعض الامور والتغييرات إن شاء الله

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



look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  18-10-2017 01:14 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 137
المشاركات : 19
الجنس :
تاريخ الميلاد : 18-1-1981
قوة السمعة : 142
الاعجاب : 0
CODE
Option Explicit

'References : Microsoft HTML Object Library

#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Sub Logi1n_URL()
    Dim ie          As Object
    Dim element     As Object
    Dim str1        As String
    Dim str2        As String
    Dim str3        As String
    Dim lRow        As Long

    With Sheets("Sheet1")
        str1 = .Range("aa2").Value: str2 = .Range("ab2").Value: str3 = .Range("ac2").Value
    End With

    Set ie = CreateObject("InternetExplorer.Application")

    With ie
        .Visible = True
        .Navigate "http://student.moe.gov.eg/new/serch_students.aspx"
        Do Until .ReadyState = 4: DoEvents: Loop

        On Error Resume Next
        .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox1").Value = str1
        .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox2").Value = str2
        .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = str3

        For Each element In .Document.getElementsByTagName("input")
            If element.Type = "submit" Then element.Click: Exit For
        Next element
    End With
End Sub



Sub Logi2n_URL()
    Dim ie           As Object
    Dim element      As Object
    Dim str01        As String
    Dim str02        As String
    Dim str03        As String
    Dim str04        As String
    Dim str05        As String
    Dim str06        As String
    Dim str07        As String
    Dim str08        As String
    Dim str09        As String
    Dim str10        As String
    Dim str11        As String
    Dim str12        As String
    Dim str13        As String
    Dim str14        As String
    Dim str15        As String
    Dim str16        As String
    Dim str17        As String
    Dim str18        As String
    Dim str19        As String
    Dim str20        As String
    Dim str21        As String
    Dim str22        As String
    Dim str23        As String
    Dim str24        As String
    Dim str25        As String
    
    
    Dim lRow        As Long
    

    With Sheets("Sheet1")
        str01 = .Range("a2").Value: str02 = .Range("b2").Value: str03 = .Range("c2").Value: str04 = .Range("D2").Value: str05 = .Range("E2").Value:  str06 = .Range("F2").Value: str07 = .Range("G2").Value: str08 = .Range("H2").Value: str09 = .Range("I2").Value: str10 = .Range("J2").Value:  str11 = .Range("K2").Value: str12 = .Range("L2").Value: str13 = .Range("M2").Value: str14 = .Range("N2").Value: str15 = .Range("O2").Value:  str16 = .Range("P2").Value: str17 = .Range("Q2").Value: str18 = .Range("R2").Value: str19 = .Range("S2").Value: str20 = .Range("T2").Value:    str21 = .Range("U2").Value: str22 = .Range("V2").Value: str23 = .Range("W2").Value: str24 = .Range("X2").Value: str25 = .Range("Y2").Value

    End With

    Set ie = CreateObject("InternetExplorer.Application")

    With ie
        .Visible = True
        .Navigate "http://student.moe.gov.eg/new/new_students.aspx"
        Do Until .ReadyState = 4: DoEvents: Loop

        On Error Resume Next
        ' ÇÓã ÇáÊáãíÐ
        .Document.All.Item("ctl00$ContentPlaceHolder1$Txtfirstname").Value = str01
        .Document.All.Item("ctl00$ContentPlaceHolder1$Txtfathername").Value = str02
        .Document.All.Item("ctl00$ContentPlaceHolder1$Txtgfname").Value = str03
        .Document.All.Item("ctl00$ContentPlaceHolder1$Txtfamly").Value = str04
        
        .Document.All.Item("ctl00$ContentPlaceHolder1$DropDownListr").Value = str05
        .Document.All.Item("ctl00$ContentPlaceHolder1$DropDownListsex").Value = str06
        .Document.All.Item("ctl00$ContentPlaceHolder1$DropDownListnat").Value = str07
        
        .Document.All.Item("ctl00$ContentPlaceHolder1$Txtstreet").Value = str08
        
        .Document.All.Item("ctl00$ContentPlaceHolder1$DropDay").Value = str09
        .Document.All.Item("ctl00$ContentPlaceHolder1$Dropmonth").Value = str10
        .Document.All.Item("ctl00$ContentPlaceHolder1$Textyear").Value = str11
        
        .Document.All.Item("ctl00$ContentPlaceHolder1$Txtnatid").Value = str12
        
        .Document.All.Item("ctl00$ContentPlaceHolder1$Txttel").Value = str13
        .Document.All.Item("ctl00$ContentPlaceHolder1$Txtmobile").Value = str14
        
        .Document.All.Item("ctl00$ContentPlaceHolder1$DropDownList5").Value = str15
        
        .Document.All.Item("ctl00$ContentPlaceHolder1$TextBoxm1").Value = str16
        .Document.All.Item("ctl00$ContentPlaceHolder1$TextBoxm2").Value = str17
        .Document.All.Item("ctl00$ContentPlaceHolder1$TextBoxm3").Value = str18
        
        .Document.All.Item("ctl00_ContentPlaceHolder1_Ddlistresult").Value = str19
        .Document.All.Item("ctl00$ContentPlaceHolder1$Ddlistresult45").Value = str20
        .Document.All.Item("ctl00$ContentPlaceHolder1$DropDownListclas").Value = str21
        .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = str22
        .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = str23
        .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = str24
        .Document.All.Item("ctl00$ContentPlaceHolder1$DropDownListl2").Value = str25

        
        .Document.All.Item("ctl00_ContentPlaceHolder1_saveButton").Click
        'For Each element In .Document.getElementsByTagName("input")
        '    If element.Type = "submit" Then element.Click: Exit For
        'Next element
    End With
End Sub

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



look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  18-10-2017 06:41 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
وعليكم السلام أخي العزيز محمد ربيع
بارك الله فيك وجزاك الله خيراً وجعل ما تقدمه في ميزان حسناتك يوم القيامة
وفي انتظار ملف التطبيق إن شاء الله لتمام الاستفادة

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



look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  24-10-2017 10:41 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس :
تاريخ الميلاد : 2-2-1990
قوة السمعة : 657
الاعجاب : 0
بارك الله فيك وجزاك الله خيراً استاذ محمد ربيع
وفي انتظار ملف التطبيق إن شاء الله لتمام الاستفادة

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



look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  14-11-2017 12:08 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 137
المشاركات : 19
الجنس :
تاريخ الميلاد : 18-1-1981
قوة السمعة : 142
الاعجاب : 0
إن شاء الله في أقرب وقت ممكن ومتأسف جداً للتأخير ودا بسبب انشغلي بالعمل .




look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  14-11-2017 12:09 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 137
المشاركات : 19
الجنس :
تاريخ الميلاد : 18-1-1981
قوة السمعة : 142
الاعجاب : 0
المشاركة الأصلية كتبت بواسطة: ناصر سعيد1 بارك الله فيك وجزاك الله خيراً استاذ محمد ربيع
وفي انتظار ملف التطبيق إن شاء الله لتمام الاستفادة
وجزاك بالمثل أخي الكريم إن شاء الله في أقرب وقت ممكن




look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  16-11-2017 07:33 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
ما زلنا في انتظار ملف التطبيق أخي الكريم
جزاك الله خيراً




look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  20-11-2017 12:23 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس :
تاريخ الميلاد : 2-2-1990
قوة السمعة : 657
الاعجاب : 0
ما زلنا في انتظار ملف التطبيق أخي الكريم
جزاك الله خيراً




look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  20-11-2017 08:27 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
مى تو 121



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

تحياتى وتقدير للجميع  محمود ابوالدهب

look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  27-11-2017 01:42 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 137
المشاركات : 19
الجنس :
تاريخ الميلاد : 18-1-1981
قوة السمعة : 142
الاعجاب : 0
السلام عليكم ورحمة الله وبركاته
معلش حبيت أعمل شوية تشويق
بس للأسف التفاعل ضعيف
عموما مش مشكلة
بس فعلاً كنت مشغول
الملف في الرابط التالي
https://drive.google.com/file/d/1DP739A1BdYCGxTzIN_WYc_EFKYIcKvsq/view?usp=sharing




look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  27-11-2017 01:45 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 137
المشاركات : 19
الجنس :
تاريخ الميلاد : 18-1-1981
قوة السمعة : 142
الاعجاب : 0
ولو في أي استفسار ممكن تركه في المنتدي أو مراسلتي على حساب الفيس الخاص بي إذا سمحت إدارة المنتدى




look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  27-11-2017 01:54 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بارك الله فيك وجزاك الله خيراً أخي العزيز وجعله الله في ميزان حسناتك يوم القيامة
تقبل وافر تقديري واحترامي




look/images/icons/i1.gif تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات
  27-11-2017 08:36 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس :
تاريخ الميلاد : 2-2-1990
قوة السمعة : 657
الاعجاب : 0
جزاك الله الف الف خير وبارك فيك
وبعد :
هل ادخال البيانات عن طريق الفورمه فقط ام يجوز ادخال البيانات عن طريق النسخ واللصق




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 3 < 1 2 3 >





الكلمات الدلالية
تصدير ، بيانات ، الحكومة ، الالكترونية ، الاكسيل ، قاعدة ، البيانات ،









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

الساعة الآن 01:08 AM