Isi

# 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

Topik Terkait

Input# Statement

Fungsi I/O VBA