الماسح الضوئي وكتابة اسم الصور تلقائيا

[ماجدجلال]

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

استفدت كثيرا من مشاركات الاخوة الاعزاء قبلي و لكن احيانا اعجز عن تعديل الكود ليناسب عملي , ارجو منكم المساعدة ,,,

في الملف المرفق , المستخدم للبرنامج يشكو من الاخطاء التي تحدث عند كتابة اسماء الصور الي معالج الماسح الضوئي , و كذلك المسار لمجلد الحفظ ( حيث ان طلبة يتم حفظ الوثائق علي شكل صور JPEG في مجلد عادي ) ,,

فهل نستطيع ان نجعل الكود يقوم تلقائيا بنسخ اسم الصور من النموذج العلوي الي نموذج معالح الماسح الضوئي ,,,

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

 

majeed.xls

[ماجدجلال]

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

هذة وصلة لنفس الموضوع ولكن في قسم الاكسيس , و هو للاستاذ المبدع ابوهادي , و البرنامج يعمل بشكل صحيح 100% و اذا كانت الاكواد تعمل في الاكسيس فاعتقد اننا يمكنها ان تعمل في الاكسيل 

حاولت نقلها و لكني فشلت ,,,

الملف المرفق به برنامج اكسيس للتعامل مع الماسح الضوئي 

Scanner_20050524.rar

[ماجدجلال]

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

وضعت الكود السابقة في برنامج الاكسيل و ظهر لي خطاء في السطر التالي 

 Ret = TWAIN_AcquireToFilename(Me.Hwnd, PictureFile)

بحث عنه في جوجل و لم اجد حلا 

حاولت حذفت كلمة ME  فقد تكون غير مناسبة ل VBA  الاكسيل و لم يتم حل المشكلة 

و ما زلت ابحث , وان شاء الله نجد حلا , ومن يستطيع من الاساتذة المساعدة فارجوكم كرما ان يساعدنا 

و شكرا لكم 

[الـعيدروس]

السلام عليكم

جرب المرفق

 

 

 

Cy_Scan_Ali.xlsm

تم تعديل نوفمبر 18, 2019 بواسطه الـعيدروس

[ماجدجلال]

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

شكرا لك استاذ / العيدروس 

الف شكرا 

وجهتني مشكلة بسيط ,,, الصورة غير واضحة جدا 

هل من الممكن اضافة زر لتحديد نوع المساح الضوئي ؟؟؟؟؟

في حالة وجود اكثر من ماسح ضوئي 

 

[الـعيدروس]

هل لديك اكثر من جهاز ماسح ضوئي على نفس الجهاز

جرب اشبك واحد فقط 

واتمنى ترفق صورة من تجربة الكود

 

[ماجدجلال]

بارك الله فيك استاذ العيدروس ...

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

On Error GoTo err_command30_cilck
Dim stappname As String
stappname = "C:\WINDOWS\System32\wiaacmgr.exe"
Call Shell(stappname, 1)
exit_command30_click:
Exit Sub
err_command30_cilck:
MsgBox Err.Description
Resume exit_command30_click

فهل من الممكن تطبيق الكود السابق علي نفس النموذج الذي صممته , يعني بنفس الفكرة وهي ادخال رقم الصورة وعدد المرفقات و مسار الحفظ ,,, 

اي ان اسم الصورة يوضع فقط في الفورم مع بقية البيانات الاخري ( عدد المرفقات و المسار )  و الماسح الضوئي يقوم بالحفظ و اخذ البيانات من الفورم   وان شاء الله بارفق لك مثلا للصورتين 

 

 و ربنا يسعدك و يوفقك ,,,,

تم تعديل نوفمبر 18, 2019 بواسطه ماجدجلال
اضافة معلومة

[الـعيدروس]

الكود الذي لديك لم اعمل عليه من سابق اجهل استخدامه

جرب هذا التعديل

او استبدل هذه الاسطر بعد تعديلها بالملف الذي لديك

With WS_A.Items(1)
  .Properties("6146").Value = 1 '4
    .Properties("6147").Value = 200 '100
     .Properties("6148").Value = 200 '100
       .Properties("6149").Value = 0
     .Properties("6150").Value = 0
    .Properties("6151").Value = 830
  .Properties("6152").Value = 1167
  .Properties("6155").Value = 0 '
   Set W_A = .Transfer(wiaFormatJPEG)
End With

 

Cy_Scan_Ali1.xlsm

[ماجدجلال]

شكرا لك اخي علي تحملي , و سعة صدرك 

ظهر خطاء في السطر التالي 

Set W_A = WS_A.Items(1).Transfer(WIA.FormatID.wiaFormatBMP)

و ذلك بعد تحميل الملف الاخير ,,

ايضا بعد اضافة التعديل الاخير في الكود ( في مشاركتك الاخيرة ) ظهرت رسالة خطاء بالعنص التالي 

Object  required

و شكرا لك ,,,  

[الـعيدروس]

التعديل الاخير فياي سطر ظهر الخطأ

Object required

[ماجدجلال]

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

هذة الصورة مؤخوذة من الكود في ملف الاكسيل الذي يحمل الاسم majeed  في المشاركة الاولي 

 

[ماجدجلال]

وهذة نفس الصورة و لكن مؤخوذة من الكود في الملف الذي يحمل الاسم cy_scan_ali 

الصورة لم يتم رفها الي هنا , دوما تظهر رسالة خطاء ( لم يتم رفع الملف بشكل صحيح ) فوظعتها في ملف الاكسيل الذي فية التعديل في الكود مع رسالة الخطاء التي طلبتها مني 

استاذ العيدروس ,, ستلاحظ كيف ظهرت الصورة غير واضحة كذلك ابيض و اسود , رغم انها تم نسخها من نفس الجهاز , 

اشكرك من اعماق قلبي علي مساعدتك لي 

واذا في تعديل مناسب او حل افضل فانا انتظر 

 

Cy_Scan_Ali1.xlsm

[الـعيدروس]

مانوع الاسكنار الذي تستخدمة والموديل

[ماجدجلال]

مسكم الله بكل الخير 

استاذي العزيز  العيدروس

شكرا جزيل لك , مدخلاتك دوما تحسسني ان هناك امل لحل هذة المشكلة , نوع الاسكنر هو HP Deskjet  2050A

و نحن في المؤسسة نستخدم هذا الملف في العمل و دوما نسخ الاوراق و قيام المستخدم بادخال اسم الصور و رابط مجلد الحفظ يسبب ارباك و غالبا ينتج عنه اخطاء 

اكرر شكرا لك و دعواتي لك دوما 

[الـعيدروس]

السلام عليكم

الظاهر سهوت عن موضوعك

جرب هذا التعديل

واتمنى من الاخوة من لدية اسكنار

يجرب الكود احتمال الاشكالية تكون

في نسخة الويندوز لديك

Cy_Scan_Ali_2.xlsm

[ماجدجلال]

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

الاستاذ الغالي العيدروس 

الف الف شكرا علي مساعدتك لي ,, و الف الف شكرا علي روح الطيبة و اخلاقك العالية , فانت الي الان ما زلت معي و تساعدني 

مع انني احس ان الموضوع قد يكون مستحيل , و ربما يجب ان يكمل العمل بالادخال الايدوي , جربت ملفك الاخير في الاعلي علي جهزين بونيدوز مختلف و كانت النتيجة علي النحو التالي : الاول حصل خطاء و ظهرت رسالة تقول : المعلمة غير صحيحة و وقف الماشر عند السطر التالي 

.Properties("6148").Value = VerticalResolutionVar

و التجربة الثاني علي الجهاز الثاني : حصل خطاء و ظهرت الرسالة التالية : complie  error       user_defined type not defined 

ووقف الماشر عند السطر التالي : 

Dim WD_A As New WIA.CommonDialog

لست ادري ماذا افعل اتمني من الاخوان و الزملاء تجربت الملف , و الاستفادة من التجربة للعل الخطاء عندي , و شكرك من اعماق قلبي استاذ العيدروس 

وبصراحة اتعبتك معي , اذا تراي انه يجب اغلاق الموضوع و رفع الراية البيضاء و انه من المستحيل نجاح الفكرة فلا مانع لدي فانا علي وشك الاستسلام 

وشكرا لك خاص الف الف شكرا 

[الـعيدروس]

هون يارجل لامشكلة الا ولها حل

مانوع الويندوز الذي لديك 7 او 10