VBAでCSVを読み取る際にエラーが発生しました

Question

VBAでCSVを読み込もうとしています。

peter,paris,23 
mary,london,34 
steve,rome,56 
lily,madrid,65 

コードを実行して、私はエラーを取得：これは私のCSV

Sub OpenTextFile() 

Dim FilePath As String 
FilePath = "C:\path\to\file\mycsv.csv" 
Open FilePath For Input As #1 
row_number = 0 

Do Until EOF(1) 
    Line Input #1, LineFromFile 
    LineItems = Split(LineFromLine, ",") 

    ActiveCell.Offset(row_number, 0).Value = LineItems(2) 
    ActiveCell.Offset(row_number, 1).Value = LineItems(1) 
    ActiveCell.Offset(row_number, 2).Value = LineItems(0) 

    row_number = row_number + 1 
Loop 

Close #1 

End Sub 

です：this tutorialを以下のとき、私は以下のコードを取得

Index out of range

をそして、この行があります黄色：

ActiveCell.Offset(row_number, 0).Value = LineItems(2) 

Answer 1

あなたはタイプミスがあります

LineItems = Split(LineFromLine, ",") 

はあなたのモジュールの先頭でOption Explicitを使用した場合これは起こらなかっただろう

LineItems = Split(LineFromFile, ",") 

である必要があります。）