Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel öffnet pdf mit Leerzeichen nicht

Forumthread: Excel öffnet pdf mit Leerzeichen nicht

Excel öffnet pdf mit Leerzeichen nicht
18.10.2022 13:43:05
Luki
Hallo Zusammen!
Ich will mit folgendem Makro ein PDF aus einem Tabellenblatt öffnen.
Sub pdf()
Dim strDateiName As String, MyShell As Object, StrPfad As String
strDateiName = Range("Name").Value
StrPfad = Range("Pfad_Test").Value
Set MyShell = CreateObject("WScript.Shell")
strDateiName = StrPfad & strDateiName & ".pdf"
MsgBox (strDateiName)
On Error GoTo ErrMsg
MyShell.Run (strDateiName)
Set MyShell = Nothing
Exit Sub
Es funktioniert auch gut, so lange kein Leerzeichen im "StrDateiName" steht.
Leider steht hier aber der Vor- und Nachname mit Leerzeichen drinnen.
Ich habe schon gelesen, dass ich mit doppelten Anführungszeichen das Problem beheben kann.
Ich bekomme es aber leider nicht auf die Reihe, wie ich das richtig schreiben muss.
Vielen Dank im Vorraus.
Gruß Lukas
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel öffnet pdf mit Leerzeichen nicht
18.10.2022 14:10:11
Der
Hallo,
auf die Schnelle vllt so:

strDateiName = """" & StrPfad & strDateiName & ".pdf" & """"

AW: Excel öffnet pdf mit Leerzeichen nicht
18.10.2022 14:20:25
Luki
Hallo Steuerfuzzi!
Danke für die schnelle Antwort, aber das funktioniert leider nicht.
AW: Excel öffnet pdf mit Leerzeichen nicht
18.10.2022 14:16:37
volti
Hallo Luki,
eine Alternative:
Code:


Sub pdf1() Dim strDateiName As String, StrPfad As String StrPfad = Range("Pfad_Test").Value strDateiName = Range("Name").Value With CreateObject("Shell.Application") .ShellExecute StrPfad & strDateiName & ".pdf", "", "", "open", 4 End With End Sub Sub pdf2() With CreateObject("Shell.Application") .ShellExecute Range("Pfad_Test").Value & Range("Name").Value & ".pdf", "", "", "open", 4 End With End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige