Keine Komplettlösung aber event. viel Hilfe!
27.07.2011 15:17:04
Sandra
Hallo NoNet,
was meinst Du mit 1.?
Ich habe den PAP gestern und heute erstellt, weil man mich darum bat mir im klaren zu sein, was ich haben möchte. Das weiß ich jetzt.
Zu 2.: Ich habe ja schon einige Teile des Gesamten, aber so richtig ist das noch nichts. Ich könnte mit dem ersten Problem anfangen. Komme ich dann mit dem zweiten Problem, dann wirft man mir vor, dass ich das nicht gleich gesagt habe. Wie man es macht macht man es falsch. :(
Ich poste erst einmal mein erstes Problem. Vielleicht könnt ihr mir dabei helfen.
Als erstes soll eine MsgBox zur Info aufgehen und dann ein Dialogfeld zum auswählen der Datei. Also im Groben so:
Const sNeuerPfad As String = "\\000.000.00.0\Projekte\"
Dim vntDatNam As Variant
On Error GoTo ErrorExit
If ChDirUNC(sNeuerPfad) Then
Do
MsgBox "Bitte öffnen Sie die zu dem Mangeltool-Projekt passende, uploadfähige xml-Datei."
vntDatNam = Application.GetOpenFilename("XML-Dateien (*.xml), *.xml")
If vntDatNam = False Then
If MsgBox("Wollen Sie die Anwendung hier abbrechen?", vbYesNo, "Abbruch?") = vbYes _
Then
MsgBox "Die Ausführung wird auf Ihren Wunsch abgebrochen!", vbCritical, "Abbruch!"
GoTo aufräumen
End If
End If
Loop Until vntDatNam False
Else
GoTo ErrorExit
End If
ErrorExit:
'Fehlerbehandlung
MsgBox "Die Ausführung wird wegen eines Fehlers abgebrochen!", vbCritical, "Fehler!"
aufräumen:
Exit Sub
Problem ist nur, dass der Code falsch oder/und unvollständig ist. Es soll ja keine Fehlermeldung ausgegeben werden, wenn eine Datei geöffnet wird, sondern nur wenn es aus irgendeinem Grund einen Fehler gibt. Wenn die Datei ausgewählt wurde soll diese geöffnet werden.
Könntet Ihr mir dabei helfen?
Danke & Gruß
Sandra