اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

 

تفضل:


    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
    

.

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

 

جعفر

رابط هذا التعليق
شارك

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

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

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

Report_to_Excel.rar

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

رابط هذا التعليق
شارك

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

 

الحل:

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

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

.

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

 

جعفر

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information