محب اوفيسينا قام بنشر يناير 16, 2017 مشاركة قام بنشر يناير 16, 2017 1- هل يمكن ارسال البيانات من نموذج الاكسس الى نموذج الاكسل بامر التصديراو الطباعة بدون تغير تنسيق نموذج الاكسل مجلد جديد.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 وعليكم السلام تفضل: 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 . ولكن ، لماذا لا تعمل التقرير في الاكسس مباشرة ، كون البيانات في الاكسس ، وتقريرك شكله سهل !! جعفر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 وهذه طريقة اخرى جعفر رابط هذا التعليق شارك More sharing options...
محب اوفيسينا قام بنشر يناير 17, 2017 الكاتب مشاركة قام بنشر يناير 17, 2017 اعتذر اخي جعفر على التاخير في الرد ومشكور على ماقدمته ولكن لم استوعب فكرة الكود المرفق اين اضعه والود ان تشرح لي اثابك الله وهذا الاكسس المرفق الذي اريد ان ارسل منه البيانات مباشرة الى النموذج المنسق داخل الاكسل المرفق Report_to_Excel.rar النموذج الذي يستقبل البيانات المرسل من نموذج الاكسس.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 17, 2017 مشاركة قام بنشر يناير 17, 2017 تفضل ، هذا المرفق عملته سابقا لحقلين فقط (وهما في الكود اعلاه ، فيجب عليك نقل الكود الى نموذجك ، واكمال الكود لباقي الحقول. جعفر 536.zip رابط هذا التعليق شارك More sharing options...
محب اوفيسينا قام بنشر يناير 17, 2017 الكاتب مشاركة قام بنشر يناير 17, 2017 مشكور على سرعة الرد ماقدمته اثابك الله وجاري التطبيق ظهرت لي المشكلة هذييوجد خطا.rar يوجد خطا.rar رابط هذا التعليق شارك More sharing options...
محب اوفيسينا قام بنشر يناير 18, 2017 الكاتب مشاركة قام بنشر يناير 18, 2017 السلام عليكم ياستاذ جعفر حصل معي الخطأ التالي رابط هذا التعليق شارك More sharing options...
محب اوفيسينا قام بنشر يناير 18, 2017 الكاتب مشاركة قام بنشر يناير 18, 2017 السلام عليكم ارجو المساعدة يااعضاء المنتدى بالعبارة الموجود في الصورة حيث يوجد خطا في الكود كيف اعالج الموضوع رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 18, 2017 مشاركة قام بنشر يناير 18, 2017 اين يوجد ملف الاكسل ، وما مساره؟ وما هي رسالة الخطأ التي ظهرت لك؟ رابط هذا التعليق شارك More sharing options...
محب اوفيسينا قام بنشر يناير 18, 2017 الكاتب مشاركة قام بنشر يناير 18, 2017 C:\Users\abdullah\Desktop\ABD.xlsx هذا مسار الملف رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 18, 2017 مشاركة قام بنشر يناير 18, 2017 الخطأ بسبب انك ما غيرت مسار ملف الاكسل الى المسار الصحيح ، بل ظل المسار القديم في الكود الحل: بدل هذا السطر Set wbexcel = appexcel.Workbooks.Open(Application.CurrentProject.Path & "\536.To.xlsx") استعمل Set wbexcel = appexcel.Workbooks.Open("C:\Users\abdullah\Desktop\ABD.xlsx") . ورجاء لا تستخدم الحروف الكبيرة في الكتابة في المنتدى ، فالبعض يعتبرها كانك تتكلم بصوت عال جعفر رابط هذا التعليق شارك More sharing options...
محب اوفيسينا قام بنشر يناير 18, 2017 الكاتب مشاركة قام بنشر يناير 18, 2017 نشكر على المساعدة اسف رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 18, 2017 مشاركة قام بنشر يناير 18, 2017 ولا يهمك ، وحياك الله جعفر رابط هذا التعليق شارك 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.