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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


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





استخراج بعض بيانات ملف xml عن طريق vba

السلام عليكم تقبل الله منا و منكم انا بصدد استخراج بعض البيانات من ملف xml عن طريق vba لأستعمالها لكن لم أستطع الوصول إ ..



26-05-2020 11:04 مساء
chardoneret
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-05-2019
رقم العضوية : 13015
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 5-11-1977
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 59
 offline 

السلام عليكم
تقبل الله منا و منكم
انا بصدد استخراج بعض البيانات من ملف xml  عن طريق vba لأستعمالها
لكن لم أستطع الوصول إلى العقد
العقد الرئيسية هي : <Activities_List>
ثم استخلاص البيانات على شكل قائمة من
<Activity>
    <Teacher>لغة عربية2</Teacher>
    <Subject>آدب عربي</Subject>
    <Students>1علمي1</Students>
    <Duration>1</Duration>
    <Total_Duration>4</Total_Duration>
    <Id>1</Id>
    <Activity_Group_Id>1</Activity_Group_Id>
    <Active>true</Active>
    <Comments></Comments>
</Activity>

القائمة تحتوي على عدة أسطر
الرجاء مساعدتي في اتمام العملية
الملف في المرفقات مع ملف الأكسل
ملف xml غيرت له الامتداد إلى fet لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
 
  fettoxls.rar   تحميل rar مرات التحميل :(5)
الحجم :(28.829) KB


27-05-2020 06:21 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif استخراج بعض بيانات ملف xml عن طريق vba
وعليكم السلام أخي الكريم
جرب الكود التالي
Sub XML_Importer()
    Dim fd As Office.FileDialog, xDoc As Object, activitiesList As Object, activity As Object, sFileName As String, r As Long, c As Long
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Filters.Clear
        .Title = "Select A FET File"
        .Filters.Add "FET File", "*.FET", 1
        .AllowMultiSelect = False
        If .Show = False Then Exit Sub
        sFileName = .SelectedItems(1)
    End With
    Set xDoc = CreateObject("MSXML2.DOMDocument")
    With xDoc
        .Async = False: .ValidateOnParse = False: .Load (sFileName)
        Set activitiesList = .SelectNodes("//Activity")
    End With
    r = 2
    Application.ScreenUpdating = False
        For Each activity In activitiesList
            With Sheets("Sheet1")
                For c = 1 To 4
                    .Cells(r, c).Value = activity.ChildNodes(c - 1).Text
                Next c
            End With
            r = r + 1
        Next activity
    Application.ScreenUpdating = True
End Sub

27-05-2020 01:49 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif استخراج بعض بيانات ملف xml عن طريق vba
بارك الله فيك أخي العزيز أحمد يوسف ومشكور على مرورك العطر

27-05-2020 02:46 مساء
مشاهدة مشاركة منفردة [3]
chardoneret
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-05-2019
رقم العضوية : 13015
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 5-11-1977
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 59
 offline 
look/images/icons/i1.gif استخراج بعض بيانات ملف xml عن طريق vba
بارك الله فيك و أعطاك و مناك و رزقك علما نافعا و زادك علما على علم
كفيت و وفيت
بس ياريت شرح خفيف للكود

27-05-2020 05:33 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif استخراج بعض بيانات ملف xml عن طريق vba
بارك الله فيك أخي الكريم .. حاول تتبع الاكواد باستخدام F8 لتعلم وتعرف ماذا يفعل كل سطر ، ثم إن معظم الأسطر في كودك .. عدلت في أجزاء بسيطة لتستطيع الحصول على النتائج المطلوبة
الحمد لله الذي بنعمته تتم الصالحات




الكلمات الدلالية
استخراج ، بيانات ، طريق ،


 










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

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