Snasui Excel Forum

puriwutpokin wrote: Thu Nov 12, 2020 5:09 pm ดัก Error ไว้ใต้ ประกาศตัวแปรครับ

Code: Select all

On Error Resume Next

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

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

puriwutpokin wrote: Thu Nov 12, 2020 8:13 pm ปรับตามนี้ครับ

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...
    

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