Dateiname = Speicherdatum



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Dateiname = Speicherdatum
von: Markus Klement
Geschrieben am: 16.07.2002 - 12:12:23

Hallo,

ich möchte aus einer Datei das Blatt "Test" kopieren und als eigene Datei unter C:\ abspeichern und der Dateiname soll ein Text "Test" und das Speicherdatum sein.

Wie mache ich das??

Danke für Eure Hilfe
Markus

nach oben   nach unten

Re: Dateiname = Speicherdatum
von: L.Vira
Geschrieben am: 16.07.2002 - 12:20:01

Eigentlich sollte noch eine Fehlerroutine vorhanden sein, die
z.B. prüft, ob der Name schon vorhanden ist:

Option Explicit
Sub Test_kopieren()
Sheets("Test").Copy
ActiveWorkbook.SaveAs FileName:="C:\Test.xls" & Date
End Sub

nach oben   nach unten

Re: Dateiname = Speicherdatum
von: @lex
Geschrieben am: 16.07.2002 - 12:20:33

Hallo markus !
Wie folgt:

ActiveWorkbook.SaveAs FileName:= _
"C:\Test" & Year(Now()) & Month(Now()) & Day(Now())

nach oben   nach unten

Re: Dateiname = Speicherdatum
von: Jens Huthmann
Geschrieben am: 16.07.2002 - 12:21:23

Hallo Markus:

Sub BlattSpeichern()
Dim Datum, Std, Min, Sname

Datum = Format(Now, "dd.mm.yy")
Std = Hour(Now)
Min = Minute(Now)
Sname = "Test"

Sheets("test").Copy

ActiveWorkbook.SaveAs "c:\" & Sname & " " & Datum & " " & Std & "h" & Min & "min" & ".xls"

End Sub

Gruß
Jens

nach oben   nach unten

Re: Dateiname = Speicherdatum
von: sam
Geschrieben am: 16.07.2002 - 12:21:51

Hi,

versuchs damit:


Sub Export()
  Dim wb As Workbook, actSheet As Worksheet
  Set actSheet = ActiveWorkbook.Sheets("Test")
  Set wb = Application.Workbooks.Add
  
  actSheet.Copy before:=wb.Sheets(1)
  wb.SaveAs "C:\" & actSheet.Name & "_" & Format(Date, "yyyy-mm-dd")
End Sub

Viel Spaß,
Sam

nach oben   nach unten

Re: Dateiname = Speicherdatum
von: L.Vira
Geschrieben am: 16.07.2002 - 12:32:18

bissel dynamischer:

Sub Aktives_Blatt_kopieren()
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\" & ActiveSheet.Name & " " & Date &".xls"
ActiveWorkbook.Close
End Sub

nach oben   nach unten

DANKE AN ALLE!!!!
von: Markus Klement
Geschrieben am: 16.07.2002 - 12:50:01

Das waren ja jede Menge Antworten und auch so schnell.

Vielen Dank
Markus


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Dateiname = Speicherdatum"