Probleme bei langen Serverpfaden?

Hallo,
ich benutze den untenstehenden Code wenn ich meine "Protokolle" als PDF abspeichern möchte.
Dabei kommt es abundzu zum Laufzeitfehler 5 :(
Mittlerweile habe ich herausgefunden das Excel ein Problem mit den Serverpfad hat, da der Fehler nur auftritt wenn der Pfad zu "lang" ist :(
Weis jemand wie ich diesen Fehler elegant umgehen kann?
(Ich kann den Serverpfad nicht kürzen da der von der Firma so vorgegeben ist)
Lustiger weise erstellt er Ordner und ich kann die Dateien in den Ordner verschieben(mit einem Makro-Code, trotz des Langem Dateipfades), das ist zwar ein Notbehelf aber ich wüsste gerne ob es eine andere (elegantere) Möglichkeit gibt?

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad + Dateinamen + ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Steffen,
du könntest erst den CurDir auf den richtigen Netzwerkordner setzen und dann das PDF speichern.
Beispiel:

Option Explicit

Private Declare PtrSafe Function SetCurrentDirectoryA Lib "kernel32.dll" ( _
    ByVal lpPathName As String) As Long

Sub Beispiel()
    Dim lngReturn As Long
    Dim Pfad As String, Dateinamen As String
    Pfad = "\\SERVERNAME\Eigene Dateien\AEG\Arbeitsaufträge PT4\Zeichnungen" 'Anpassen !!!!!!!!!
    Dateinamen = "MeinPDF" 'Anpassen !!!!!!!!!
    lngReturn = SetCurrentDirectoryA(Pfad)
    If lngReturn <> 0 Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateinamen, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True
    Else
        MsgBox "Fehler"
    End If
End Sub

Gruß
Nepumuk

Sub b() Dim objNetzwerk As Object Dim strServerpfad As String, strBenutzername As String, strPasswort As String Set objNetzwerk = CreateObject("WScript.Network") strServerpfad = "\\servername\freigabe\ordner\ordner\ordner\ordner\ordner\ordner" 'anpassen 'Netzwerk verbinden On Error Resume Next objNetzwerk.MapNetworkDrive "b:", strServerpfad ', , strBenutzername, strPasswort If Err.Number Then MsgBox Err.Description Else ChDrive ("b:\") 'MsgBox "Verbunden" ActiveSheet.ExportAsFixedFormat ... End If ChDrive ("c:\") 'wichtig!sonst funktioniert das Trennen nicht! 'Netzwerk trennen objNetzwerk.RemoveNetworkDrive "b:" Set objNetzwerk = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Probleme bei langen Serverpfaden?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread