: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

ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Word and VBA
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. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#1

Post by March201711 »

ดิฉันต้องดึงfile จาก word ในทุกวันๆ มาsave เก็บไว้เป็น text file ซึ่งข้อมูล word จะแยกเก็บเป็นวันๆไป เช่น
c:\2017\201703 วันถัดไป
C:\2017\201704 วันถัดไป
c:\2017\201705 วันถัดไป
c:\2017\201706 วันถัดไป
ต้องเขียน VBA code ใน word อย่างไรบ้างค่ะ

ขอบคุณคะ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#2

Post by snasui »

:D VBA ต้องเขียนมาเอง ติดแล้วค่อยถามกัน อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนครับ :roll:
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#3

Post by March201711 »

ตามเอกสารแนบคะ


ขอบคุณคะ
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

Re: ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#4

Post by snasui »

:D แนบ Code มาในฟอรัม แจ้งว่าติดปัญหาที่บรรทัดใดครับ

การโพสต์ Code ต้องโพสต์ให้แสดงเป็น Code กรุณาอ่านกฎการใช้บอร์ดข้อ 5 ด้านบน :roll:
March201711
Gold
Gold
Posts: 1016
Joined: Sat Mar 11, 2017 7:01 pm
Excel Ver: 2010, 365

Re: ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#5

Post by March201711 »

Code VBA เปลี่ยนตามวันเดือนปี (วัน-1 ดด ปป) คะ และเวลาเข้าไปแก้ vba mircosoft word จะ error ไม่ยอมให้แก้คะ ต้องเลือก select all แล้วไป replace วันเดือนปีเองคะ มีวิธีแก้ไขไหมคะ กลุ่มใจมากคะ

ขอบคุณคะ
ChangeFileOpenDirectory "T:\SBAReport\20170313\"
Documents.Open FileName:="T:\SBAReport\20170313\BMR424.docx", _ อยากให้ code จำวันที่ปัจจุบัน-1คะ
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory "T:\SBAReport\20170313\"อยากให้ code จำวันที่ปัจจุบัน-1คะ
ActiveWindow.Close
ChangeFileOpenDirectory "T:\SBAReport\20170313\"อยากให้ code จำวันที่ปัจจุบัน-1คะ
Documents.Open FileName:="T:\SBAReport\20170313\BMR464.docx", _อยากให้ code จำวันที่ปัจจุบัน-1คะ
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory _
"T:\Ac\Marco_Text\"
ActiveDocument.SaveAs2 FileName:= _
"T:\A\Marco_Text\BMR464.txt" _
, FileFormat:=wdFormatText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, Encoding:=874, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0
ActiveWindow.Close
ChangeFileOpenDirectory "T:\SBAReport\20170313\"อยากให้ code จำวันที่ปัจจุบัน-1คะ
Documents.Open FileName:="T:\SBAReport\20170313\BRR343NV.docx", _อยากให้ code จำวันที่ปัจจุบัน-1คะ
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory _
"T:\A\Marco_Text\"
ActiveDocument.SaveAs2 FileName:= _
"T:\A\Marco_Text\BRR343NV.txt" _
, FileFormat:=wdFormatText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, Encoding:=874, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0
ActiveWindow.Close
ChangeFileOpenDirectory "T:\SBAReport\20170313\"อยากให้ code จำวันที่ปัจจุบัน-1คะ
Documents.Open FileName:="T:\SBAReport\20170313\BTR533.docx", _อยากให้ code จำวันที่ปัจจุบัน-1คะ
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory _
"T:\A\Marco_Text\"
ActiveDocument.SaveAs2 FileName:= _
"T:\A\Marco_Text\BTR533.txt" _
, FileFormat:=wdFormatText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, Encoding:=874, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0
ActiveWindow.Close
ChangeFileOpenDirectory "T:\SBAReport\20170313\"อยาอยากให้ code จำวันที่ปัจจุบัน-1คะ
Documents.Open FileName:="T:\SBAReport\20170313\BTR533_TFEX.docx", _อยากให้ code จำวันที่ปัจจุบัน-1คะ
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ChangeFileOpenDirectory _
"T:\A\Marco_Text\"
ActiveDocument.SaveAs2 FileName:= _
"T:\A\Marco_Text\BTR533_TFEX.txt" _
, FileFormat:=wdFormatText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, Encoding:=874, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF, CompatibilityMode:=0
ActiveWindow.Close
MsgBox " Upload daily SBA for MIS has finished "
End Sub
User avatar
logic
Gold
Gold
Posts: 1506
Joined: Thu Mar 18, 2010 1:57 pm
Excel Ver: 365

Re: ต้องการดึงข้อมูลจากword ในแต่ละวัน มาsave เป็น text file

#6

Post by logic »

snasui wrote::D แนบ Code มาในฟอรัม แจ้งว่าติดปัญหาที่บรรทัดใดครับ

การโพสต์ Code ต้องโพสต์ให้แสดงเป็น Code กรุณาอ่านกฎการใช้บอร์ดข้อ 5 ด้านบน :roll:
ช่วยอ่านที่อาจารย์ snasui แจ้งด้วย ถือเป็นเรื่องสำคัญที่สมาชิกต้องให้ความสำคัญ

คุณอ่านกฎข้อ 5 ด้านบน จะมีบอกว่าโพสต์ code ให้แสดงเป็น Code คลิกลิงก์ไปดูว่าโพสต์แบบไหน ผมเห็นโพสต์เป็นข้อความธรรมดามาทุกรอบ ถ้าอาจารย์แจ้งแล้วคุณไม่แก้ ขอให้เข้าใจว่าไม่มีใครเสี่ยงมาตอบให้คุณครับ :lol:
Post Reply