Snasui Excel Forum

คือได้รับภาระกิจหลอมรวมข้อมูลผลการเรียนเฉลี่ย GPA ของนักเรียน ม.6 ของแต่ละโรงเรียน
ที่อยู่ในรูปของ text file ดั่งไฟล์ที่แนบครับ
นำเข้ามาใน excel โดยให้ข้อมูลแต่ละโรงเรียนต่อท้ายกันลงไปเรื่อย ๆ ใน excel
เพื่อง่ายในการตรวจสอบ error ต่าง ๆ นะครับ
เช่น เลขประชาชนซ้ำกัน ความถูกต้องของเลขประชาชน ฯลฯ
คอลัมน์ที่ต้องการนำเข้า
เช่น จาก text file ตำแหน่งตัวเลขที่ 1-10 ให้นำลงในคอลัมน์ที่ 1 ใน excel
text file ที่นำเข้าจะมีทั้งแบบ 15 และ 34 คอลัมน์ ขึ้นกันโปรแกรมที่โรงเรียนใช้ครับ
โดยคอลัมน์ที่ 1-15 คือข้อมูลแบบเดียวกันครับ
ตามที่กำหนดในไฟล์ PDF ที่แนบครับ
พอจะมีวิธีการไหมครับ
ขอบคุณครับ

สามารถ Import เข้ามาใน Excel แล้วแบ่งด้วย Text to columns โดยเข้าเมนู Data > ที่กลุ่มเมนู Get External Data เลือก From Text

1. เลือกแบบกำหนดเอง (Fixed width) โดยเลือก File origin เป็น 874
2. ให้ทำการเลือกเส้นแบ่งเองตามจำนวนหลักที่กำหนดในไฟล์ PDF ซึ่งจะเห็นว่าในกล่องโต้ตอบ Text to columns มีระยะวัดให้เรียบร้อยแล้ว กรณีคลิกแบ่งเส้นผิดต้องการลบออกให้ดับเบิ้ลคลิกลงที่เส้นแบ่ง
3. ในขั้นตอนที่ 3 ของกล่องโต้ตอบ Text to columns ให้กำหนด Format ของแต่ละคอลัมน์แล้วคลิก Finish

หากต้องการทำให้เป็นอัตโนมัติต้องใช้ VBA จำเป็นต้องให้ผู้ที่มีความรู้เกี่ยวกับ VBA เขียนมาก่อน ติดแล้วค่อยถามกันต่อ

คงต้องขอความอนุเคราะห์จากทุกท่านผู้ใจดี ช่วยด้วยนะครับ
เพื่อการศึกษาของนักเรียนไทยครับ-ขอบคุณครับ

ผมไม่อนุญาตให้ตอบ VBA หากผู้ถามไม่ได้เขียนมาก่อน

ดังนั้น ก่อนจะได้รับการอนุเคราะห์ จะต้องมีการเขียน Code มาก่อน เพื่อความเท่าเทียมกันของสมาชิกทุกท่านครับ

หรืออีกทางเลือกคือติดต่อถามตอบกันเองผ่านช่องทางอีเมลหรือหลังไมค์ ไม่อนุญาตให้ส่งถาม Admin ครับ

ครับผม
ขออภัยท่าน Admin ครับ

วิธีนี้อาจจะง่ายกว่าการใช้ VBA ครับ

1. รวมไฟล์ทั้งหมดให้เป็นหนึ่งไฟล์ โดยใช้คำสั่งใน command promtp
copy *.txt output.out

2. เปลี่ยนชื่อ output.out เป็น output.txt
3. ทำการ Import ข้อมูลเข้าไปใน Excel ตามข้างต้น

"รวมไฟล์ทั้งหมดให้เป็นหนึ่งไฟล์ โดยใช้คำสั่งใน command promtp
copy *.txt output.out"
ทำยังไงครับ
ขอละเอียดเพิ่มหน่อยครับ ขอบคุณครับ

ทำได้แล้วครับ ทำตามที่ท่าน menem แนะได้แล้วครับ
ขอบพระคุณ ท่าน menem มากครับ

C:\Users\Aj.Tam>cd ..
C:\Users>cd\
C:\>cd text-to-excel

C:\text-to-excel>
C:\text-to-excel>copy *.txt output.out
GPAX33_1033103001_462558_2-34C.TXT
GPAX39_1039206001_462558_2-15C.TXT
1 file(s) copied.

C:\text-to-excel>