Pfadangabe
24.04.2013 16:28:02
Sascha
ich möchte bei folgedem Code, dass die Ziedatei in diesen Pfad geschrieben wird
S:\Pulverstatus\export\
Sub SpeichernMitZufallsnamen()
Dim DateiName As String
Dim i As Long
'--- Zufallsnamen erstellen
For i = 1 To WorksheetFunction.RandBetween(3, 10)
DateiName = DateiName & Chr(WorksheetFunction.RandBetween(Asc("a"), Asc("z")))
Next
'--- Tabelle1 in neue Datei kopieren
Sheets("Tabelle1").Copy
'--- neue Datei unter Zufallsnamen speichern
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & DateiName, FileFormat:=51
.Close
End With
End Sub
Kann mir jemand dabei helfen?
Vorab vielen lieben Dank.
Sascha