ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦óŪ¶i¤@µ§¸ê®Æ(.TXTÀÉ)?

¦^´_ 1# linshin1999


Input # ³¯­z¦¡
±q¤w¶}±Òªº´`§ÇÀɤ¤Åª¨ú¸ê®Æ¡A¨Ã±N¸ê®Æ«ü©wµ¹ÅܼÆ
VBA»¡©ú½d¨Ò
Dim MyString, MyNumber
Open "TESTFILE" For Input As #1    ' ¶}±Ò¿é¤JÀɮסC
Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
    Input #1, MyString, MyNumber    ' ±N¸ê®ÆŪ¤J¨â­ÓÅܼƤ¤¡C
    Debug.Print MyString, MyNumber    ' ±N¸ê®Æ¦b¡u¥ß§Y¡vµøµ¡¤¤Åã¥Ü¡C
Loop
Close #1    ' Ãö³¬ÀɮסC
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD