Innehållsförteckning
EOF Beskrivning
Returnerar värdet som anger om slutet på en fil har nåtts (booleskt).
EOF -syntax
I VBA Editor kan du skriva "EOF (" för att se syntaxen för EOF -funktionen:
EOF -funktionen innehåller ett argument:
Filnummer: Alla giltiga filnummer.
Exempel på Excel VBA EOF -funktion
För att testa EOF -funktionen, skapa en textfil "test.txt" på D -enheten. (D: \ test.txt) Antag att innehållet i filen är enligt följande.
| 123 | abc1 2 3xy z |
Kör följande kod.
| 1234567891011 | Sub Input_Fx_Example ()Dim strContent As StringDim MyCharÖppna "D: \ test.txt" för inmatning som #1 'Öppna fil.Do While Not EOF (1) 'Loop till slutet av filen.MyChar = Input (1, #1) 'Skaffa ett tecken.strContent = strContent & MyChar 'SlingaMsgBox strContentStäng #1 'Stäng fil.Avsluta Sub |
Resultatet blir då följande.
Här användes EOF -funktion för att avgöra att slutet på en fil har nåtts.
