huijuang

1. Sub test()
   
2. '¶}±Òtest.txtªºÀÉ®×
   
3. Open "c:\temp\test.txt" For Input As #1
   
4. i = 1
   
5. Do While Not EOF(1)
   
6. Input #1, a, b    'Ū¨útest.txtªº¸ê®Æ¡Aµù¡G³o¸Ìªº¸ê®Æ¨C¦æ¥u¦³2­Ó¸ê®Æ¡A©Ò¥H¬O¥u¦³a,b
   
7. 
   
8. Range("a1").Offset(i - 1, 0) = a   '±N¸ê®Æ©ñ¨ìa1¶}©l¥H¤U
   
9. Range("b1").Offset(i - 1, 0) = b   '±N¸ê®Æ©ñ¨ìb1¶}©l¥H¤U
   
10. 
    
11. i = i + 1
    
12. Loop
    
13. 
    
14. Q:
    
15. Close #1    '§âtest.txtÃö±¼¡A³o¸Ì¨SÃöªº¸Ü¡A¤§«á¶}±Ò·|¥X²{¿ù»~
    
16. End Sub

½Æ»s¥N½X