Office: Dateipfad wird nicht gefunden

Moin,

ich bin schier am verzweifeln...

Dieses Makro soll zunächst die geöffnete Arbeitsmappe definiert abspeichern, anschließend ganz bestimmte Zellen hieraus kopieren und in eine andere Arbeitmappe hineinkopieren.

Das tut es auch, aber nur, wenn der Zielordner direkt ein Laufwerk (z.B. D:\) ist. Sobald weitere Unterordner angesprochen werden sollen, gibt er immer aus, dass das Zielverzeichnis nicht existiert, und zwar sowohl auf der lokalen Platte, als auch im Netz. (die auskommentierten Pfade sind die Netzwerkpfade, die auch nicht funzen)

Alles andere scheint zu funktionieren.

Code:

Hat irgend jemand einen Tipp für mich?
Wie gesagt, es geht hauptsächlich darum, dass der strFolderPath nicht gefunden wird. Wenn Ihr noch andere Optimierungsmöglichkeiten seht, immer gerne *Smilie

Viele Grüße
Hartmut

:)

 

Hallo Hartmut,
kann es sein das da am Ende deines Folderpath ein Backslash fehlt?

strFolderpath = ("D:\Reporting System Year 2014\01-Westermoor\00 - TECHNICAL FILES\00 - SEA REPORTS\")

Gruß aus Dresden
UweKa

 

Hallo UweKa,

ich hatte es schon sowohl mit, als auch ohne Backslash probiert, hat keine Veränderung gebracht.
Obwohl Du eigentlich schon recht hast, ohne "\ " wird's ohnehin nichts *Smilie

 

leerzeichen sind kommandotrenner. versuche es mal mit anführungszeichen.

 

Hallo Hatrmut,

eine Sache fällt mit noch auf. Die dateierweiterung scheint zu fehlen.

ActiveWorkbook.SaveAs strFolderpath & ActiveWorkbook.Name & ".xlsm"

Probier mal.

Gruß aus Dresden
Uwe

 

...und lass mal die Zeilen weg.

On Error Resume Next 'nicht optimal
If Dir(strFolderpath) = "" Then

MsgBox ("Zielverzeichnis " & strFolderpath & " existiert nicht. Speichern abgebrochen!")

Exit Sub

Wenn dein Pfad nicht vorhanden sein sollte, bekommst du beim speichern sowieso ne Meldung.

Grüße
Uwe

 

Hallo Uwe,

wenn du prüfen willst, ob der entsprechende Ordner existiert, dann musst du für Dir den entsprechenden Parameter angeben.

Bei der Prüfung auf den Dateinamen musst du dann die Variable strFile auch füllen.

Code:

 

Hallo franz,
du hast recht. So funktioniert es. Manchmal sieht man den Wald vor lauter Bäumen nicht. *mrcool

Trotzdem würde ich

on error resume next ersetzen durch

on error goto errorhandler

errorhandler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & " " & Err.Description

Schönen Samstag noch
Uwe

 

Hallo UweKa und Franz_by,

vielen Dank für die Hilfe!

- Das "vbDirectory" war's.
- Nur mit Backslash geht's
- strfile mit Leben gefüllt (ActiveWorkbook.Name)
- bei strfile musste ich noch "strFolderPath & " voranstellen, jetzt passt es.

...und den Errorhandler habe ich auch implementiert. Ich weiß eigentlich, dass "Resume Next" verwendet wird, wenn man keine Fehlermeldungen will, aber es ist so schön bequem (vordergründig) *grins

Hier nun noch einmal die Auszüge aus dem Code, vielleicht hilft's ja dem Einen oder Anderen noch einmal:

Code:

Was mich aber nun doch noch interessiert:
Ich habe (für das Ablegen eines Dateianhanges einer Email) in Outlook 2007 das Gleiche verwendet, da funzt es ohne "vbDirectory". Weiß jemand vielleicht warum?
Ich möchte ja gern verstehen, was da passiert (oder auch nicht passiert) *Smilie

Euch noch einen schönes Wochenende

VG
Hartmut