Zugriff von mehreren Rechnern-Code anpassen
29.06.2007 14:53:20
mehreren
folgendes wahrschenlich einfach zu lösendes Problem kann ich leider nicht bereinigen:
Von verschiedenen Rechnern soll die Erstellung einer Sicherheitskopie möglich sein, jeder Rechner hat jedoch unterschiedliche Laufwerkbuchstaben, sodass vor der Anwendung jeweils der Ordnername angeglichen werden muss (z.B statt Laufwerk N jetzt B). Ich habe versucht, den tatsächlichen Namen des Laufwerks anstelle des Buchstabens einzugeben, leider hat das nicht funktioniert.....
Code:
Sub sicherheitskopie()
ThisWorkbook.SaveCopyAs "N:\Controlling\Datenanalyse\2007\Sicherheitskopien Datenbank\" & _
_
Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4) & _
"_" & Format(Date, "dd_mm_yyyy") & "_" & Format(Now, "hh_mm") & ".xls"
End Sub
Viele Grüsse
Ilka