ช่วยแก้เช็คให้ผมทีครับ มัน error ว่า "object required"

[tstc79tt]

คือผมอยากรันไฟล์ ขึ้นมาแล้วรวมสรุปข้อมูลจากหลายๆไฟล์เป็นไฟล์เดียว

นี่ครับโคด มันขึ้น ว่า "object required" ตอนรัน

Code: Select all

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

[snasui]

ช่วยทดสอบการ Run ทีละ Step โดยการกดแป้น F8 ไปเรื่อย ๆ แล้วแจ้งมาว่าติดปัญหาที่บรรทัดไหนครับ

[tstc79tt]

เจอแล้วครับ
.refreshtype ครับ

แต่หากผมไม่มีบรรทัดนี้ มันจะดันข้อมูลเก่า ไปทางด้านขวา แทนอ่ะครับ T^T มีทางเลือกอื่นใหม่ไหมครับ นอกจาก clear

[tstc79tt]

ปิดกระทู้ครับ เจอตัวปัญหาแก้แล้วครับขอบคุณครับ