Denna handledning visar hur du läser en textfil i en sträng i VBA.
Vi kan antingen läsa textfilen rad för rad eller som en hel fil.
Läs en hel textfil i en sträng
Text i en textfil består vanligtvis av flera rader, åtskilda med avgränsare. Dessa kan vara ett komma (","), ett komma med mellanslag (","), ett semikolon (";"), ett semikolon med mellanslag (";"), ett mellanslag (""), en flik (vbTab ) eller i sällsynta fall någon annan karaktär som en tilde (~). Linjerna separeras normalt med en radbrytning (vbCRLF).
Det enklaste sättet att läsa en hel textfil i VBA är att köra följande kod som placerar hela innehållet i textfilen i en strängvariabel. Denna procedur använder VBA Open -satsen och VBA FreeFile -funktionen.
| 12345678910 | Sub ReadFile ()Dim iTxtFile som heltalDim strFile As StringDim strFileText som strängstrFile = "C: \ Test \ TestFile.txt"iTxtFile = FreeFileÖppna strFile för inmatning som FreeFilestrFileText = Inmatning (LOF (iTxtFile), iTxtFile)Stäng iTxtFileAvsluta Sub |
Vi kan också läsa en textfil i VBA med hjälp av FileSystemObject. I koden nedan har vi använt sen bindning med filsystemobjektet.
| 1234567891011 | Sub ReadTextFile ()Dim strText Som strängDim FSO som objektDim TSO som objektAnge FSO = CreateObject ("Scripting.FileSystemObject")Ange TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO. StängAnge TSO = ingentingAnge FSO = ingentingAvsluta Sub |
Vi kan också använda tidig bindning i koden och deklarera filsystemobjektet genom att skapa en referens i vårt Excel -projekt till filsystemobjektet.
| 1234567891011 | Sub ReadTextFile ()Dim strText Som strängDim FSO som nytt filsystemsystemDim TSO som objektAnge FSO = CreateObject ("Scripting.FileSystemObject")Ange TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllTSO. StängAnge TSO = ingentingAnge FSO = ingentingAvsluta Sub |
