:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

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

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

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

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

#7

by snasui » Tue Aug 22, 2023 11:45 am

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

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

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

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

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

#6

by SuminO » Tue Aug 22, 2023 11:21 am

หากอยากให้พิมพ์ 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 ครับ ช่วยแก้ไขให้ด้วยครับ

#5

by SuminO » Fri Aug 18, 2023 11:59 am

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

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

#4

by snasui » Fri Aug 18, 2023 8:36 am

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

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

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

#3

by SuminO » Fri Aug 18, 2023 8:27 am

Error ครับ
มีการดึงข้อมูลมาแค่ หัวข้อที่ 2
Attachments
1692321953796.jpg
1692321953796.jpg (8.95 KiB) Viewed 114 times
1692321978033.jpg
1692321978033.jpg (45.45 KiB) Viewed 114 times
1692321997718.jpg
1692321997718.jpg (37.9 KiB) Viewed 114 times

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

#2

by snasui » Thu Aug 17, 2023 10:06 pm

:D ตัวอย่างการปรับ 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

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

#1

by SuminO » Thu Aug 17, 2023 3:23 pm

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

ขอบคุณมาก ๆครับ
Attachments
1692260404741.jpg
1692260404741.jpg (37.76 KiB) Viewed 123 times
MsWordImport.xlsm
(21.49 KiB) Downloaded 12 times
Form.docx
(31.79 KiB) Downloaded 10 times

Top