Hallo Leute ich brauche mal wieder Eure Hilfe :)
folgender Code um allgemeine Dateien im Explorer zu öffnen:
Private Sub Anlage1_Click()
If IsNull(Anlage1) Then
Exit Sub
Else
Dim Pfad As String
Pfad = "P:\HBB Projektliste\Werkzeugdatenbank\WkzDatenbank Anlagen\Manuelle Wkz Begleitkarten\" & Me.Anlage1
Shell "explorer.exe /e, " & Pfad, vbMaximizedFocus
End If
End Sub
Wenn die Anlage1 z.B. "Tabelle.xlsx" heißt wird der korrekte Pfad gefunden und die Datei öffnet sich im Explorer. Aber sobald die Datei zum Beispiel "Tabelle_15,5.xlsx" heißt wird der Pfad nicht mehr gefunden und schon gar nicht geöffnet.... :'( :'( :'(
Was mache ich falsch????
Echtes Beispiel aus meinem Debug.Print Pfad
P:\HBB Projektliste\Werkzeugdatenbank\WkzDatenbank Anlagen\Manuelle Wkz Begleitkarten\Minifix 15_15,5.xlsx
Anlage1 = Minifix 15_15,5.xlsx
Bitte um HIlfe
Hallo,
versuche mal den Pfad in Anführungszeichen einzuschließen. Wenn Sonderzeichen im Pfad sind wird das nicht richtig erkannt. Die Az übergebe ich mit der Chr Fuktion das ist übersichtlicher wie das ansonsten notwendige Verdoppeln der AZ.
Shell "explorer.exe /e, " & Chr(34) & Pfad & Chr(34), vbMaximizedFocus
Perfekt !!!
Vielen lieben DANK !!!!