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

あなたはほとんどそこにいます:)。ちょうどtextline私は別の行を書き込む必要があります今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