セルに記述されたパスを開いて１行ずつ値を取得するプログラムを作りたいです

Question

元のエクセル

添付画像のようにA列にテキストファイルのパスが入力されます。

実現したい処理

・A2～記入のある最終行まで、１つずつファイルを開く（文字コードをUTF-8に指定）
・開いたテキストファイルを改行ごとに１行ずつ読み込む
・１行ずつ読み込んだ各テキストから以下の内容のみ抽出
⇒日付（先頭文字～２３文字目まで）、ファイル名、件数（（件数＝○○）の○○部のみ抽出）
・sheet２に結果を張り付ける

イメージ

発生している問題

まずは、パスのA2~最終行まで取得するfor文を作成しようと
下記のコードを記述しましたが、参照が不正、または不完全です。とエラーになってしまいます。

Sub ファイルを開く()
Dim i

i = 0
For i = 1 To .Cells(.Rows.Count, 1).Row
MsgBox i

Next

End Sub

どこを修正すればよいのでしょうか...どなたかご教授いただけますと幸いです。
よろしくお願いいたします。

Answer 1

多分、参考にした元のコードの With文が抜け落ちてるから。たとえば以下のような形。

With Sheets(1)
  For i = 1 To .Cells(.Rows.Count, 1).Row
    MsgBox i
  Next
End With

Answer 2

アタマのピリオドが余計なんでは