[kapetang]

Καλημέρα

1) Το συνημμένο SaveFile.xls περιέχει τον κώδικα στον οποίο αναφέρομαι και αποτελεί το πρότυπο για τα άλλα αρχεία.

2) Όταν ανοίγουμε ένα βιβλίο εργασίας από πρότυπο, ουσιαστικά δημιουργείται νέο βιβλίο και μέχρι να αποθηκευτεί, το Path είναι κενό.

Είναι φανερό συνεπώς ότι δεν μπορούμε να χρησιμοποιήσουμε το Path του βιβλίου, ως βασικό φάκελο για τη δημιουργία υποφακέλων.

3) Τα αρχεία του Excel, από προεπιλογή, αποθηκεύονται σε ένα φάκελο τον οποίο μπορούμε να δούμε ή να προσαρμόσουμε από τις επιλογές (συνημμένη εικόνα).

Ο φάκελος αυτός υπάρχει σ’ όλους τους υπολογιστές και συνεπώς θα μπορούσε να αποτελέσει τη βάση, για τους ζητούμενους υποφακέλους.

Αυτόν το φάκελο χρησιμοποιώ στον κώδικα.

4) Ο κώδικας δημιουργεί τους υποφακέλους YEB\ΑΙΤΗΣΕΙΣ\(Επώνυμο Όνομα Όνομα Πατέρα).

Το αρχείο, σύμφωνα με τον κώδικα που ανέβασες, έχει όνομα: (Επώνυμο Όνομα Όνομα Πατέρα Ταυτότητα ΑΦΜ Τηλέφωνο)

Αφού το όνομα του αρχείου περιλαμβάνει και το όνομα του φακέλου, θα πρέπει να εξεταστεί αν χρειάζεται ο υποφάκελος,κλπ.

5) Το συνημμένο ListFiles.xls είναι το αρχείο στο οποίο θα καταχωρούνται, ως υπεσύνδεσμοι, τα στοιχεία των αρχείων που αποθηκεύονται.

Το αρχείο αυτό θα πρέπει να τοποθετηθεί σταθερά σε κάποιο φάκελο και αυτό θα πρέπει να οριστεί στον κώδικα του πρότυπου (Const strListFiles=”....”).

6) Ο κώδικας του πρότυπου ανοίγει το αρχείο ListFiles.xls κάνει τις σχετικές καταχωρήσεις, το αποθηκεύει και το κλείνει.

Αν θέλουμε να μη κλείνει κάνουμε τη σχετική εντολή (wb.Close) σχόλιο.

Τάσο, ελπίζω να κάνεις τις σχετικές προσαρμογές και να λύσεις το πρόβλημά σου.