Hsieh

¦^´_ 2# Mindyj

1. Sub ex()
   
2. fs = ThisWorkbook.Path & "\import.txt"
   
3. Open fs For Input As #1
   
4. i = 6
   
5. Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
   
6.     Line Input #1, TextLine
   
7.     Cells(i, 1) = TextLine
   
8.     i = i + 1
   
9. Loop
   
10. Close #1
    
11. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# Mindyj

1. Sub import()
   
2. Dim A As Range
   
3. fs = Application.GetOpenFilename("Text Files (*.txt), *.txt")
   
4. Set A = Application.InputBox("¿ï¾Ü¤å¦rÀÉ­n©ñ¸mªº¦ì¸m", , "$A$1", , , , , 8)
   
5. Open fs For Input As #1
   
6. Do While Not EOF(1)    ' °õ¦æ°j°éª½¨ìÀɧÀ¬°¤î¡C
   
7.     Line Input #1, TextLine
   
8.     A.Offset(i, 0) = TextLine
   
9.     i = i + 1
   
10. Loop
    
11. Close #1
    
12. End Sub

½Æ»s¥N½X