Καλησπέρα
Ένα αρχείο .doc μπορεί να εισαχθεί απ' ευθείας σε excel ή να γίνει μετατροπή σε .txt
Η μέθοδος Copy - Paste δεν παρέχει ασφάλεια για να είμαστε σίγουροι ότι τα δεδομένα θα μπουν στην σωστή τους θέση.
Γι' αυτό πρέπει πρώτα να γίνει μετατροπή του .doc σε άλλες μορφές με βασικότερες τις .html και .txt
Εδώ θα δούμε μια μέθοδο για το πως γίνετε εισαγωγή .txt σε excel με
VBA.
Ο κώδικας που χρησιμοποιήθηκε έγινε με recorder και προσαρμόστηκε κατόπιν αφού αφαιρέθηκαν και κάποιες (αρκετές) περιττές γραμμές.
Αφού μετατρέψουμε τα αρχεία μας σε .txt (Ανοίγουμε το αρχείο .doc και Save as.....txt)
και τα αποθηκεύσουμε ανοίγουμε το βιβλίο excel στο οποίο θέλουμε να εισάγουμε κάποιο ή κάποια από αυτά που για το παράδειγμα μας είναι το testxls.xls
Το βιβλίο περιέχει ένα φύλλο με το όνομα MainSheet.
Επιλέγουμε με τι όνομα (Tab) θέλουμε να δημιουργούνται τα νέα φύλλα και το πληκτρολογούμε στο κατάλληλο κελί.
Με κλικ στο κουμπί ανοίγει ένα msgbox με πληροφορίες και αφού πατήσουμε Yes ανοίγει παράθυρο διαλόγου στο οποίο εντοπίζουμε το αρχείο .txt που θέλουμε να εισαχθεί.
Με την επιλογή του αρχείου εισάγονται τα δεδομένα του σε ένα νέο excel φύλλο με την ονομασία που επιλέξαμε και έναν αριθμό (για να μην υπάρχει κατόπιν διπλότυπη ονομασία)
Ταυτόχρονα οι στήλες του φύλλου προσαρμόζονται στα δεδομένα.