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

[سعيد صواب]

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

اسعد الله اوقاتكم بكل خير..

في المرفق طريقة لسحب المستندات من الماسح الضوئي ومن ثم الإستعراض واختيار مكان واسم الحفظ .

===============

الذي اريده ان يتم اخذ مسار الحفظ من النموذج من مربع النص patth  .. ويتم بعد المسح ارسال المستندات الى ذلك المسار  دون ظهور نافذة الإستعراض dialog .

 

وفقنا الله واياكم ..

scanning.rar

[jjafferr]

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

 

المفروض هذا يؤدي الغرض

Private Sub أمر2_Click()
' Dim fileLocation As String
'    Dim diagFile As FileDialog
    
'    Set diagFile = Application.FileDialog(msoFileDialogSaveAs)
    
'    diagFile.Title = "Save Bitmap File As..."
'    diagFile.InitialFileName = Me.id & ".jpg"
    
'    If diagFile.Show Then
'        fileLocation = diagFile.SelectedItems(1)
        
        Dim scanDiag As Object
        Dim image As Object
        
        Set scanDiag = CreateObject("WIA.CommonDialog")
        Set image = CreateObject("WIA.ImageFile")
        

        Set image = scanDiag.ShowAcquireImage()
'        image.SaveFile fileLocation
        image.SaveFile Me.patth & "\" & Me.id
        
'    End If
End Sub

 

ولكنه لم يعمل عندي ، يمكن بسبب ربط الاسكانر عندي 

آه نسيت اقول ، ولا حتى الكود الاصلي اشتغل عندي 

 

 

جعفر

تم تعديل ديسمبر 17, 2015 بواسطه jjafferr

[سعيد صواب]

حياك الله استاذ جعفر ..

تمام التمام بارك الله فيك ... 

Dim scanDiag As Object
        Dim image As Object
        
        Set scanDiag = CreateObject("WIA.CommonDialog")
        Set image = CreateObject("WIA.ImageFile")
        

        Set image = scanDiag.ShowAcquireImage()
'
        image.SaveFile Me.patth & "\" & Me.id & ".jpg"

الكود الأصلي يحتاج هذه المكتبة 

microsoft office 12. object library 

 

جزاك الله خير استاذ جعفر 

[jjafferr]

هلا والله 

[كرار صبري _ أبو جنى]

السلام  عليكم اساتذتي الكرام ...

لماذا لم يعمل الكود معي ؟؟؟

هل احتاج هذه المكتبة  " microsoft office 12. object library "

و من اين احصل عليها ...

[سعيد صواب]

حياك الله اخي كرار 

قم بعمل التالي :

من محرر أوامر الفيجوال بيسك .. اختر tools  ومن ثم references  ومن ثم ابحث بحرف الــ m حتى تجدها وبعد ذلك  اضغط ok

* محرر الأوامر هو المكان الذي نقوم فيه بكتابة الأكواد .

بالتوفيق ان شاء الله 

[كرار صبري _ أبو جنى]

الله يحييك ...

1- وجدت  microsoft office 14. object library و نفس النتيجة

2- ما هو patth

و شكرا ...

[jjafferr]

37 دقائق مضت, karrar sabry said:

1- وجدت  microsoft office 14. object library و نفس النتيجة

2- ما هو patth

 

1. نعم المفروض ان يعطيك نفس النتيجة ، ولكن تأكد ان السكانر موصل بالكمبيوتر ومعرّف عليه ،

2. افتح النموذج وسترى الحقل patth ، والذي الاخ سعيد كان يريد ان الاسكانر يحفظ مباشرة في مساره 

 

 

جعفر

[كرار صبري _ أبو جنى]

اهااااا...

شكرا استاذ جعفر ...

[jjafferr]