tijd toevoegen aan bestandsnaam

[stefano]

Momenteel gebruik ik een module met onderstaande inhoud :

Sub opslaan()

Dim naam As String
Dim pad As String
naam = "mars" & Format$(Now, "yyyymmdd ") & ".xls"
pad = "\\svrmid001\data\bloemlabo\mars\"
ThisWorkbook.SaveCopyAs Filename:=pad & naam
End Sub

Het bestand wordt weggeschreven als mars20070516.xls

maar ik zou dat willen aangepast zien naar mars200705161231.xls waarbij 1231 12uur 31 voorstelt. Kan dit ? Zo ja hoe pas ik de code aan ?

vr gr,

Stefano

 

[stefano]

al opgelost

naam = "mars" & Format$(Now, "yyyymmddhhmm ") & ".xls"

 

[stefano]

Nog probleempje

Sub opslaan()

Dim naam As String
Dim pad As String
naam = "mars" & Format$(Now, "yyyymmdd ") & ".xls"
pad = "\\svrmid001\data\bloemlabo\mars\"
ThisWorkbook.SaveCopyAs Filename:=pad & naam
End Sub

Het bestand wortd opgeslagen als

mars20070516.xls

Ik zou hier graag de inhoud van cel h5 (cijfer 1 of 2) uit het enige werkblad van het bestand willen voorzetten.

dus : mars20070516.xls zou dan bv moeten worden 1mars20070516.xls

kan dit ? En hoe ?

dbv,

Stefano

 

[Jan van Asseldonk]

naam = range("h5").value & "mars" & Format$(Now, "yyyymmdd ") & ".xls"

 

[Wigi]

Kunnen jullie beide in het vervolg code tags gebruiken? Dan is de code hier tenminste leesbaar.

Code tags pas je toe door de code hier te plakken, te selecteren, en dan op het # teken te klikken.

Dank

Wigi

 

[stefano]

bedoel je zo Wigi ?

Sub opslaan()

Dim naam As String
Dim pad As String
naam = "mars" & Format$(Now, "yyyymmdd ") & ".xls"
pad = "\\svrmid001\data\bloemlabo\mars\"
ThisWorkbook.SaveCopyAs Filename:=pad & naam
End Sub

 

[Wigi]

Zonder de ' dan

Wat je nu gezet hebt maakt het niet meer leesbaar dan ervoor hé... Het is krak hetzelfde qua leesbaarheid.