Εμφάνιση ενός μόνο μηνύματος
  #1  
Παλιά 12-04-14, 00:22
Nasia Ο χρήστης Nasia δεν είναι συνδεδεμένος
Όνομα: Νάσια
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-02-2014
Μηνύματα: 13
Προεπιλογή Εξαγωγή πινάκα σε αρχείο asci με συγκεκριμένη μορφή

Καλησπέρα σας!

Θα ήθελα να ρωτήσω αν έχει δυνατότητα η VBA να εξάγει 3 πίνακες σε ένα αρχείο asci της παρακάτω μορφής.
Σας στέλνω και την υποτιθέμενη βάση PELATES.zip (η οποία δημιουργήθηκε με την πολύτιμη βοήθεια ενός χρήστη του forum ) ώστε να δείτε τους πίνακες.

Στην παρακάτω μορφή αρχείου asci εμφανίζονται οι «Εξετάσεις» (με αλφαβητική σειρά) ως τίτλοι ανάμεσα στα #00 και από κάτω ακολουθούν οι «Πελάτες» που αναλαμβάνουν αυτήν την εξέταση με το Ονοματεπώνυμό τους να βρίσκεται ανάμεσα σε #01 και με το σταθερό λεκτικό «Ονοματεπώνυμο:» μπροστά από το πεδίο. Η Διεύθυνση να βρίσκεται ανάμεσα σε #02 με το σταθερό λεκτικό «Διεύθυνση:» μπροστά από το πεδίο και το Τηλέφωνο να βρίσκεται ανάμεσα σε #02 με το σταθερό λεκτικό «Τηλ:» μπροστά από το πεδίο.
(Τα bold γράμματα τα έκανα επίτηδες για να γίνει λίγο πιο ξεκάθαρο)

#00 Holter αρτηριακής πίεσης#00
#01 Ονοματεπώνυμο: ΑΘΑΝΑΣΙΟΥ ΓΕΩΡΓΙΟΣ #01
#02 Διεύθυνση: Κωνσταντινουπόλεως 5#02
#02 Τηλ. 2107777777#02
#01 Ονοματεπώνυμο: ΠΕΡΡΑΚΗΣ ΚΩΝΣΤΑΝΤΙΝΟΣ#01
#02 Διεύθυνση: Σίφνου 57#02
#02 Τηλ. 2104444444#02
#00 Triplex καρδιάς#00
#01 Ονοματεπώνυμο: ΠΑΠΑΔΟΠΟΥΛΟΣ ΔΗΜΗΤΡΙΟΣ#01
#02 Διεύθυνση: Κολοκοτρώνη 60#02
#02 Τηλ. 2105555555#02
#00 Καρδιογράφημα#00
#01 Ονοματεπώνυμο: ΑΘΑΝΑΣΙΟΥ ΓΕΩΡΓΙΟΣ #01
#02 Διεύθυνση: Κωνσταντινουπόλεως 5#02
#02 Τηλ. 2107777777#02
#01 Ονοματεπώνυμο: ΠΕΡΡΑΚΗΣ ΚΩΝΣΤΑΝΤΙΝΟΣ#01
#02 Διεύθυνση: Σίφνου 57#02
#02 Τηλ. 2104444444#02
#00 Μαγνητική τομογραφία#00
#01 Ονοματεπώνυμο: ΚΑΝΕΛΟΠΟΥΛΟΣ ΑΘΑΝΑΣΙΟΣ#01
#02 Διεύθυνση: Λεωφ. Αλεξάνδρας 145#02
#02 Τηλ. 2103333333#02
#00 ……. κλπ

Υπάρχει η δυνατότητα να γίνει το παραπάνω με VBA ή να ανατρέξω σε άλλο πρόγραμμα;

Ευχαριστώ πολύ!

Νάσια
Συνημμένα Αρχεία
Τύπος Αρχείου: zip PELATES.zip (149,0 KB, 12 εμφανίσεις)