ارسال تقرير الاكسس الى نموذج جاهز بالاكسل

[محب اوفيسينا]

 

1- هل يمكن ارسال البيانات من نموذج الاكسس الى نموذج الاكسل بامر التصديراو الطباعة بدون تغير تنسيق نموذج الاكسل

مجلد جديد.rar

[jjafferr]

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

 

تفضل:

    Dim appexcel As Object
    Dim wbexcel As Object
       
    Set appexcel = CreateObject("Excel.Application")
    appexcel.Visible = True
    'Set wbexcel = appexcel.Workbooks.Open("C:\Excel.xls")
    Set wbexcel = appexcel.Workbooks.Open(Application.CurrentProject.Path & "\536.To.xlsx")

    appexcel.Sheets("النموذج الذي تكون عليه الطباعة").Select
    
    appexcel.[B3] = Me.[اليوم]
    appexcel.[E4] = Me.[الحي]
        
    Set xlSheet = Nothing: Set xlBook = Nothing: Set xlApp = Nothing
    

.

ولكن ، لماذا لا تعمل التقرير في الاكسس مباشرة ، كون البيانات في الاكسس ، وتقريرك شكله سهل !!

 

جعفر

[jjafferr]

وهذه طريقة اخرى

 

جعفر

 

[محب اوفيسينا]

اعتذر اخي جعفر على  التاخير في الرد

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

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

Report_to_Excel.rar

النموذج الذي يستقبل البيانات المرسل من نموذج الاكسس.rar

[jjafferr]

تفضل ، هذا المرفق عملته سابقا لحقلين فقط (وهما في الكود اعلاه ،

فيجب عليك نقل الكود الى نموذجك ، واكمال الكود لباقي الحقول.

 

جعفر

536.zip

[محب اوفيسينا]

 

مشكور على سرعة  الرد ماقدمته اثابك الله 

وجاري التطبيق

 

ظهرت لي المشكلة هذييوجد خطا.rar

يوجد خطا.rar

[محب اوفيسينا]

السلام عليكم ياستاذ جعفر حصل معي الخطأ التالي

[محب اوفيسينا]

السلام عليكم ارجو المساعدة يااعضاء المنتدى بالعبارة الموجود في الصورة حيث يوجد خطا في الكود كيف اعالج الموضوع

[jjafferr]

اين يوجد ملف الاكسل ، وما مساره؟

 

وما هي رسالة الخطأ التي ظهرت لك؟

[محب اوفيسينا]

C:\Users\abdullah\Desktop\ABD.xlsx

هذا مسار الملف

[jjafferr]

الخطأ بسبب انك ما غيرت مسار ملف الاكسل الى المسار الصحيح ، بل ظل المسار القديم في الكود

 

الحل:

بدل هذا السطر
Set wbexcel = appexcel.Workbooks.Open(Application.CurrentProject.Path & "\536.To.xlsx")

استعمل
Set wbexcel = appexcel.Workbooks.Open("C:\Users\abdullah\Desktop\ABD.xlsx")

.

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

 

جعفر

[محب اوفيسينا]

نشكر على المساعدة 

اسف 

[jjafferr]

ولا يهمك ، وحياك الله

 

جعفر