Input Function [VBA]

Mengembalikan aliran terbuka dari file Input atau Biner (String).

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

Sintaksis:


        Input( Number as Integer, [# ] FileNumber as Integer)

Nilai balikan:

String

Parameter:

Nomor: Diperlukan. Ekspresi numerik menentukan jumlah karakter yang akan dikembalikan.

#: Opsional.

FileNumber: Diperlukan. Pada setiap nomor file yang valid.

Kode kesalahan:

6 Tumpang tindih

52 Nama berkas atau angka yang buruk

62 Pembacaan melampaui EOF

Contoh:


        REM ***** BASIC *****
        Option VBASupport 1
        Sub Example_Input
            Dim MyData
            Open "MyDataFile.txt" For Input As #1
            Do While Not EOF(1)
                MyData = Input(1, #1)
                Print MyData
            Loop
            Close #1
        End Sub

Input# Statement

Fungsi I/O VBA