Comment faire pour Ajouter la Date et l'Heure De Nom de Fichier à l'Aide de VBA dans Excel
Grâce à Siddharth Déroute à ce Post j'ai appris à enregistrer la feuille de calcul dans une Feuille de calcul. Maintenant, ma question est comment je peux ajouter la Date et l'Heure de création du fichier comme:
TestSheet_25May2013_5pm.xls
Sub SaveSheet()
Dim FName As String
ActiveSheet.Copy
With ActiveSheet.UsedRange
.Copy
.PasteSpecial xlValues
.PasteSpecial xlFormats
End With
Application.CutCopyMode = False
FName = "C:\Users\somebody\Documents\TestSheet" & Format(Range("E19"), "mmm-d-yyyy") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=FName, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
pouvez-vous s'il vous plaît laissez-moi savoir comment faire cela?
OriginalL'auteur Behseini | 2013-12-17
Vous devez vous connecter pour publier un commentaire.
Changement
à
Si vous de choisir la date à partir de
Range("E19")
puis vous assurer que la cellule a une date valide.. Dans ce cas, le code devientHeureux d'être de l'aide 🙂
OriginalL'auteur Siddharth Rout
Pour compléter Siddharth de la solution, voici le code à inclure le temps dans le nom de fichier:
Notez que vous pouvez changer
Round()
parInt()
si vous voulez le temps d'arrondir à la baisse au lieu de tout autour. Et aussi, attention sur les paramètres de langue sur le PC, vous exécutez ce parce que le format de la date en dépend.Édité: Encore plus simple solution de
OriginalL'auteur simpLE MAn
J'ai le texte suivant fonctionne bien, mais souhaitez inverser l'ordre. Nom de fichier tout d'abord, la date et l'heure à la seconde. Jusqu'à présent, n'ont pas trouvé un moyen.
OriginalL'auteur Mike