Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι διαβάζει δεδομένα από ένα αρχείο κειμένου. Αυτό το αρχείο περιέχει μερικές γεωγραφικές συντεταγμένες που θέλουμε να εισαγάγουμε στο Excel.
Κατάσταση:
1. Αρχικά, κατεβάστε το αρχείο κειμένου και προσθέστε το στο "C: \ test \"
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
2. Δηλώνουμε τέσσερις μεταβλητές. myFile τύπου String, κείμενο τύπου String, γραμμή κειμένου τύπου String, posLat τύπου Integer και posLong τύπου Integer.
Dim myFile As String, text as String, textline As String, posLat As Integer, posLong As Integer
3. Πρέπει να προετοιμάσουμε τη μεταβλητή myFile με την πλήρη διαδρομή και το όνομα αρχείου.
myFile = "C: \ test \ geographical-coordinates.txt"
ή
χρησιμοποιήστε τη μέθοδο GetOpenFilename του αντικειμένου Application για να εμφανίσετε το τυπικό παράθυρο διαλόγου Open και επιλέξτε το αρχείο (χωρίς να ανοίξετε το αρχείο).
myFile = Application.GetOpenFilename ()
Σημείωση: το κενό μέρος μεταξύ των παρενθέσεων σημαίνει ότι δεν δίνουμε τίποτα στο Excel VBA ως είσοδο. Τοποθετήστε τον κέρσορα στο GetOpenFilename στον επεξεργαστή της Visual Basic και κάντε κλικ στο F1 για βοήθεια στα ορίσματα.
4. Προσθέστε την ακόλουθη γραμμή κωδικού:
Ανοίξτε το myFile For Input As #1
Σημείωση: αυτή η δήλωση επιτρέπει την ανάγνωση του αρχείου. Μπορούμε να αναφέρουμε το αρχείο ως #1 κατά τη διάρκεια του υπόλοιπου κώδικα.
5. Προσθέστε τις ακόλουθες γραμμές κώδικα:
Κάντε έως τον EOF (1)
Γραμμή εισαγωγής #1, γραμμή κειμένου
κείμενο = κείμενο & γραμμή κειμένου
Βρόχος
Σημείωση: μέχρι το τέλος του αρχείου (EOF), το Excel VBA διαβάζει μία γραμμή από το αρχείο και το εκχωρεί σε γραμμή κειμένου. Χρησιμοποιούμε τον τελεστή & για να συνδέσουμε (να ενώσουμε) όλες τις μεμονωμένες γραμμές και να τις αποθηκεύσουμε στο μεταβλητό κείμενο.
6. Κλείστε το αρχείο.
Κλείσιμο #1
7. Στη συνέχεια, αναζητούμε τη θέση των λέξεων γεωγραφικό πλάτος και γεωγραφικό μήκος στο μεταβλητό κείμενο. Χρησιμοποιούμε τη συνάρτηση Instr.
posLat = InStr (κείμενο, "γεωγραφικό πλάτος")
posLong = InStr (κείμενο, "γεωγραφικό μήκος")
8. Χρησιμοποιούμε αυτές τις θέσεις και τη συνάρτηση Mid για να εξαγάγουμε τις συντεταγμένες από το μεταβλητό κείμενο και να γράψουμε τις συντεταγμένες στο κελί Α1 και στο κελί Α2.
Εύρος ("A1"). Τιμή = Μέση (κείμενο, posLat + 10, 5)
Εύρος ("A2"). Τιμή = Μέση (κείμενο, posLong + 11, 5)
9. Δοκιμάστε το πρόγραμμα.
Αποτέλεσμα:
