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

แนบไฟล์ต้นทางมาด้วยจะได้ช่วยทดสอบได้ครับ
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

ไฟล์ที่แนบมาคั่นกันด้วย 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
ใช้ได้แล้วครับผม ขอบคุณครับ