November 25, 2020, 06:48:53

Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!


Externe Datei im Explorer öffnen - bitte um schnelle Hilfe

Begonnen von shinoda70, November 03, 2020, 13:26:28

⏪ vorheriges - nächstes ⏩

shinoda70

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

MzKlMu

November 03, 2020, 13:34:54 #1 Letzte Bearbeitung: November 03, 2020, 13:55:56 von MzKlMu
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
Gruß
Klaus

shinoda70