Tämä opetusohjelma osoittaa, kuinka tekstitiedosto luetaan merkkijonoksi VBA: ssa.
Voimme lukea tekstitiedoston rivi riviltä tai koko tiedostona.
Lue koko tekstitiedosto merkkijonoksi
Tekstitiedoston teksti koostuu yleensä useista riveistä, jotka on erotettu erotinmerkeillä. Nämä voivat olla pilkku (","), pilkku, jossa on välilyönti (","), puolipiste (";"), puolipiste, jossa on välilyönti (";"), välilyönti (""), välilehti (vbTab ) tai harvinaisissa tapauksissa muita hahmoja, kuten tilde (~). Rivit erotetaan tavallisesti rivinvaihdolla (vbCRLF).
Helpoin tapa lukea koko tekstitiedosto VBA: ssa on ajaa seuraava koodi, joka sijoittaa tekstitiedoston koko sisällön merkkijonomuuttujaan. Tämä menettely käyttää VBA Open -lauseketta ja VBA FreeFile -toimintoa.
12345678910 | Alitiedosto ()Dim iTxtFile kokonaislukunaDim strFile merkkijononaHimmennä strFileText merkkijononastrFile = "C: \ Test \ TestFile.txt"iTxtFile = FreeFileAvaa strFile syötettäväksi FreeFile -tiedostonastrFileText = Tulo (LOF (iTxtFile), iTxtFile)Sulje iTxtFileEnd Sub |
Voimme myös lukea tekstitiedoston VBA: ssa käyttämällä FileSystemObjectia. Alla olevassa koodissa olemme käyttäneet myöhäistä sidontaa tiedostojärjestelmäobjektin kanssa.
1234567891011 | Sub ReadTextFile ()Dim strText merkkijononaHimmennä FSO objektinaHimmennä siirtoverkonhaltija kohteenaAseta FSO = CreateObject ("Scripting.FileSystemObject")Aseta TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO. SuljeAseta TSO = ei mitäänAseta FSO = ei mitäänEnd Sub |
Voimme myös käyttää koodin varhaista sitomista ja julistaa tiedostojärjestelmäobjektin luomalla Excel -projektissamme viittauksen tiedostojärjestelmäobjektiin.
1234567891011 | Sub ReadTextFile ()Dim strText merkkijononaDim FSO uutena FileSystemObjectHimmennä siirtoverkonhaltija kohteenaAseta FSO = CreateObject ("Scripting.FileSystemObject")Aseta TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO. SuljeAseta TSO = ei mitäänAseta FSO = ei mitäänEnd Sub |