การ import text ไฟล์ลงตาราง

[tstc79tt]

ผมมีไฟล์ text อยู่แล้วพอ import ไฟล์ ลงตารางมันครั้งแรกไม่เป็นไรครับ แล้วก็ พอกด อีกครั้งแทนที่มันจะ ทับอันเก่าไป มันกลับดันตารางเก่าไปข้างๆ แทน

ใช้ cell.clear ใน VBA ไม่ได้ด้วยครับ เพราะมันจะทำให้ทุกอย่างใน sheet นั้นหายไป

มีไฟล์ทดลองด้านล่างครับ


(ผมตั้งกระทู้ใหม่เพราะคิดว่ามันเรื่องใหม่น่ะครับ)

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub ImportTextFile()
    Dim rPaht As String
    Dim rFileName As String
    rPaht = Sheet1.Range("C9")
    rFileName = Sheet1.Range("C10")
    Range("G8").CurrentRegion.Offset(1, 0).Clear
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & rPaht & "\" & rFileName & ".txt", Destination:= _
        Range("$g$9"))
        .Name = Sheet1.Range("C10").Value
        .TextFilePlatform = 874
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileOtherDelimiter = ":"
        .Refresh BackgroundQuery:=False
    End With
    Sheet1.Range("C9") = rPaht
    Sheet1.Range("C10") = rFileName
End Sub

[tstc79tt]

มันลบตาราง และก็ผลคำนวนฟั่งชั่นทางด้านซ้าย ออกหมดเลยครับ แต่ข้อมูลอยู่กับที่ไม่ดันแล้วครับ

[snasui]

มันลบตาราง และผลคำนวนฟั่งชั่นทางด้านซ้าย ออกหมดเลยครับ แต่ข้อมูลอยู่กับที่ไม่ดันแล้วครับ

ผลการคำนวณด้านซ้ายที่ว่านั้นอยู่ในช่วงเซลล์ใด ตัวอย่างที่แนบมาเป็นตัวแทนของไฟล์จริงหรือไม่ ช่วยระบุช่วงข้อมูลที่ต้องการลบให้ชัดเจนครับ

[tstc79tt]

นี่ครับ หากลงกดimport ไฟล์ ดูมันจะลบตารางทิ้งเลยอ่ะครับ

[snasui]

Code ที่เขียนไปนั้นเป็นการ Clear ทุกอย่าง จึงไม่แปลกที่ตารางจะถูกลบทิ้งครับ ให้ตอบสิ่งที่ผมถามไปครับ

ผลการคำนวณด้านซ้ายที่ว่านั้นอยู่ในช่วงเซลล์ใด ตัวอย่างที่แนบมาเป็นตัวแทนของไฟล์จริงหรือไม่ ช่วยระบุช่วงข้อมูลที่ต้องการลบให้ชัดเจนครับ

[tstc79tt]

ส่วนช่วงที่ต้องการ ในการimport และ ให้ลบอยู่ ในช่วงคอลัม G9 H9 I9 ลงมาเรื่อยๆ


ช่วงที่ฟังชั่นอยู่และไม่ต้องการให้หายไปคือในช่วงคอลัม J9 ลงมาเรื่อยๆครับ

ขอโทษครับ

ไม่ใช่ไฟล์จริงครับ ผมอยากรู้แล้วเอาไปดูๆศึกษาน่ะครับ

[snasui]

ลองปรับ code เป็นตามด้านล่างครับ

Code: Select all

Sub ImportTextFile()
    Dim rPaht As String
    Dim rFileName As String
    rPaht = Sheet1.Range("C9")
    rFileName = Sheet1.Range("C10")
    Range("G8").CurrentRegion.Offset(1, 0).Resize(, 3).Clear
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & rPaht & "\" & rFileName & ".txt", Destination:= _
        Range("$g$9"))
        .Name = Sheet1.Range("C10").Value
        .TextFilePlatform = 874
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileOtherDelimiter = ":"
        .Refresh BackgroundQuery:=False
    End With
    Sheet1.Range("C9") = rPaht
    Sheet1.Range("C10") = rFileName
End Sub

[tstc79tt]

ขอบคุณครับ

ถามเพิ่มน่ะครับ เช่น สมมุติว่า มีหลาย ชีต น่ะครับ ต้องการรัน โคดนี้ จาก Sheet1 แล้วนำผลไปลงที่ Sheet3 ได้ไหมครับ

[snasui]

สามารถทำได้ครับ

[tstc79tt]

ผมลอง ใส่ Sheet3.Range("G8").CurrentRegion.Offset(1, 0).Resize(, 3).Clear
ลงไปบรรทัดแต่มันก็ฟ้องว่า มันสร้างตารางลงผิดที่
และก็อีกอันคือ
ย้ายโคดไป sheet3
ผมลอง assign button ให้เรียก ฟังชั่นจาก sheet 3 มาเลย ก็ไม่ได้ครับ

ผมต้องแก้ตรงไหน หรือว่า มีโคดไหนต้องใส่เพิ่มหรือป่าว ขอแนะนำครับ

[snasui]

แนบไฟล์พร้อม Code ที่ปรับเองแล้วมาด้วยครับ

[tstc79tt]

นี่ครับ ผม ใส่ปุ่มที่ดึงโคดมาจากแต่ละชีตแยกไว้ด้วย

[snasui]

กรณีดึงไป Sheet3 ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub ImportTextFile()
    Dim rPaht As String
    Dim rFileName As String
    rPaht = Sheet1.Range("C9")
    rFileName = Sheet1.Range("C10")
    Sheet3.Range("G8").CurrentRegion.Offset(1, 0).Resize(, 3).Clear
    With Sheet3.QueryTables.Add(Connection:= _
        "TEXT;" & rPaht & "\" & rFileName & ".txt", Destination:=Sheet3.Range("$g$9"))
        .Name = Sheet1.Range("C10").Value
        .TextFilePlatform = 874
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileOtherDelimiter = ":"
        .Refresh BackgroundQuery:=False
    End With
'    Sheet1.Range("C9") = rPaht
'    Sheet1.Range("C10") = rFileName
End Sub