ເນື້ອໃນ

# ຟັງຊັນ Input [VBA]

ສົ່ງຄືນສະຕຣີມ (stream) ທີ່ເປີດຢູ່ຂອງໄຟລ໌ Input ຫຼື Binary (ເປັນຂໍ້ຄວາມ).

ຄ່າຄົງທີ່, ຟັງຊັນ ຫຼື ອັອບເຈັກນີ້ຈະຖືກເປີດໃຊ້ດ້ວຍຄຳສັ່ງ Option VBASupport 1 ທີ່ວາງໄວ້ກ່ອນລະຫັດໂປຣແກຣມໃນໂມດູນ.

### ໄວຍາກອນ:

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

### ປະເພດຄ່າທີ່ສົ່ງກັບ:

String

### ພາຣາມິເຕີ:

Number: (ຈຳເປັນ) ນິພົດຕົວເລກທີ່ກຳນົດຈຳນວນຕົວອັກສອນທີ່ຈະສົ່ງຄືນ.

#: (ເລືອກໄດ້).

FileNumber: (ຈຳເປັນ) ໝາຍເລກໄຟລ໌ໃດໜຶ່ງທີ່ຖືກຕ້ອງ.

### ລະຫັດຂໍ້ຜິດພາດ:

6 ຄ່າເກີນຂອບເຂດ (Overflow)

52 ຊື່ໄຟລ໌ ຫຼື ເລກໄຟລ໌ບໍ່ຖືກຕ້ອງ

62 ການອ່ານເກີນຈຸດສິ້ນສຸດຂອງໄຟລ໌ (EOF)

### ຕົວຢ່າງ:

            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#

ຟັງຊັນ I/O ຂອງ VBA