Undo قام بنشر سبتمبر 27, 2020 مشاركة قام بنشر سبتمبر 27, 2020 السلام عليكم احتاج كود للزر لاختيار ملف xml من الجهاز و من ثم يقوم النظام بقراءة ملف الxml المختار و يقوم بإستيراد قيم الtags الموضحة في جدول الشروط فقط حيث ان جدول الشروط يوضح الtags المطلوب استيرادها من ملف الxml و اسم رأس الجدول المراد وضع فيه بيانات كلtag في الجدول الاول الرجاء ربط الكود البرمجي مع جدول الشروط لكي يتسنى لي اضافة اوامر لاحقا في الجدول دون الحاجة لتعديل الكود البرمجي ملاحظة : احتاج كود برمجي خاص و ليس استيراد من اعدادات اكسل تم ارفاق ملف الاكسل و ملف xml و شكرا للجميع استيراد.xlsm xml.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر سبتمبر 28, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 28, 2020 لقراءة محتويات ملف xml يمكنك استعمال هذا الكود Sub mas_get_data() Dim Doc As Object, Variables As Object, r As Integer Set Doc = CreateObject("MSXML2.DOMDocument") Doc.async = False: Doc.validateOnParse = False Doc.Load ActiveWorkbook.Path & "\a.xml" 'get price r = 2 Set Variables = Doc.SelectNodes("//TWM_SAD/Item/Tarification") For Each variable In Variables Sheets(1).Range("f" & r).Value = variable.SelectNodes("Item_price").Item(0).Text r = r + 1 Next 'get description r = 2 Set Variables = Doc.SelectNodes("//TWM_SAD/Item/Goods_description") For Each variable In Variables Sheets(1).Range("d" & r).Value = variable.SelectNodes("Description_of_goods").Item(0).Text r = r + 1 Next MsgBox "Every thing is OK." End Sub بشرط وضع ملف xml ففي نفس مسار ملف الاكسل ويمكنك تغيير أسماء العقد nodes حسب ملف xml مع مراعاة مسار العقد الصحيح ومراعاة حالة الحروف 2 1 رابط هذا التعليق شارك More sharing options...
Undo قام بنشر سبتمبر 30, 2020 الكاتب مشاركة قام بنشر سبتمبر 30, 2020 شكرا لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.