Excel VBA Вставка текста из файла в рабочий лист

Question

Что я хочу: Чтобы иметь данные внутри блокнота, скопированы в рабочий лист (начиная с диапазона A1).

Что я пробовал:

Sub Test() 
Dim testfile, textline 

testfile = Application.GetOpenFilename() 
Open testfile For Input As #1 

Do Until EOF(1) 
    Line Input #1, textline 
Loop 
Close #1 

ActiveWorkbook.Sheets("Sheet1").Range("A1").Value = textline 
End Sub 

Результат:

Любые рекомендации относительно того, почему я делаю не так, что она не будет захватывать весь текст в блокноте , и только первая строка? Благодарю.

Answer 1

Вы почти здесь :). Просто нужно написать каждую отдельную строку, потому что теперь вы меняете только Range("A1").Value.

Sub Test() 
Dim testfile, textline 

testfile = Application.GetOpenFilename() 
Open testfile For Input As #1 

i = 1 
Do Until EOF(1) 
    Line Input #1, textline 
    ActiveWorkbook.Sheets("Sheet1").Range("A" & i).Value = textline 
    i = i + 1 
Loop 
Close #1 

End Sub