Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datei kopieren dateiname um zeitstempel erweitern
zurück: Registerblatt im Multipage ausblenden weiter: Fortlaufende Rechnungs- und Kundennummern für Word Dokumente Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
lesly
Ribbon-Hasser


Verfasst am:
28. Aug 2006, 13:20
Rufname:
Wohnort: Andernach

Datei kopieren dateiname um zeitstempel erweitern - Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

Hallo liebe Experten,

da bin ich mal wieder mit einem Probelm in VBA.
ich möchte gern eine Datei kopieren und in einem anderen Verzeichnis abspeichern.
dabei soll die aktuelle Zeit (ddmmyyyyhhmmss) an den Dateinamen angehängt werden. (also Dateiname & Datum).

gleichzeitig soll dieser "Dateiname+datum" als Variable weiterverwendet werden; und zwar als Teil eines Dateipfades.

für hilfe wäre ich dankbar
lesly

_________________
Die Welt bewegt sich in Kreisen und ist auch noch furchtbar klein dabei
steffen0815
VBA-Programmierer


Verfasst am:
28. Aug 2006, 14:29
Rufname:


AW: Datei kopieren dateiname um zeitstempel erweitern - AW: Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

Hallo lesly,
so genau hab ich nicht begriffen was du willst.
Folgender Code kopiert eine Datei mit Zeitstempel :
Code:
Dim ZeitStempel As String
ZeitStempel = Format(Date, "ddmmyyyy") & Format(Time, "hhmmss")
FileCopy "c:\tar\mytest.txt", "c:\tar\mytest" & ZeitStempel & ".txt"

Anmerkung1: Filecopy kann nur ungeöffnete Dateien kopieren
Anmerkung2: Das Format deines Zeitstempels ist eher ungünstig (besser englische (umgekehrte) Notation (yyyymmdd...)

_________________
Gruß Steffen
lesly
Ribbon-Hasser


Verfasst am:
28. Aug 2006, 14:43
Rufname:
Wohnort: Andernach

AW: Datei kopieren dateiname um zeitstempel erweitern - AW: Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

Hallo Steffen,

das hilft schonmal weiter vielen Dank, werd ich so schnell wie möglich mal probieren.

Gibt es eigentlich eine Möglichkeit geöffnete Dateien zu kopieren?

Grüße
Lesly

_________________
Die Welt bewegt sich in Kreisen und ist auch noch furchtbar klein dabei
steffen0815
VBA-Programmierer


Verfasst am:
28. Aug 2006, 14:54
Rufname:

AW: Datei kopieren dateiname um zeitstempel erweitern - AW: Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

Hallo,
ja aber nur über "FileSystemObject" mit einen Verweis auf MS Scripting runtime
Code:
Sub AktuellesDokumentSichern()
' Verweis auf Microsoft Scripting Runtime setzen
Dim oFSO As New FileSystemObject
Dim ZwischenName As String
  ZwischenName = Mid(ActiveDocument.FullName, 1, Len(ActiveDocument.FullName) - 4)
  ZwischenName = ZwischenName & Format(Date, "yymmdd") & Format(Time, "hhmm") & ".doc"
  ActiveDocument.Save
  ' Standardfunktion FileCopy kann keine offen Dateien kopieren
  oFSO.CopyFile ActiveDocument.FullName, ZwischenName
End Sub

_________________
Gruß Steffen
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
28. Aug 2006, 15:10
Rufname:
Wohnort: Leipzig


AW: Datei kopieren dateiname um zeitstempel erweitern - AW: Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

Hallo Lesly,
hallo Steffen,

wenn das Dokument geöffnet ist, lässt es sich mit SaveAs unter einem anderen Namen speichern. Damit wird eine Kopie erzeugt, Bsp.:
Code:
Sub Test()

    Dim NeuPfad As String
    Dim NeuName As String
   
    NeuPfad = "C:\Test\Blabla"
    NeuName = Pfad & "\" & ActiveDocument.Name & "_" & Format$(Now, "dd.mm.yyyy hh:mm")

    ActiveDocument.SaveAs FileName:=NeuName
   
End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
28. Aug 2006, 15:14
Rufname:

AW: Datei kopieren dateiname um zeitstempel erweitern - AW: Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

@Lisa

räusper ;)

Ich glaube nicht, dass ein Doppelpunkt oder Punkte im Dateinamen gut kommen.

Gruß
CHF
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
28. Aug 2006, 15:39
Rufname:
Wohnort: Leipzig

AW: Datei kopieren dateiname um zeitstempel erweitern - AW: Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

Hallo CHF

Embarassed Du hast natürlich Recht, danke. Es muss natürlich so heißen:
Code:
Sub Test()

    Dim NeuPfad As String
    Dim NeuName As String
   
    NeuPfad = "C:\Test"
    NeuName = NeuPfad & "\" & Mid(ActiveDocument.Name, 1, Len(ActiveDocument.Name) - 4) _
        & "_" & Format$(Now, "dd_mm_yyyy hh_mm")

    ActiveDocument.SaveAs FileName:=NeuName, FileFormat:=wdFormatDocument
   
End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
lesly
Ribbon-Hasser


Verfasst am:
29. Aug 2006, 15:58
Rufname:
Wohnort: Andernach

AW: Datei kopieren dateiname um zeitstempel erweitern - AW: Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

Hallo ihr zwei,

erstmal vielen vielen Dank für die schnelle Antwort.
klappt alles wunderbar.

allerdings stelle ich mich bei der Verbindung noch ein bisschen DOOOF an.
wie mach ichs denn, wenn ich "Quasi" erst abfragen muss, ob die Datei zu oder auf ist, und dann wegspeichern will??

Ich muss also nicht aus der Datei irgendwo hinspeichern, sondern aus einer anderen Datei heraus auf einen Ordner zugreifen, gucken ob eine bestimmte Datei offen oder zu ist und diese dann (mit dem Namenszusatz) in einen anderen Ordner speichern.

Embarassed

hoffe ich hab mich erständlich ausgedrückt.

lesly

_________________
Die Welt bewegt sich in Kreisen und ist auch noch furchtbar klein dabei
steffen0815
VBA-Programmierer


Verfasst am:
30. Aug 2006, 12:56
Rufname:

AW: Datei kopieren dateiname um zeitstempel erweitern - AW: Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

Hallo,
Zitat:
hoffe ich hab mich erständlich ausgedrückt.
Nein Wink
Also ich weiß nicht wo dein Problem ist.
Willst du eine ganz normal (geschlossene) Datei kopieren nimm "FileCopy".

Willst du allerdings eine aktuell in Bearbeitung befindliche Datei kopieren nimm die die "FileSystemObject"-Variante, welche natürlich auch für geschlossene Dateien funktioniert Wink

Wo ist dein (wirkliches) Problem?

_________________
Gruß Steffen
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
30. Aug 2006, 18:43
Rufname:
Wohnort: Leipzig

AW: Datei kopieren dateiname um zeitstempel erweitern - AW: Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

Hallo Lesly,
hallo Steffen,

die tatsächliche Frage ist mir jetzt auch nicht klar.
Um aus Word zu checken, ob eine Datei in Word geöffnet ist, braucht man nur die Documents-Auflistung zu kontrollieren. Alle geöffneten Dokumente bilden gemeinsam diese Documents-Auflistung. (Meist ist nur 1 Dokument geöffnet.) Nur als Bsp.:
Code:
Sub Test()

    Dim i As Integer
   
    For i = 1 To Documents.Count
        Debug.Print Documents(i).Name
    Next i

End Sub

Alle anderen auf der Platte befindlichen Worddateien sind nicht geöffnet. Sie werden erst Bestandteil der Documents, wenn sie geöffnet werden.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
lesly
Ribbon-Hasser


Verfasst am:
01. Sep 2006, 14:21
Rufname:
Wohnort: Andernach


AW: Datei kopieren dateiname um zeitstempel erweitern - AW: Datei kopieren dateiname um zeitstempel erweitern

Nach oben
       

tja,
(dass es aber auch immer gleich auffallen muss wenn man sich mal wieder door anstellt Embarassed )

ich danke sehr für eure hilfe und glaube, dass das so gehen wird.
(leider ist mir grade was anderes dazwischen gekommen, und ich konnte noch nicht testen.)


Danke Lesly

_________________
Die Welt bewegt sich in Kreisen und ist auch noch furchtbar klein dabei
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Adressblock bei Etiketten erweitern? 1 Naurael 211 21. Feb 2013, 15:43
Ute-S Adressblock bei Etiketten erweitern?
Keine neuen Beiträge Word Serienbriefe: Serienbrief jede Datei einzeln als pdf erstellen. 0 HLuisel 550 08. Jan 2013, 16:44
HLuisel Serienbrief jede Datei einzeln als pdf erstellen.
Keine neuen Beiträge Word Serienbriefe: Inhaltssteuerelemente nach Öffnen der Datei löschbar 0 Daniel57 202 22. Okt 2012, 12:44
Daniel57 Inhaltssteuerelemente nach Öffnen der Datei löschbar
Keine neuen Beiträge Word Serienbriefe: Kopieren einer Funktion 2 serienbriefheini 420 30. März 2011, 00:14
charlybrown Kopieren einer Funktion
Keine neuen Beiträge Word Formate: Word Datei verkleinern 3 jobi 5626 20. März 2009, 23:30
Schneewittchen Word Datei verkleinern
Keine neuen Beiträge Word Formate: Formate aus Tabelle in eine andere Tabellenspalte kopieren 0 MBMBMB 607 21. Jan 2009, 22:29
MBMBMB Formate aus Tabelle in eine andere Tabellenspalte kopieren
Keine neuen Beiträge Word Formate: Excel Datei als Bild in Word 2 wmikael 520 11. Jun 2008, 18:57
Maulende Myrte Excel Datei als Bild in Word
Keine neuen Beiträge Word Formate: Datei/Neu ist weg ! 1 Battlecat 603 09. Aug 2007, 13:37
iso Datei/Neu ist weg !
Keine neuen Beiträge Word Serienbriefe: Dateiname für Bild in Serienbrief zusammensetzen 1 Gast 714 17. Jul 2007, 17:21
Betty2004 Dateiname für Bild in Serienbrief zusammensetzen
Keine neuen Beiträge Word Formate: Dot Datei ändert selbständig die vorgegebene Schrift 3 H.-R. Amsler 2632 12. Sep 2006, 16:44
Hübi Dot Datei ändert selbständig die vorgegebene Schrift
Keine neuen Beiträge Word Formate: datei in der weblayoutsicht einfügen 0 mark2612 711 24. Mai 2006, 12:49
mark2612 datei in der weblayoutsicht einfügen
Keine neuen Beiträge Word Serienbriefe: text an mehrere stellen im selben dokument auto. kopieren 9 nugget 4259 17. Mai 2006, 08:07
umeven text an mehrere stellen im selben dokument auto. kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum