AW: Optimiert Batch-Dateiaufruf mit Fehlerprüfung
29.08.2010 09:42:33
fcs
Hallo Stan,
den Namen des Druckers muss man in Excel-VBA aus den konstanten und Variablen Teilen zusammenfügen.
Außerdem kann man die Eingabe noch prüfen, ob sie das richtige Format hat. Die Prüfung der Läng der Druckernummer ggf. weglassen.
Gruß
Franz
'Batchdatei angepasst:
copy E:\1111\Tassimo\TAS4011.txt \\ginwps21\%1
Sub Test()
Dim Hilf As Variant, strNummer As String, sProg As String
On Error GoTo Fehler
Eingabe:
strNummer = InputBox("Druckernummer eintragen", "Abfrage der Druckernummer", _
strNummer)
If strNummer = "" Then Exit Sub 'Abbrechen in Inputbox gewählt
If Len(strNummer) 4 Then 'Länge der Nummer prüfen
MsgBox "Die Zahl muss 4 Ziffern haben!", vbOKOnly + vbInformation, _
"Label Drucker Testen"
GoTo Eingabe:
End If
If IsNumeric(strNummer) Then
strNummer = "gind" & strNummer & "_pcl"
sProg = "d:\0000\test.bat " 'Verzeichnis + Name der Datei
Hilf = Shell(sProg & strNummer, vbMaximizedFocus)
Else
MsgBox "Es wurd keine Zahl eingegeben!", vbOKOnly + vbInformation, _
"Label Drucker Testen"
GoTo Eingabe:
End If
Err.Clear
Fehler:
'Fehlerbehandlung
With Err
Select Case .Number
Case 0 'kein Fehler
Case 76
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description & vbLf & vbLf _
& "Bitte Verzeichnis prüfen: " & vbLf & sProg
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub