Ανάγνωση δεδομένων από αρχείο κειμένου

Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι διαβάζει δεδομένα από ένα αρχείο κειμένου Το Αυτό το αρχείο περιέχει μερικές γεωγραφικές συντεταγμένες που θέλουμε να εισαγάγουμε στο Excel.

Κατάσταση:

1. Πρώτα, κατεβάστε το αρχείο κειμένου και προσθέστε το στο 'C: test '

Βάλε ένα κουμπί εντολής στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:

2. Δηλώνουμε τέσσερις μεταβλητές. myFile τύπου String, κείμενο τύπου String, γραμμή κειμένου τύπου String, posLat τύπου Integer και posLong τύπου Integer.

πώς να χρησιμοποιήσετε τον τύπο σε μορφοποίηση υπό όρους

3. Πρέπει να προετοιμάσουμε τη μεταβλητή myFile με την πλήρη διαδρομή και το όνομα αρχείου.

ή

χρησιμοποιήστε τη μέθοδο GetOpenFilename του αντικειμένου Application για να εμφανίσετε το τυπικό παράθυρο διαλόγου Open και επιλέξτε το αρχείο (χωρίς να ανοίξετε το αρχείο).

Σημείωση: το κενό μέρος μεταξύ των παρενθέσεων σημαίνει ότι δεν δίνουμε τίποτα στο Excel VBA ως είσοδο. Τοποθετήστε τον κέρσορα στο GetOpenFilename στον επεξεργαστή της Visual Basic και κάντε κλικ στο F1 για βοήθεια στα ορίσματα.

4. Προσθέστε την ακόλουθη γραμμή κωδικού:

Σημείωση: αυτή η δήλωση επιτρέπει την ανάγνωση του αρχείου. Μπορούμε να αναφέρουμε το αρχείο ως #1 κατά τη διάρκεια του υπόλοιπου κώδικα.

5. Προσθέστε τις ακόλουθες γραμμές κώδικα:

Σημείωση: μέχρι το τέλος του αρχείου (EOF), το Excel VBA διαβάζει μία γραμμή από το αρχείο και το εκχωρεί σε γραμμή κειμένου. Χρησιμοποιούμε τον τελεστή & για να συνδέσουμε (να ενώσουμε) όλες τις μεμονωμένες γραμμές και να τις αποθηκεύσουμε στο μεταβλητό κείμενο.

6. Κλείστε το αρχείο.

7. Στη συνέχεια, αναζητούμε τη θέση των λέξεων γεωγραφικό πλάτος και γεωγραφικό μήκος στο μεταβλητό κείμενο. Χρησιμοποιούμε το Λειτουργία Instr Το

8. Χρησιμοποιούμε αυτές τις θέσεις και το Μεσαία λειτουργία για να εξαγάγετε τις συντεταγμένες από το μεταβλητό κείμενο και να γράψετε τις συντεταγμένες στο κελί Α1 και στο κελί Α2.

9. Δοκιμάστε το πρόγραμμα.

Αποτέλεσμα: