VBA ดึงข้อมูลตารางมาจาก Word แล้ว Error ครับ ช่วยแก้ไขให้ด้วยครับ

[SuminO]

VBA ดึงข้อมูลตารางมาจาก Word มาใส่ Excel แล้ว Error ครับ
ช่วยแก้ไขให้ด้วยครับอาจารย์

ขอบคุณมาก ๆครับ

[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

[SuminO]

Error ครับ
มีการดึงข้อมูลมาแค่ หัวข้อที่ 2

[snasui]

ในเครื่องผมสามารถทำงานได้ ไม่ติดปัญหาใดครับ

คำว่า Comment ใน Word เขียนถูกหรือไม่กรุณาตรวจสอบให้ละเอียดครับ

[SuminO]

ได้แล้วนะครับ ขอบคุณอาจารย์มาก ๆครับ

[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

[snasui]

สิ่งที่ถามมานั้นควรทำได้เองนะ หรืออย่างน้อยก็ปรับมาเองดูก่อน ติดแล้วค่อยถามกันครับ

ลองลำดับการถามตอบว่าเหตุใดจึงติดปัญหา ผมแจ้งให้ตรวจสอบค่าไหนใน Word แสดงว่าค่านั้นจำเป็นจะต้องมีอยู่ใน Code ด้วยเพื่อตรวจสอบกับค่าใน Word

เมื่อมีอยู่ใน Code ด้วยก็ต้องเปลี่ยนค่านั้นให้สอดคล้องกับใน Word นี่คือสิ่งที่ต้องเข้าใจและทำได้เอง

หากคำที่พิมพ์มีได้หลายค่าก็ต้องเขียน Code ดักทุกค่า จำเป็นต้องเขียนมาเองก่อน ติดแล้วค่อยสอบถามกันต่อครับ