تصدير

وعليكم السلام بوحسين :)

هذا المثال من عمل اختنا الفاضلة الدكتورة أم عهود :)

انا انزلت البرنامج ، وشغال بدون اخطاء ، وتقدر تغير مصدر المعلومات من استعلام الى جدول كذلك ،

لكن الدكتورة ربطت الكود وملف الاكسل ، ربطتهم باسم الااستعلام :)

كود ارسال جدول او استعلام الى اكسل هو:

    a = Application.currentproject.path & "\" & "myExcelFile" & ".xls"
    
    'delete the old file
    Kill a
    
    'now export the new file
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qry_Ministry", a

الكود اعلاه يصدر بيانات الاستعلام qry_Ministry الى ملف اكسل ، لكنك تقدر تخلي اسم الجدول بدله :)

الميزه في الاستعلام ، انك تقدر تختار الحقول ، وترتيبها ، وتحط فيها الفلتر كذلك :)

جعفر

تصدير.7z

صور.7z

اشكرك اخي جعفر على سرعة التجاوب مع الموضوع والشكر موصول للاخت زهرة حفظها الله

بخصوص الملف تم ارسال الملف الاصلي اليكم الملف الذي طلعت فيه الرسالة مع الصور للخطأ  

كما اعتقد ان المشكلة في كثر البيانات ارجو الافادة وبالله التوفيق 

من الصعب تغيير الكود ، الا اذا دخلت في تفاصيله :(

خبرني اي جدول تريد تصدر للاكسل ، واعمل الكود علشانه :)

جعفر

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

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

فوق البيانات القديمة ................................ ما في طريقة او اضافة للكود تجعله عند كل 

ارسال للبيانات يقوم اولا بمسح البيانات السابقة  

ارجو ان تكون الفكرة واضحة                   :rose:

وعليكم السلام :)

بوحسين كتب:

ارسال للبيانات يقوم اولا بمسح البيانات السابقة  

الله ان شاء الله يطول في عمرك بوحسين ، الظاهر انك ما شفت الكود اللي تركته لك ، او انك استخدمت الجزء السفلي منه فقط :(

الجزء التالي يحذف الملف القديم :)

a = Application.currentproject.path & "\" & "myExcelFile" & ".xls"
    
    'delete the old file
    Kill a

جعفر

شكرا على التنبيه فعلا انا لم اجرب الكود السابق وانما عدلت على كود الاخت زهرة

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

زهرة  , وبالنسبة للكود الذي ارسلته اخي جعفر  فهو ممتاز في سرعة تنفيذ الامر فهل يمكن ان تبدأ عملية  

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

تحياتي للجميع

اخي بوحسين :)

انا عملت برنامج جديد ، واتمنى ان يعمل اللي تريده :)

اليك الرابط:

/index.php/topic/292972-%D9%87%D8%AF%D9%8A%D8%A9-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D8%AA%D8%B5%D8%AF%D9%8A%D8%B1-%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D9%85%D9%86-%D8%AC%D8%AF%D8%A7%D9%88%D9%84%D8%A7%D8%B3%D8%AA%D8%B9%D9%84%D8%A7%D9%85%D8%A7%D8%AA-%D8%A7%D9%83%D8%B3/

جعفر