Page 1 of 1

VBA ดึงฐานข้อมูลพบปัญหา "ข้อมูลไม่แยกColumn"

Posted: Thu Feb 21, 2019 8:33 pm
by auimsuwan
เรียนท่านอาจารย์
ผมเขียน Code ดึงฐานข้อมูลจาก CSV File พบว่าข้อมูลไม่แยก Column และมีตัวคั่น "I" อยู่ในฐาน

Re: VBA ดึงฐานข้อมูลพบปัญหา "ข้อมูลไม่แยกColumn"

Posted: Thu Feb 21, 2019 8:56 pm
by auimsuwan
ข้อมูลProgram ตามแนบ

Re: VBA ดึงฐานข้อมูลพบปัญหา "ข้อมูลไม่แยกColumn"

Posted: Thu Feb 21, 2019 9:29 pm
by snasui
:D แนบไฟล์ต้นทางมาด้วยจะได้ช่วยทดสอบได้ครับ

Re: VBA ดึงฐานข้อมูลพบปัญหา "ข้อมูลไม่แยกColumn"

Posted: Fri Feb 22, 2019 5:03 am
by auimsuwan
ฐานข้อมูลตั้งต้นใหญ่มากครับ ผมเลยตัดบางส่วนออก เอกสารตามแนบครับ

Re: VBA ดึงฐานข้อมูลพบปัญหา "ข้อมูลไม่แยกColumn"

Posted: Fri Feb 22, 2019 6:34 am
by snasui
:D ไฟล์ที่แนบมาคั่นกันด้วย Comma จะต้องกำหนดตัวแบ่งเป็น Comma เพิ่มเข้าไปด้วยครับ นอกจากนี้ผมได้เพิ่มตัวแบ่งเป็น Pipe ให้ดูเป็นตัวอย่าง หากไฟล์จริงไม่ได้คั่นด้วย Pipe (|) ให้ Mark .TextFileOtherDelimiter = "|" เป็น Comment ไปครับ

ตัวอย่าง Code

Code: Select all

'Other code
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, _
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=True
'Other code

Re: VBA ดึงฐานข้อมูลพบปัญหา "ข้อมูลไม่แยกColumn"

Posted: Fri Feb 22, 2019 9:44 am
by auimsuwan
ใช้ได้แล้วครับผม ขอบคุณครับ