shell - VBAコードエラーのコマンド「このオブジェクトはこのプロパティまたはメソッドをサポートしていません」

Question

ここで使用したコードは、cmdline を実行して txt ファイルを作成し、それを Excel にインポートしようとすると、「このオブジェクトはこのプロパティまたはメソッドをサポートしていません」と表示され続けます。

どこを修正すればい​​いのかわからない

Sub ImportTextFile()  
Dim rPaht As String
Dim rFileName As String
Dim rPaht1 As String
Dim rFileName1 As String

txtFpath = Sheet1.Range("a1").Value
Filesum = "type unixinv* > summary2.txt"

ChDrive "D"
RSP = Shell(Environ$("COMSPEC"), vbNormalFocus)


Application.Wait Now + TimeValue("00:00:03")
SendKeys "CD " & txtFpath & "{ENTER}", True


Application.Wait Now + TimeValue("00:00:04")
SendKeys Filesum & "{ENTER}", True


Application.Wait Now + TimeValue("00:00:04")
SendKeys "exit " & "{ENTER}", True

rPaht = Sheet1.Range("a1")
rFileName = Sheet1.Range("a2")
Sheet1.Cells.Clear
With Sheet4.QueryTables.Add(Connection:= _
    "TEXT;" & rPaht & "\" & rFileName & ".txt", Destination:=Sheet1.Range("$A$4"))
    .Name = Sheet1.Range("C8").Value
    .TextFilePlatform = 874
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileOtherDelimiter = ":"
    .Refresh BackgroundQuery:=False
End With
Sheet1.Range("a1") = rPaht
Sheet1.Range("a2") = rFileName
End Sub