<\/p>\n
Da einige Zeitgenossen immer noch an das papierlose Büro glauben, will Access im Unternehmen zumindest einen kleinen Teil zu diesem Traum beitragen. Dazu liefern wir Ihnen Know-how rund um das Scannen von Dokumenten per VBA – natürlich mit automatischer Konvertierung in den gewünschten Dateityp und Speicherung der Datei am von Ihnen vorgegebenen Ort.<\/b><\/p>\n
Voraussetzungen<\/p>\n
Das Scannen von Dokumenten und das Handling der so entstehenden Dateien erfolgt unter modernen Betriebssystemen (Windows XP SP1 und höher) mit der kostenlosen Windows Image Acquisition Automation Library v2.0 <\/b>(WIA<\/b>), die Sie unter [1] herunterladen können. <\/p>\n
Diese Bibliothek setzt einen modernen Scanner mit WIA-Schnittstelle voraus. Informationen zu entsprechenden Techniken für ältere Betriebssysteme und Scanner finden Sie im Kasten Scannen mit älteren Betriebssystemen<\/b>. Die WIA-Bibliothek offeriert noch weitere Möglichkeiten wie etwa das Einlesen von Bildern einer Digitalkamera. Dieser Beitrag beschränkt sich jedoch auf die Steuerung von Scannern.Nach dem Herunterladen müssen Sie die im Paket enthaltene DLL mit dem Befehl Regsvr32 <Dateiname> <\/b>registrieren. Für den Einsatz in VBA richten Sie außerdem einen passenden Verweis auf diese Bibliothek ein (siehe Bild 1).<\/p>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/ScannenMitAccess-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Das Steuern eines Scanners per VBA erfordert einen Verweis auf die WIA-Bibliothek.<\/span><\/b><\/p>\n Scannen auf die Schnelle<\/b><\/p>\n Wer will schon in die Tiefen einer Objektbibliothek einsteigen, wenn man auch mit einer kleinen Routine den ersten Scan von Access initiieren kann Wenn Sie obige Vorbereitungen getroffen haben und ein funktionstüchtiger Scanner an Ihrem Rechner hängt, können Sie sofort mit der Routine aus Listing 1 loslegen.<\/p>\n Listing 1: Dokument scannen und speichern<\/p>\n Dabei lernen Sie auch direkt das Objekt kennen, von dem aus Sie alle notwendigen (und weniger notwendigen) Dialoge öffnen können. Der Dialog, den die Routine mit der Methode ShowAcquireImage<\/b> anzeigt, sieht etwa wie in Bild 2 aus.<\/p>\n Bild 2: Der per VBA geöffnete Dialog zum Steuern des Scanners<\/span><\/b><\/p>\n Dieser Dialog erlaubt die grundsätzlichen Einstellungen wie die Auswahl des Bildtyps und des zu scannenden Bereichs, wobei der Dialog bereits eine sinnvolle Vorauswahl trifft. Weitere Details stellen Sie mit dem Dialog aus Bild 3 ein, den Sie über den Link Qualität des gescannten Bildes verbessern<\/b> öffnen. Die Routine aus Listing 1 erwartet den Dateinamen der zu speichernden Datei als Parameter. Der Aufruf könnte dann etwa folgendermaßen lauten:<\/p>\n Bild 3: Feineinstellungen für das Scannen<\/span><\/b><\/p>\n Die wichtigste Eigenschaft dieses Dialogs ist, dass er ein Objekt des Typs ImageFile<\/b> zurückgibt, das Sie anschließend per VBA weiterbearbeiten können – etwa, um es wie in diesem Fall zu speichern.<\/p>\n Dialoge über Dialoge<\/b><\/p>\n Neben diesem Dialog bietet WIA noch einige Dialoge mehr. Die Methode ShowDeviceProperties<\/b> etwa öffnet den Dialog mit den Eigenschaften des ausgewählten Scanners (ist nur ein Scanner vorhanden, entfällt der Auswahldialog, den die Methode ShowAcquireImage <\/b>in der gleichen Routine aufruft). Listing 2 zeigt eine Beispielroutine zum Aufrufen dieses Dialogs. Die Funktionen der übrigen Methoden des CommonDialog<\/b>-Objekts sind in der Online-Hilfe dokumentiert.<\/p>\n Listing 2: Beispiel für die Anzeige der Komfortabel scannen<\/b><\/p>\n Für Access-Anwendungen wie etwa Rechnungs- oder Vertragsverwaltungen kann der Aufruf des Scanvorgangs von einem Formular aus und das anschließende Speichern des Scanergebnisses und des dazugehörenden Pfades sehr viel Arbeit sparen. In diesem Beitrag lernen Sie ein Formular kennen, mit dem Sie den Scanner auswählen, einen Dateinamen festlegen und den Scanvorgang starten können. Das fertige Formular sieht wie in Bild 4 aus.<\/p>\n Viel interessanter ist jedoch das Modul, das für die vom Formular aus aufgerufenen Scanvorgänge verantwortlich ist. Dieses Modul heißt mdlScannen<\/b> und enthält alle für das Scannen erforderlichen Routinen – welche das im Einzelnen sind, erfahren Sie in den folgenden Abschnitten.<\/p>\n Scanner auswählen<\/b><\/p>\n Das Kombinationsfeld zum Auswählen des Scanners wird mit der Funktion ScannerErmitteln<\/b> (s. Listing 3) gespeist, und zwar beim öffnen des Formulars. Die Routine erzeugt zunächst ein Objekt des Typs DeviceManager<\/b>, der das Erzeugen einer Connection auf die enthaltenen Scanner ermöglicht. Die einzelnen Geräte kann man über die Auflistung DeviceInfos <\/b>ansprechen, die eindeutige ID und die Bezeichnung erhält man über die passenden Properties eines Elements dieser Auflistung. Die Funktion ScannerErmitteln<\/b> liefert eine Liste mit den durch Semikola getrennten IDs und den Bezeichnungen der Geräte. Damit das Kombinationsfeld cboScanner <\/b>diesen Ausdruck vernünftig auswerten kann, stellen Sie die Eigenschaft Herkunftsart<\/b> auf Wertliste<\/b>, Spaltenanzahl<\/b> auf 2<\/b> und Spaltenbreite<\/b> auf 0cm <\/b>ein.<\/p>\n Listing 3: Erstellen einer Liste der vorhandenen Scanner<\/p>\n <\/p>\n über die ID kann das Formular eine Verbindung zum ausgewählten Scanner herstellen – das funktioniert prinzipiell so wie in Listing 4. Nun bringt das Formular aus Bild 4 es mit sich, dass zum aktuell ausgewählten Scanner mehrere Informationen ermittelt werden müssen – die Farbeinstellung, die Auflösung sowie die Helligkeit und der Kontrast. Außerdem erfordert auch das Starten des Scanvorgangs eine Referenz auf eine aktive Verbindung zum Scanner. Um die Funktionen der WIA-Bibliothek möglichst in einem Standardmodul zu versammeln, sollen die Zugriffe auf den jeweiligen Scanner allein über die ID als Parameter erfolgen – diese können Sie ganz einfach als String übergeben.<\/p>\n Listing 4: Initialisieren des Formulars frmScanner<\/p>\n Bild 4: Das Formular zum Eingeben der Parameter und zum Starten des Scanvorgangs<\/span><\/b><\/p>\n Legen Sie also zunächst die benötigten Funktionen fest, indem Sie die Ereignisprozedur Beim öffnen <\/b>des Formulars frmScannen <\/b>wie in Listing 2 anlegen. Die Routine liest zunächst die Liste der vorhandenen Scanner ein und weist diese der Eigenschaft RowSource <\/b>des passenden Kombinationsfeldes zu – vorausgesetzt, sie findet einen Scanner. Ist das der Fall, prüft die Routine den in der Tabelle tblParameter<\/b> gespeicherten Wert des Parameters AktuellerScanner<\/b> und wählt im Kombinationsfeld entweder diesen Wert oder den ersten vorhandenen Eintrag aus.<\/p>\n Anschließend weist sie der Variablen strDevice<\/b> die ID des ausgewählten Scanners hinzu. Die Routine SteuerelementeAktualisieren <\/b>füllt die vier Steuerelemente mit den passenden Eigenschaften; diese Anweisungen sind deshalb in einer eigenen Routine enthalten, weil diese auch noch nach dem Aktualisieren des Kombinationsfeldes cboScanner <\/b>aufgerufen wird.<\/p>\n WIA-Funktionen<\/b><\/p>\n Fehlen noch die Definitionen der Funktionen AufloesungenErmitteln<\/b>, AktuelleAufloesungErmitteln<\/b>, AktuelleHelligkeitErmitteln <\/b>und AktuellenKontrastErmitteln<\/b>. Diese stecken zusammen mit der Funktion ScannerErmitteln <\/b>im Standardmodul mdlScannen<\/b>. Im Wesentlichen kommen in diesen Funktionen die WIA-Objekte DeviceManager <\/b>und Device <\/b>zum Einsatz. Beide sollen nur bei Bedarf erzeugt werden, deshalb enthält das Modul zwei private Property Get<\/b>-Prozeduren, die je nach Bedarf eine neue Instanz erzeugen oder eine bestehende zurückgeben. Die Prozeduren heißen WIADeviceManager <\/b>und WIADevice <\/b>(s. Listing 5).<\/p>\n Listing 5: Prozeduren zum Erzeugen oder Zurückgeben von WIA-Objekten<\/p>\n Die Routine ScannerErmitteln <\/b>aus Listing 3 wird entsprechend an diese Property Get<\/b>-Prozeduren angepasst (s. Beispieldatenbank, Modul mdlScannen<\/b>).<\/p>\n Auflösungen ermitteln<\/b><\/p>\n Die mit dem ausgewählten Scanner möglichen Auslösungen ermittelt die Routine AufloesungenErmitteln<\/b> aus Listing 6. Die Routine greift auf die Liste der Unterwerte der Eigenschaft Horizontal Resolution <\/b>des anstehenden Scanvorgangs zu, die alle verfügbaren Auflösungen enthält, und fügt diese zu einer Semikola-separierten Liste zusammen.<\/p>\n Listing 6: Funktion zum Ermitteln der mit einem bestimmten Scanner möglichen Auflösungen<\/p>\n Die Routinen zum Ermitteln der Helligkeit, des Kontrasts und der aktuellen Auflösung aus Listing 7 ermitteln jeweils den Wert einer der Eigenschaften des anstehenden Scans.<\/p>\n Listing 7: Funktionen zum Ermitteln von Helligkeit, Kontrast und Auflösung<\/p>\n Scanvorgang<\/b><\/p>\n Fehlt noch die Routine, die für den eigentlichen Scan-Vorgang verantwortlich ist. Diese heißt BildScannenUndSpeichern <\/b>und ist ebenfalls im Modul mdlScannen <\/b>zu finden (s. Listing 8).<\/p>\n Listing 8: Scannen und speichern nach Dateityp<\/p>\n Diese Routine erwartet als Eingangsparameter die ID des Scanners (strDevice<\/b>), den Dateinamen, unter dem die eingescannte Datei gespeichert werden soll, sowie die festgelegten Eigenschaften.<\/p>\n Wichtig ist, dass der Dateiname gleichzeitig das Format festlegt, in dem die Bilddatei gespeichert werden soll – lautet der Dateiname also etwa c:\\Test.jpg<\/b>, wird die Bilddatei automatisch in eine JPEG-Datei umgewandelt.<\/p>\n Die Routine legt zunächst die Eigenschaften für den kommenden Scanvorgang entsprechend den im Formular gemachten Angaben fest und startet mit der Transfer<\/b>-Methode den Scan-Vorgang. Das Ergebnis des Scans wird dabei in der Variablen objImageFile <\/b>gespeichert.<\/p>\n Anschließend ermittelt die Routine aus dem Dateinamen die passende Dateiendung und legt die der Endung entsprechende Formatkonstante fest.<\/p>\n Wenn ein anderer Dateityp als das standardmäßig voreingestellte BMP-Format ausgewählt wurde, ruft die Routine damit und mit dem ImageFile<\/b>-Objekt als Parameter die Funktion ImageFileKonvertieren <\/b>auf. Diese erzeugt mit den dazu notwendigen Methoden einen Filter, der Informationen über das anzuwendende Format enthält.<\/p>\n Ein ImageProcess<\/b>-Objekt sorgt mit der Methode Convert <\/b>schließlich für die Umwandlung des gescannten Bildes. Schließlich speichert die Routine BildScannenUndSpeichern <\/b>das Bild in dem gewünschten Format (s. Listing 8).<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Die WIA-Bibliothek bietet eine einfache Möglichkeit zum Scannen von Dokumenten – vorausgesetzt, Sie besitzen einen Scanner mit einer WIA-Schnittstelle und Windows XP oder höher als Betriebssystem.<\/p>\n Die hier vorgestellten Funktionen liefern alles, was Sie zum automatisierten Erstellen einfacher Scans benötigen. <\/p>\n Das Formular frmScannen<\/b> zeigt, wie Sie die Funktionen einsetzen, und kann selbst in eigene Anwendungen integriert werden. <\/p>\n Für ältere Betriebssysteme und Scannermodelle empfiehlt sich ein Blick in [2], alternativ gibt es die Möglichkeit, den Scanner direkt per API zu steuern.<\/p>\n Quellen<\/p>\n [1] Download WIA: http:\/\/www.microsoft.com\/down [2] Harald Langer, Scannen aus Access (Whitepaper): http:\/\/www.accessprofipool.de\/app\/whitepaper\/files\/appscan.zip<\/p>\n Scannen mit älteren Betriebssystemen<\/p>\n Die vorgestellten Techniken erfordern die WIA-Bibliothek von Microsoft. Für frühere Versionen von Windows können Sie alternative Tools einsetzen. Harald Langer hat unter [2] ein Whitepaper veröffentlicht, das diese Tools und ihren Einsatz detailliert vorstellt.<\/p>\n Enthaltene Beispieldateien:<\/p>\n ScannenMitAccess.mdb<\/p>\nPublic Function ScannenUndSpeichern(strDateiname As String)\r\n Dim objCommonDialog As WIA.CommonDialog\r\n Dim objImage As WIA.ImageFile\r\n Set objCommonDialog = New WIA.CommonDialog\r\n Set objImage = objCommonDialog.ShowAcquireImage\r\n If Not objImage Is Nothing Then\r\n objImage.SaveFile strDateiname\r\n Set objImage = Nothing\r\n End If\r\n Set objCommonDialog = Nothing\r\nEnd Function<\/pre>\n
![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/ScannenMitAccess-web-images\/pic002_opt.jpeg\")
<\/p>\nScannenUndSpeichern \"c:\\Scan.bmp\"<\/pre>\n
![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/ScannenMitAccess-web-images\/pic003_opt.jpeg\")
<\/p>\n
Scanner-Eigenschaften<\/p>\nPublic Function Scannereigenschaften()\r\n Dim objCommonDialog As WIA.CommonDialog\r\n Dim objDevice As WIA.Device\r\n Set objCommonDialog = New WIA.CommonDialog\r\n Set objDevice = objCommonDialog. _
ShowSelectDevice\r\n With objCommonDialog\r\n .ShowDeviceProperties objDevice\r\n End With\r\nEnd Function<\/pre>\nPublic Function ScannerErmitteln() As String\r\n Dim objDeviceManager As WIA.DeviceManager\r\n Dim i As Integer\r\n Dim strScannerliste As String\r\n Set objDeviceManager = New WIA.DeviceManager\r\n For i = 1 To objDeviceManager.DeviceInfos.Count\r\n Debug.Print objDeviceManager.DeviceInfos.Item(i).DeviceID\r\n strScannerliste = strScannerliste _
& objDeviceManager.DeviceInfos.Item(i).DeviceID & \";\" & objDeviceManager.DeviceInfos. _
Item(i).Properties(\"Name\") & \";\"\r\n Next i\r\n ScannerErmitteln = strScannerliste\r\nEnd Function<\/pre>\nPrivate Sub Form_Open(Cancel As Integer)\r\n Dim strDevice As String\r\n Me!cboScanner.RowSource = ScannerErmitteln\r\n If Len(Me!cboScanner.RowSource) > 0 Then\r\n Me!cboScanner = Nz(DLookup("Wert", "tblParameter", _
"Parameter = 'AktuellerScanner'"), _
Me!cboScanner.ItemData(0))\r\n strDevice = Me!cboScanner\r\n SteuerelementeAktualisieren strDevice\r\n Else\r\n MsgBox "Es ist kein Scanner an diesen Rechner angeschlossen."\r\n Cancel = True\r\n End If\r\nEnd Sub\r\nPrivate Sub SteuerelementeAktualisieren(strDevice As String)\r\n Me!cboAufloesung.RowSource = AufloesungenErmitteln(strDevice)\r\n Me!cboAufloesung.Value = AktuelleAufloesungErmitteln(strDevice)\r\n Me!txtHelligkeit = AktuelleHelligkeitErmitteln(strDevice)\r\n Me!txtKontrast = AktuellenKontrastErmitteln(strDevice)\r\nEnd Sub<\/pre>\n![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/ScannenMitAccess-web-images\/pic005_opt.jpeg\")
<\/p>\nPrivate mDevice As WIA.Device\r\nPrivate mDevicename As String\r\nPrivate mDeviceManager As WIA.DeviceManager\r\nPrivate Property Get WIADeviceManager() As WIA.DeviceManager\r\n If mDeviceManager Is Nothing Then\r\n Set mDeviceManager = New WIA.DeviceManager\r\n End If\r\n Set WIADeviceManager = mDeviceManager\r\nEnd Property\r\nPrivate Property Get WIADevice(strDevicename) As WIA.Device\r\n If strDevicename = mDevicename Then\r\n If mDevice Is Nothing Then\r\n Set mDevice = WIADeviceManager.DeviceInfos.Item(mDevicename).Connect\r\n End If\r\n Else\r\n mDevicename = strDevicename\r\n Set mDevice = _
WIADeviceManager.DeviceInfos.Item(mDevicename).Connect\r\n End If\r\n Set WIADevice = mDevice\r\nEnd Property<\/pre>\nPublic Function AufloesungenErmitteln(strDevice As String) As String\r\n Dim i As Integer\r\n Dim str As String \r\n With WIADevice(strDevice).Items(1)._
Properties("Horizontal Resolution")\r\n For i = 1 To .SubTypeValues.Count\r\n str = str & .SubTypeValues(i)\r\n If i <> .SubTypeValues.Count Then\r\n str = str & ";"\r\n End If\r\n Next\r\n End With\r\n AufloesungenErmitteln = str\r\nEnd Function<\/pre>\nPublic Function AktuelleHelligkeitErmitteln(strDevice As String) As Long\r\n AktuelleHelligkeitErmitteln = WIADevice(strDevice).Items(1). _
Properties("Brightness").Value\r\nEnd Function\r\nPublic Function AktuellenKontrastErmitteln(strDevice As String) As Long\r\n AktuellenKontrastErmitteln = WIADevice(strDevice).Items(1). _
Properties("Contrast").Value\r\nEnd Function\r\nPublic Function AktuelleAufloesungErmitteln(strDevice As String)\r\n AktuelleAufloesungErmitteln = WIADevice(strDevice).Items(1). _
Properties("Horizontal Resolution").Value\r\nEnd Function<\/pre>\nPublic Function BildScannenUndSpeichern(strDevice As String, strFilename As String, _
lngCurrentIntent As Long, lngResolution As Long, lngBrightness As Long, lngContrast As Long) _
As Boolean\r\n Dim objImageFile As WIA.ImageFile\r\n Dim strDateiendung As String\r\n Dim strFormat As String\r\n strDateiendung = Mid(strFilename, InStrRev(strFilename, ".") + 1)\r\n With WIADevice(strDevice).Items(1)\r\n .Properties("Current Intent").Value = lngCurrentIntent\r\n .Properties("Vertical Resolution").Value = lngResolution\r\n .Properties("Horizontal Resolution").Value = lngResolution\r\n .Properties("Brightness").Value = lngBrightness\r\n .Properties("Contrast").Value = lngContrast\r\n End With\r\n Set objImageFile = WIADevice(strDevice).Items(1).Transfer\r\n Select Case strDateiendung\r\n Case "bmp"\r\n strFormat = wiaFormatBMP\r\n Case "png"\r\n strFormat = wiaFormatPNG\r\n Case "gif"\r\n strFormat = wiaFormatGIF\r\n Case "jpg"\r\n strFormat = wiaFormatJPEG\r\n Case "tif"\r\n strFormat = wiaFormatTIFF\r\n Case Else\r\n strFormat = "Unknown"\r\n End Select\r\n If strFormat <> wiaFormatBMP Then\r\n Set objImageFile = ImageFileKonvertieren(objImageFile, strFormat)\r\n End If\r\n objImageFile.SaveFile strFilename\r\n BildScannenUndSpeichern = True\r\nEnd Function\r\nPublic Function ImageFileKonvertieren(objImageFile As WIA.ImageFile, strFormat As String) _
As WIA.ImageFile\r\n Dim objImageProcess As WIA.ImageProcess\r\n Set objImageProcess = New WIA.ImageProcess\r\n objImageProcess.Filters.Add objImageProcess.FilterInfos("Convert").FilterID\r\n objImageProcess.Filters(1).Properties("FormatID").Value = strFormat\r\n Set ImageFileKonvertieren = objImageProcess.Apply(objImageFile)\r\nEnd Function<\/pre>\n
loads\/details.aspxFamilyID=a332a77a-01b8-4de6-
91c2-b7ea32537e29&DisplayLang=en#filelist<\/p>\nDownloads zu diesem Beitrag<\/h3>\n