Opis vhoda
Vrne odprti tok vhodne ali binarne datoteke (niz).
Vhodna skladnja
1 | Vnos (številka, [#] številka datoteke) |
Stavek Input vsebuje 2 argumenta:
Številka: Število znakov za vrnitev.
Število datotek:Veljavna številka datoteke.
Primeri vhodne izjave programa Excel VBA
Za preizkus stavka Input ustvarite besedilno datoteko »test.txt« na pogonu D. (D: \ test.txt) Predpostavimo, da je vsebina datoteke naslednja.
123 | abc1 2 3xy z |
Prosimo, zaženite naslednjo kodo.
1234567891011 | Sub Input_Fx_Example ()Zatemni strContent As StringDim MyCharOdprite "D: \ test.txt" Za vnos kot #1 'Odprite datoteko.Do While Not EOF (1) 'Zveži do konca datoteke.MyChar = Vnos (1, #1) 'Pridobite en znak.strContent = strContent & MyChar 'ZankaMsgBox strContentZapri #1 'Zapri datoteko.End Sub |
Potem bo rezultat naslednji.