Como escanear documentos diretamente no Excel

Você quer saber como escanear  documentos diretamente no Excel?

Você pode fazer usando macro no Excel.

No vídeo mostro como inserir a macro para realizar o escaneamento de documentos diretamente no Excel e como criar um botão para automatizar o scan.

Dica: salve a planilha de macro em uma pasta que você não irá apagar este arquivo.
Os drivers do scanner foram instalados pelo próprio Windows 10, plug in play.

Link para o vídeo de como escanear documentos diretamente no Word: https://youtu.be/Z2S_p0nu5x8


Código da Macro:

' Scan for Excel 2013/2016
' Author: Günter Born www.borncity.de www.borncity.com/blog
' Changed to implement the scan in Excel by Augusto
' Implements a Scan function in Excel 2013/2016

Sub Scan()
'
' Scan Macro, to be invoked in Excel
'
  On Error Resume Next
     Dim objCommonDialog As WIA.CommonDialog
     Dim objImage As WIA.ImageFile
     Dim strDateiname
     ' instantiate Scan WIA objects
     Set objCommonDialog = New WIA.CommonDialog
     Set objImage = objCommonDialog.ShowAcquireImage
   
     ' set temporary file
     strDateiname = Environ("temp") & "\Scan.jpg"
   
     If Not objImage Is Nothing Then
       Kill strDateiname 'delete old file
       ' save into temp file
       objImage.SaveFile strDateiname
       ' insert into document
        ActiveSheet.Pictures.Insert(strDateiname).Select

       Set objImage = Nothing
     End If
     Set objCommonDialog = Nothing

   ' MsgBox strDateiname  ' test output
End Sub



*****************************************************

Imagem na Teia nas redes sociais:

Blog - http://imagemnateia.blogspot.com
YouTube - https://www.youtube.com/Imagemnateia
Twitter - @imagemnateia
Instagram - @imagemnateia
Google+ - plus.google.com/+ImagemnateiaBlogspot