Spodaj si bomo ogledali program v Excel VBA to bere podatke iz besedilne datoteke. Ta datoteka vsebuje nekaj geografskih koordinat, ki jih želimo uvoziti v Excel.
Situacija:
1. Najprej prenesite besedilno datoteko in jo dodajte v "C: \ test \"
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
2. Razglasimo štiri spremenljivke. myFile tipa String, besedilo vrste String, vrstica besedila tipa String, posLat tipa Integer in posLong tipa Integer.
Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer
3. Inicializirati moramo spremenljivko myFile s celotno potjo in imenom datoteke.
myFile = "C: \ test \ geografske koordinate.txt"
ali
uporabite metodo GetOpenFilename predmeta Application za prikaz standardnega pogovornega okna Open in izberite datoteko (ne da bi datoteko dejansko odprli).
myFile = Application.GetOpenFilename ()
Opomba: prazen del med oklepaji pomeni, da Excelu VBA ne dajemo ničesar kot vhod. Kazalec postavite na GetOpenFilename v urejevalniku Visual Basic in kliknite F1 za pomoč pri argumentih.
4. Dodajte naslednjo kodno vrstico:
Odprite myFile za vnos kot #1
Opomba: ta stavek omogoča branje datoteke. V preostalem delu kode lahko datoteko označimo kot #1.
5. Dodajte naslednje kodne vrstice:
Naredi do EOF (1)
Vrstni vnos #1, vrstica z besedilom
besedilo = besedilo & vrstica besedila
Zanka
Opomba: do konca datoteke (EOF) Excel VBA prebere eno vrstico iz datoteke in jo dodeli besedilni vrstici. Operater & uporabljamo za združevanje (združevanje) vseh posameznih vrstic in shranjevanje v spremenljivo besedilo.
6. Zaprite datoteko.
Zapri #1
7. Nato iščemo položaj besed zemljepisna širina in dolžina v besedilu spremenljivke. Uporabljamo funkcijo Instr.
posLat = InStr (besedilo, "zemljepisna širina")
posLong = InStr (besedilo, "zemljepisna dolžina")
8. Te položaje in funkcijo Mid uporabljamo za ekstrahiranje koordinat iz besedila spremenljivke in zapis koordinat v celico A1 in celico A2.
Razpon ("A1"). Vrednost = sredina (besedilo, posLat + 10, 5)
Razpon ("A2"). Vrednost = sredina (besedilo, posLong + 11, 5)
9. Preizkusite program.
Rezultat:
