カンマ区切りxxxxx.txtをｴｸｾﾙへ書き込む

Sub test()
　Dim x As Long, y As Long
　Dim buf As String, tmp As Variant

　With Application
　　.ScreenUpdating = False '表示を停める
　　.EnableEvents = False 'イベントプロシージャを停める
　End With
'*****準備
　ActiveSheet.Cells.Clear '入力するシートのデータを消す

'******1:カレントフォルダにあるtxtファイルを開く
　ChDrive UCase(Left(ActiveWorkbook.Path, 1)) 'カレントドライブはアクティブブックがあるドライブに指定（UCaseで大文字に変換）
　ChDir ActiveWorkbook.Path 'カレントフォルダはアクティブブックに指定

　myOpenBook = CurDir & "\xxxxx.txt" '読み込むファイルの名前＋拡張子

　Open myOpenBook For Input As #1 '読み込むファイルを開く

'******2:アクティブシートへ書き込み開始
　x = 0
　Do Until EOF(1)
　　Line Input #1, buf
　　tmp = Split(buf, ",")　’カンマ区切りのデータをsplit関数で分離する
　　x = x + 1
　　For y = 1 To UBound(tmp)
　　　Cells(x, y).Value = tmp(y)
　　Next y
　Loop
　Close #1

　With Application
　　.ScreenUpdating = False '表示機能再開
　　.EnableEvents = False 'イベントプロシージャ再開
　End With
End Sub