Page 1 of 1
VBA ดึงข้อมูลตารางมาจาก Word แล้ว Error ครับ ช่วยแก้ไขให้ด้วยครับ
Posted: Thu Aug 17, 2023 3:23 pm
by SuminO
VBA ดึงข้อมูลตารางมาจาก Word มาใส่ Excel แล้ว Error ครับ
ช่วยแก้ไขให้ด้วยครับอาจารย์
ขอบคุณมาก ๆครับ
Re: VBA ดึงข้อมูลตารางมาจาก Word แล้ว Error ครับ ช่วยแก้ไขให้ด้วยครับ
Posted: Thu Aug 17, 2023 10:06 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
'Other code
For i = 1 To tbls(2).Rows.Count
If InStr(tbls(2).Rows(i).Cells(1).Range.Text, "Commen") = 0 Then
sh.Cells(lr, 10 + i).Value = Application.WorksheetFunction.Clean(tbls(2).Rows(i).Cells(2).Range.Text)
Else
sh.Cells(lr, 10 + i).Value = Application.WorksheetFunction.Clean(tbls(2).Rows(i).Cells(1).Range.Text)
End If
Next
'Other code
Re: VBA ดึงข้อมูลตารางมาจาก Word แล้ว Error ครับ ช่วยแก้ไขให้ด้วยครับ
Posted: Fri Aug 18, 2023 8:27 am
by SuminO
Error ครับ
มีการดึงข้อมูลมาแค่ หัวข้อที่ 2
Re: VBA ดึงข้อมูลตารางมาจาก Word แล้ว Error ครับ ช่วยแก้ไขให้ด้วยครับ
Posted: Fri Aug 18, 2023 8:36 am
by snasui
ในเครื่องผมสามารถทำงานได้ ไม่ติดปัญหาใดครับ
คำว่า
Comment ใน Word เขียนถูกหรือไม่กรุณาตรวจสอบให้ละเอียดครับ
Re: VBA ดึงข้อมูลตารางมาจาก Word แล้ว Error ครับ ช่วยแก้ไขให้ด้วยครับ
Posted: Fri Aug 18, 2023 11:59 am
by SuminO
ได้แล้วนะครับ ขอบคุณอาจารย์มาก ๆครับ
Re: VBA ดึงข้อมูลตารางมาจาก Word แล้ว Error ครับ ช่วยแก้ไขให้ด้วยครับ
Posted: Tue Aug 22, 2023 11:21 am
by SuminO
หากอยากให้พิมพ์ Comments เปลี่ยนเป็นอย่างอื่น ตามคนพิมพ์ เช่นพิมพ์ "ขอบคุณครับ" ในช่อง Comments มัน Error ครับ
Code: Select all
For i = 1 To tbls(2).Rows.Count
If InStr(tbls(2).Rows(i).Cells(1).Range.Text, "Comments") = 0 Then
sh.Cells(lr, 10 + i).Value = Application.WorksheetFunction.Clean(tbls(2).Rows(i).Cells(2).Range.Text)
Else
sh.Cells(lr, 10 + i).Value = Application.WorksheetFunction.Clean(tbls(2).Rows(i).Cells(1).Range.Text)
End If
Next
Re: VBA ดึงข้อมูลตารางมาจาก Word แล้ว Error ครับ ช่วยแก้ไขให้ด้วยครับ
Posted: Tue Aug 22, 2023 11:45 am
by snasui
สิ่งที่ถามมานั้นควรทำได้เองนะ หรืออย่างน้อยก็ปรับมาเองดูก่อน ติดแล้วค่อยถามกันครับ
ลองลำดับการถามตอบว่าเหตุใดจึงติดปัญหา ผมแจ้งให้ตรวจสอบค่าไหนใน Word แสดงว่าค่านั้นจำเป็นจะต้องมีอยู่ใน Code ด้วยเพื่อตรวจสอบกับค่าใน Word
เมื่อมีอยู่ใน Code ด้วยก็ต้องเปลี่ยนค่านั้นให้สอดคล้องกับใน Word นี่คือสิ่งที่ต้องเข้าใจและทำได้เอง
หากคำที่พิมพ์มีได้หลายค่าก็ต้องเขียน Code ดักทุกค่า จำเป็นต้องเขียนมาเองก่อน ติดแล้วค่อยสอบถามกันต่อครับ