ขอสอบถามวิธีการแก้ไขนำไฟล์เข้าแล้วไม่เป็นภาษาไทย

[9KiTTi]

ดัก Error ไว้ใต้ ประกาศตัวแปรครับ

Code: Select all

On Error Resume Next

ลองใส่แล้วครับ ไม่แจ้ง error ครับ แต่ถ้าไม่ได้เลือกไฟล์อะไรเลย ก็จะขึ้นข้อความนำข้อมูลเข้าสำเร็จแล้ว ทั้งๆที่ไม่ได้เลือกไฟล์เพื่อนำเข้าครับ รบกวนช่วยชี้แนะด้วยครับ ขอบพระคุณครับ

[puriwutpokin]

ปรับตามนี้ครับ

Code: Select all

    
    'Other code...
    txtfilesToOpen = Application.GetOpenFilename _
                 (FileFilter:="Text Files (*.txt), *.txt", _
                  MultiSelect:=True, Title:="Text Files to Open")
    If VarType(txtfilesToOpen) = vbBoolean Then
        MsgBox "Please select file."
        Exit Sub
    End If
    For Each txtfile In txtfilesToOpen
     'Other code...
    

[9KiTTi]

ปรับตามนี้ครับ

Code: Select all

    
    'Other code...
    txtfilesToOpen = Application.GetOpenFilename _
                 (FileFilter:="Text Files (*.txt), *.txt", _
                  MultiSelect:=True, Title:="Text Files to Open")
    If VarType(txtfilesToOpen) = vbBoolean Then
        MsgBox "Please select file."
        Exit Sub
    End If
    For Each txtfile In txtfilesToOpen
     'Other code...
    

ขอบพระคุณมากครับ ตอนนี้ผมแก้ไขปัญหาทั้งหมดได้แล้วครับ ขอบพระคุณทุกๆท่านที่ช่วยผมครับ