Az alábbiakban megnézzük a programot Excel VBA hogy szöveges fájlból olvas adatokat. Ez a fájl néhány földrajzi koordinátát tartalmaz, amelyeket importálni szeretnénk az Excelbe.
Helyzet:
1. Először töltse le a szöveges fájlt, és adja hozzá a "C: \ test \" mappához
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
2. Négy változót deklarálunk. karakterlánc típusú myFile, karakterlánc típusú szöveg, karakterlánc típusú szövegsor, posLat típusú Integer és posLong típusú egész szám.
Dim myFile mint String, szöveg Mint String, textline Mint String, posLat As Integer, posLong As Integer
3. Inicializálnunk kell a myFile változót a teljes elérési útvonallal és a fájlnévvel.
myFile = "C: \ teszt \ földrajzi-koordináták.txt"
vagy
az Application objektum GetOpenFilename módszerével jelenítse meg a szabványos Megnyitás párbeszédpanelt, és válassza ki a fájlt (a fájl tényleges megnyitása nélkül).
myFile = Application.GetOpenFilename ()
Megjegyzés: a zárójelek közötti üres rész azt jelenti, hogy az Excel VBA semmit nem adjuk meg bemenetként. Vigye a kurzort a GetOpenFilename elemre a Visual Basic Editorban, és kattintson az F1 gombra az argumentumokkal kapcsolatos segítségért.
4. Adja hozzá a következő kód sort:
Nyissa meg a myFile fájlt az 1. bemenethez
Megjegyzés: ez az utasítás lehetővé teszi a fájl olvasását. A kód további részében a fájlra #1 hivatkozhatunk.
5. Adja hozzá a következő kódsorokat:
EOF -ig (1)
1. sor bemenet, szövegsor
szöveg = szöveg és szövegsor
Hurok
Megjegyzés: a fájl végéig (EOF) az Excel VBA egyetlen sort olvas ki a fájlból, és hozzárendeli a textline -hoz. A & operátort használjuk az egyes sorok összefűzésére (összekapcsolására) és a változó szövegben való tárolására.
6. Zárja be a fájlt.
Bezárás #1
7. Ezután megkeressük a szélességi és hosszúsági szavak helyzetét a változó szövegében. Az Instr függvényt használjuk.
posLat = InStr (szöveg, "szélesség")
posLong = InStr (szöveg, "hosszúság")
8. Ezen pozíciók és a Közép függvény segítségével vonjuk ki a koordinátákat a változó szövegéből, és írjuk be a koordinátákat az A1 cellába és az A2 cellába.
Tartomány ("A1"). Érték = közepes (szöveg, posLat + 10, 5)
Tartomány ("A2"). Érték = közepes (szöveg, posLong + 11, 5)
9. Tesztelje a programot.
Eredmény: