استيراد عدة أوراق من الأكسل

[Hosain21]

السلام عليكم ورحمة الله وبركاته

أساتذتي الكرام :

وجدت هنا هذا الكود

http://www.officena.net/ib/index.php?showtopic=38385&st=20#entry235646

ولكن لم أحسن وضعه فلم يعمل معي .

أتمنى من الأساتذة الكرام إرشادي إلى الكيفيّة الصحيحة لوضعه .

[ابوخليل]

وعليكم السلام ورحمة الله وبركاته

بقي عليك ان تلتقط هذين الكودين بين اصبعين اقصد في زرين

لان صاحبها لا يريد ان يحرمك لذة العمل .

ارتباط وفك ارتباط بأكسل.rar

[Hosain21]

أستاذي الكريم الغالي :

أجزل الله لكم المثوبة على ما تبذلونه من جهد .

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

المشكلة أنني أريد إضافة ما في الأوراق من بيانات إلى جدول محدد .

أستخدم حاليا هذا الكود (ولكن بطريقة غير ملائمة)

DoCmd.TransferSpreadsheet acImport, 8, "sheet", Me.txtPath, False, "sheet1!A2:AP500"

DoCmd.TransferSpreadsheet acImport, 8, "sheet", Me.txtPath, False, "sheet2!A2:AP500"

وأكرر الكود بالعدد المتوقع لأقصى عدد ممكن من الأوراق ، ولكن أتمنى لو وجدت حلا أفضل

تم تعديل يوليو 18, 2012 بواسطه Hosain21