Questo snippet esegue un’operazione che può essere a volte estremamente utile, come nel mio esempio avviare tramite un pulsante il programma TWAIN per effettuare una scansione. Voglio ringraziare TALTech per il codice da me citato.
Sub Auto_Open()
' attiva il programma EPSON SCAN
Dim x As Variant
Dim Path As String
' nella riga seguente inserisci la path del programma che vuoi avviare
Path = "C:\Windows\twain_32\escndv\escndv.exe"
x = Shell(Path, vbNormalFocus)
End Sub