テキストファイルの取り込み

テキストファイルを取り込む際に以下のコードを使用していましたが
エクセルファイルのレイアウトが変わった為、コード変更が必要になりました。
手直しにご協力いただけると幸いです。

Sub txt()

Dim txtName As String
txtName = Application.GetOpenFilename("テキストファイル,*.txt")
If txtName <> "False" Then
Open txtName For Input As #1
End If
Dim r As Long
r = 1
Do Until EOF(1)
Dim buf As String
Line Input #1, buf
Dim aryLine As Variant
aryLine = Split(buf, ",")
Dim i As Long
For i = LBound(aryLine) To UBound(aryLine)
Cells(r, i + 1) = aryLine(i)
Next
r = r + 1
Loop
Close #1

End Sub

やりたいこと

〇データを返す先をセル「C2」に変更したい


以上です、よろしくお願いいたします。

質問者からの補足コメント

• そうです、データを返す先はA1のセルでした。
  わかりにくい言い方で申し訳ないです。

  No.1の回答に寄せられた補足コメントです。 補足日時：2019/11/01 06:25

No.1 回答者： tatsu99 回答日時： 2019/10/31 22:42

「データを返す先」の意味ですが、

今までは、データを返す先はセルA1だったということでしょうか？

No.2 ベストアンサー 回答者： GooUserラック 回答日時： 2019/11/01 05:40

こんな事でしょうか？

Sub txt()

　Dim txtName As String
　txtName = Application.GetOpenFilename("テキストファイル,*.txt")
　If txtName <> "False" Then
　　Open txtName For Input As #1
　End If
　Dim r As Long
　r = 2
　Do Until EOF(1)
　　Dim buf As String
　　Line Input #1, buf
　　Dim aryLine As Variant
　　aryLine = Split(buf, ",")
　　Dim i As Long
　　For i = LBound(aryLine) To UBound(aryLine)
　　　Cells(r, i + 3) = aryLine(i)
　　Next
　　r = r + 1
　Loop
　Close #1

End Sub

この回答へのお礼

ありがとうございます。急いでいたので助かりました。また宜しくお願いします。

お礼日時：2019/11/01 07:44