[VBA] Δημιουργία αρχείου για την αποθήκευση συγκεντρωτικών φακελων

[kapetang]

Καλημέρα

Τάσο ο φάκελος application.DefaultFilePath είναι ο φάκελος που, από προεπιλογή, αποθηκεύει το Excel τα αρχεία του.

Σε σχέση με τον CurDir είναι πιο σταθερός, γι’ αυτό και τον πρότεινα.

Αν ανοίξουμε ένα αρχείο, κάθε φορά που το αποθηκεύουμε (πχ σε διαφορετικούς φακέλους) το CurDir μεταβάλλεται και παίρνει τιμή τη διαδρομή του τελευταίου φακέλου αποθήκευσης.

Ο φάκελος application.DefaultFilePath φαίνεται και μπορεί να αλλάξει από τις ρυθμίσεις του Excel.

Στον παρακάτω σύνδεσμο μπορείς να δεις πως γίνεται.

https://www.askvg.com/how-to-change-...rosoft-office/


1) Η αποθήκευση στο φάκελο C:\SXEDIA\ΥΕΒ\ΑΙΤΗΣΕΙΣ μπορεί να εξηγηθεί μόνο αν, στη συγκεκριμένη εγκατάσταση του Excel, ο φάκελος application.DefaultFilePath ήταν ο C:\SXEDIΑ.

Σε κάθε περίπτωση έχεις τη δυνατότητα να ορίσεις το myPath σε κάποιο συγκεκριμένο υπάρχοντα φάκελο.

Για παράδειγμα αντί myPath= Application.DefaultFilePath βάλε:

myPath="C:\Users\Kapet\Desktop\Tasos

2) Κάτω από τον κώδικα ελέγχου του κελιού d1 βάλε τον κώδικα για τον έλεγχο του κελιού a1.

    'Ελέγχεται αν είναι κενό το a1
    If WorksheetFunction.Trim(Φύλλο1.Range("a1")) = "" Then
        MsgBox ("Το κελί a1, δεν περιέχει δεδομένα")
        Φύλλο1.Range("a1").Activate
        Exit Sub
    End If