Standardpfad beeinflussen
23.12.2005 11:58:28
Vliegen
Folgender Code soll ein Sicherungsverzeichnis anlegen in gleichen Verzeichnis wie die verwendete Excelarbeitsmappe. Darin dann ein Sicherung der Mappe anlagen. Problem ist dass der Code lange nicht immer sicher läuft.
Wenn die Excel-Standardpfadeinstellungen (Extras/Optionen/Allgemein) auf Eigene Dateien stehen dann hängt sich der Code nach dem MkDir auf und gibt die Laufzeitfehlermeldung 75 oder 76. Der Ordner wird angelegt aber das ChDir danach bringt den Fehler.
Kann man irgendwie das Problem umgehen und kurz den Standardpfad von Excel ändern und dann wieder zurückstellen? Hat da jemand Erfahrung ?
Freue mich auf Vorschläge denn das ganze ist mir eine echte Kopfnuss.
Gruss aus Belgien,
François
Sub SpeichernInVerzeihnis()
Dim s_verz As String
s_verz = ThisWorkbook.Path & "\"
ChDir s_verz
If Len(Dir(s_verz & "\SICHERUNG", vbDirectory)) Then
ChDir s_verz & "\SICHERUNG"
Else
MkDir "SICHERUNG"
ChDir s_verz & "\SICHERUNG"
End If
ActiveWorkbook.SaveAs ThisWorkbook.Name & "_Sicherung.xls"
End Sub