bestand opslaan als bestandsnaam; datum en tijd

Status
Niet open voor verdere reacties.
R

Rinske1

Gebruiker
Lid geworden
13 feb 2010
Berichten
8
Hoe kan ik mijn bestand in word opslaan als datum en tijd. Dus een uniek nummer?
 
Hoi,

Daar zal ongetwijfeld 'programmeerwerk' voor nodig zijn .....

Ondertussen:
- Sla documenten nooit op met alléén maar de datum, want dat zegt helemaal niets over de inhoud. Na verloop van tijd ben je in bet bestandsoverzicht gegarandeerd de draad kwijt ...
- Sla documenten op onder een naam, beginnend met de datum in de volgorde jjjj-mm-dd, dan krijg je in het bestandsoverzicht een perfecte sortering.
 
Vergeet de link uit de vorige post: VB is echt wat anders dan VBA. In Office werken we met VBA:

Code: 
sub opslaan_met_datum_en_tijd() 
  Activedocument.SaveAs "naam" & format(date,"yyyymmdd;hh:mm") & ".doc"
End Sub
 
snb zei:
Vergeet de link uit de vorige post: VB is echt wat anders dan VBA. In Office werken we met VBA:

Code: 
sub opslaan_met_datum_en_tijd() 
  Activedocument.SaveAs "naam" & format(date,"yyyymmdd;hh:mm") & ".doc"
End Sub
Klik om te vergroten...

ooh sorry dan heb ik me vergist hierin.

ik had alt + f11 gedrukt en daar de code ingeplakt maar hij werkt niet.
waarschijnlijk doe ik iets verkeerd. misschien is het ook handig als je verteld hoe deze code te gebruiken voor de gebruiker zodat hij/zij er gebruik van kan maken.

Byee VRC
 
opslaan als met datum en tijd

snb zei:
Vergeet de link uit de vorige post: VB is echt wat anders dan VBA. In Office werken we met VBA:

Code: 
sub opslaan_met_datum_en_tijd() 
  Activedocument.SaveAs "naam" & format(date,"yyyymmdd;hh:mm") & ".doc"
End Sub
Klik om te vergroten...

Bedankt, ik ben al een stuk verder. Alleen tijd krijg ik er nog niet achter. Heeft iemand nog suggesties


Sub opslaan_met_datum_en_tijd()
ActiveDocument.SaveAs "naam" & Format(Date, "d-mmmm-yyyy-h") & ".doc"
End Sub
 
Rinske1 zei:
Bedankt, ik ben al een stuk verder. Alleen tijd krijg ik er nog niet achter. Heeft iemand nog suggesties


Sub opslaan_met_datum_en_tijd()
ActiveDocument.SaveAs "naam" & Format(Date, "d-mmmm-yyyy-h") & ".doc"
End Sub
Klik om te vergroten...

VBA Format
 
Kweenie of dat zo'n zinvolle link is.
Voorbeeld:
in een tutorial wordt de volgende code gebruikt:
Code: 
Sub DemoData()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "11"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "22"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "teacher 1"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "teacher 2"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "teacher 3"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "11"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "22"
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "22"
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = "11"
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "22"
    Range("E9").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "student 1"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "student 2"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "student 3"
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "student 4"
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "Student 5"
    Range("F6").Select
    ActiveCell.FormulaR1C1 = "student 6"
    Range("F7").Select
    ActiveCell.FormulaR1C1 = "student 7"
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "student 8"
    Range("F9").Select
    ActiveCell.FormulaR1C1 = "Student 9"
End Sub
Mijn voorkeur:
Code: 
Sub anders()
   [A1:A3] =worksheetfunction.transpose(split("11|22|33","|"))
   [B1:B3] =worksheetfunction.transpose(split("teacher 1|teacher 2|teacher 3","|"))
   [E1:E9]=worksheetfunction.transpose(split("11|33|22|22|33|33|11|22|33","|"))
    [F1:F9] = WorksheetFunction.Transpose(Split("student " & Join(WorksheetFunction.Transpose([row(1:9)]), "|student "), "|"))
End Sub
 
snb zei:
Kweenie of dat zo'n zinvolle link is.
Voorbeeld:
in een tutorial wordt de volgende code gebruikt:
Code: 
Sub DemoData()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "11"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "22"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "teacher 1"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "teacher 2"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "teacher 3"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "11"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "22"
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "22"
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = "11"
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "22"
    Range("E9").Select
    ActiveCell.FormulaR1C1 = "33"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "student 1"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "student 2"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "student 3"
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "student 4"
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "Student 5"
    Range("F6").Select
    ActiveCell.FormulaR1C1 = "student 6"
    Range("F7").Select
    ActiveCell.FormulaR1C1 = "student 7"
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "student 8"
    Range("F9").Select
    ActiveCell.FormulaR1C1 = "Student 9"
End Sub
Mijn voorkeur:
Code: 
Sub anders()
   [A1:A3] =worksheetfunction.transpose(split("11|22|33","|"))
   [B1:B3] =worksheetfunction.transpose(split("teacher 1|teacher 2|teacher 3","|"))
   [E1:E9]=worksheetfunction.transpose(split("11|33|22|22|33|33|11|22|33","|"))
    [F1:F9] = WorksheetFunction.Transpose(Split("student " & Join(WorksheetFunction.Transpose([row(1:9)]), "|student "), "|"))
End Sub
Klik om te vergroten...

Ik werk in word. Dus heb geen cellen.
 
@Rinske

mijn reaktie was gericht op Visha.


Ben je al verder met:
Code: 
Sub opslaan_met_datum_en_tijd()
  ActiveDocument.SaveAs "naam" & [COLOR="Red"]FormatDateTime(Now) [/COLOR]& ".doc"
End Sub
Kijk ook eens in de hulp van de VBEditor (Alt-F11/ F1) bij Format
 
Laatst bewerkt:
ik heb nu dit bij opslaan als: naam16-februari-2010-00-00

Sub opslaan_met_datum_en_tijd()
ActiveDocument.SaveAs "naamt" & Format(Date, "dd-MMMM-YYYY-hh-mm") & ".doc"
End Sub

Hoe krijg ik de tijd actief?

Ik heb de datum en tijd in het bestand ingevoeg met invoegen veld time.
 
De oplossing staat in mijn vorige bijdrage.
 
automatiseren uitvoeren van de macro in word

Ik heb nu de volgende macro. Het enige wat hij niet doet is de tijd updaten. Als ik dit eerst handmatig doe en daarna opsla, dan geeft hij de nieuwe tijd aan. Hoe kan ik dit automatiseren?


Sub opslaan_met_datum_en_tijd()
Selection.Fields.update
ActiveDocument.SaveAs "naam" & Format (Date, "yyyy-mmmm-d-") & Format(Time, "hh-mm") & ".doc"
End Sub
 
tijd automatisch updaten

Ik heb nu de volgende macro. Het enige wat hij niet doet is de tijd updaten. Als ik dit eerst handmatig doe en daarna opsla, dan geeft hij de nieuwe tijd aan. Hoe kan ik dit automatiseren?


Sub opslaan_met_datum_en_tijd()
Selection.Fields.update
ActiveDocument.SaveAs "naam" & Format (Date, "yyyy-mmmm-d-") & Format(Time, "hh-mm") & ".doc"
End Sub

Wie heeft nog een tip?
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan