Invoerbeschrijving
Retourneert de open stroom van een invoer- of binair bestand (tekenreeks).
Invoersyntaxis
1 | Invoer(Getal, [#]Bestandsnummer) |
Het Input-statement bevat 2 argumenten:
Nummer: Het aantal tekens dat moet worden geretourneerd.
Bestandsnummer:Geldig dossiernummer.
Voorbeelden van Excel VBA-invoerverklaring
Om de Input-instructie te testen, maakt u een tekstbestand "test.txt" op de D-schijf. (D:\test.txt) Neem aan dat de inhoud van het bestand als volgt is.
123 | abc1 2 3xy z |
Voer de volgende code uit.
1234567891011 | Sub Input_Fx_Example()Dim strContent As StringDim MyCharOpen "D:\test.txt" voor invoer als #1 ' Bestand openen.Do While Not EOF(1) ' Loop tot het einde van het bestand.MyChar = Input(1, #1) ' Krijg één teken.strContent = strContent & MijnChar 'LusMsgBox strContentSluiten #1 ' Sluit bestand.Einde sub |
Het resultaat zal dan als volgt zijn.