Denne vejledning viser, hvordan du læser en tekstfil til en streng i VBA.
Vi kan enten læse tekstfilen linje for linje eller som en hel fil.
Læs en hel tekstfil i en streng
Tekst i en tekstfil består normalt af flere linjer, adskilt af afgrænsere. Disse kan være et komma (","), et komma med mellemrum (","), et semikolon (";"), et semikolon med mellemrum (";"), et mellemrum (""), en fane (vbTab ) eller i sjældne tilfælde enhver anden karakter, såsom en tilde (~). Linjerne adskilles normalt med et linjeskift (vbCRLF).
Den nemmeste måde at læse en hel tekstfil i VBA på er at køre følgende kode, som placerer hele tekstfilens indhold i en strengvariabel. Denne procedure anvender VBA Open -sætningen og VBA FreeFile -funktionen.
| 12345678910 | Sub ReadFile ()Dim iTxtFile som heltalDim strFile Som strengDim strFileText Som strengstrFile = "C: \ Test \ TestFile.txt"iTxtFile = FreeFileÅbn strFile til input som gratisfilstrFileText = Input (LOF (iTxtFile), iTxtFile)Luk iTxtFileAfslut Sub |
Vi kan også læse en tekstfil i VBA ved hjælp af FileSystemObject. I nedenstående kode har vi brugt sen binding med filsystemobjektet.
| 1234567891011 | Sub ReadTextFile ()Dim strText As StringDim FSO som objektDim TSO som objektIndstil FSO = CreateObject ("Scripting.FileSystemObject")Indstil TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO. LukIndstil TSO = IntetIndstil FSO = IntetAfslut Sub |
Vi kan også bruge tidlig binding i koden og erklære filsystemobjektet ved at oprette en reference i vores Excel -projekt til filsystemobjektet.
| 1234567891011 | Sub ReadTextFile ()Dim strText As StringDim FSO som nyt filsystemsystemDim TSO som objektIndstil FSO = CreateObject ("Scripting.FileSystemObject")Indstil TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO. LukIndstil TSO = IntetIndstil FSO = IntetAfslut Sub |
