Εξαλείψτε κάθετο από τα ονόματα αρχείων κατά την αποθήκευση με Macro - Excel Συμβουλές

Ο Deepak ρωτά:

Γεια, προσπαθώ να εκχωρήσω την τρέχουσα ημερομηνία σε ένα κελί A38 χρησιμοποιώντας =NOW()και μετά να κάνω ένα SaveAs εκχωρώντας τα περιεχόμενα αυτού του κελιού ως το όνομα αρχείου για το αρχείο που αποθηκεύεται. Δεν μπορώ να γράψω τον σωστό κωδικό για αυτό.

ChDir "C:Backup" ActiveWorkbook.SaveAs Filename: = Range("A38").Text, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Στον παραπάνω κώδικα, το μόνο που χρειάζεται να κάνω είναι να αντικαταστήσω το όνομα αρχείου από τα περιεχόμενα ενός κελιού A38 που θα περιέχει πάντα την τρέχουσα ημερομηνία. Θα εκτιμούσα αν μου επιτρέπετε να μάθω τον σωστό τρόπο σύνταξης αυτού του κώδικα. Προσπάθησα να αντικαταστήσω το όνομα αρχείου με μερικά πράγματα κοιτάζοντας το tip025 στο www.mrexcel.com, αλλά δεν λειτούργησε.

Το πρόβλημα προκύπτει όταν η μορφή της ημερομηνίας περιλαμβάνει τον χαρακτήρα "/" … δοκιμάστε τα εξής:

ActiveWorkbook.SaveAs Application.Substitute(Range(“A38”).Text,”/”,”-“)