Snasui Excel Forum

ขอบคุณมากครับอาจารย์

งั้นไม่เป็นไรแล้วครับอาจารย์ ผมไม่ทราบจริงๆครับ ผมเพียงพยายามที่จะเขียน code แต่มืดแปดด้านเลยมาขอคำปรึกษาจากอาจารย์

เพื่อจะศึกษาแล้วเรียนรู้การใช้ vba ให้มากกว่านี้ ขออภัยที่รบกวนเวลาอาจารย์นะครับ ขอบคุณมากครับ...

.xlsx ครับ

ตัวไฟล์ test ที่ส่งไปไม่ถูกต้องหรอครับ ^^" เป็นไฟล์ excel ที่ผมได้บันทึก vba ไปแล้วครับ

ใช่ตัวนี้หรือเปล่าครับอาจารย์ ผมขออภัยอย่างยิ่งนะครับ

ส่วนของ excel ที่ได้ผลลัพธ์ออกมาครับ

ขออภัยนะครับอาจารย์ ผมได้ทำการแนบไฟล์ไปแล้วแต่ทำไมไม่ขึ้นก็ไม่ทราบครับ

ตัวอย่าง code ที่ผมลองเขียนครับ


Sub readfile()

Dim x As Double
Dim txt As String

Open "C:\Users\MahM33H\Documents\coe_101.txt" For Input As #1

x = 0

Do While Not EOF(1)
Line Input #1, txt
Cells(1, 1).Offset(x, 0) = txt
x = x + 1
Loop

Close #1

End Sub

ช่วยแนะนำทีนะครับ ขอบคุณมากครับ

ผมลองเขียนเพื่อดึงเข้ามาเฉยๆ พบว่าไม่สามารถดึงภาษาไทยได้ครับแล้วก็ไม่สามารถแบ่งข้อมูลใส่ลงใน column excel ได้ครับ


Sub readfile()

Dim x As Double
Dim txt As String

Open "C:\Users\MahM33H\Documents\coe_101.txt" For Input As #1

x = 0

Do While Not EOF(1)
Line Input #1, txt
Cells(1, 1).Offset(x ...

รบกวนปรึกษาอาจารย์และผู้เชี่ยวชาญครับ

ผมมีไฟล์ text ที่เป็นโจทย์แล้วมี ตัวเลือกคำตอบ คือผมต้องการแยกโจย์และตัวเล์อกใส่ลงใน excel ในแต่ละคอลัม

โดยผมมีแนวคิดคือ ทำการวนรอบทีละบรรทัดในไฟล์ข้อมูลแล้วแบ่งใส่ใน excel โดยจะกำหนดทำการข้ามบรรทัดที่เป็นช่องว่าง

และทำการวนใหม่เมื่อครบตามเงื่อนไข กล่าาวค ...