: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

การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างตาราง

ฟอรัมถาม-ตอบปัญหาการใช้งานสูตรและฟังก์ชัน Excel
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 Reply
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างตาราง

#1

Post by tstc79tt »

ตัวอย่างข้อมูล เนื่องจากผมอัพไฟล์ txt ไม่ได้

dadadadadadadadadadadadadad hahahahah stupid me stupid me stupid me stupid me
lsb.ibm.kbank:FinCheck:050112:AIX:6.3.2:fhgt.dll:dserver1:198.168.65.108:C:F:FC SCSI:user1
lsb.ibm.kbank:FinCheck:050112:AIX:7.3.1:fhgt.dll:aserver1:178.168.65.188:C:F:FC SCSI:user3
dadadadadadadadadadadadadad hahahahah stupid me stupid me stupid me stupid me
lsb.ibm.tbank:NoCheck:050112:AIX:5.3.0:fhgt.dll:dserver1:198.168.65.108:C:F:FC SCSI:user1
lsb.ibm.kbank:FinCheck:050112:AIX:6.3.1:fhgt.dll:dserver1:178.168.65.198:C:F:FC SCSI:Admin
dadadadadadadadadadadadadad hahahahah stupid me stupid me stupid me stupid me
dadadadadadadadadadadadadad hahahahah stupid me stupid me stupid me stupid me
dadadadadadadadadadadadadad hahahahah stupid me stupid me stupid me stupid me
lsb.ibm.kbank:FinCheck:050112:AIX:6.3.2:fhgt.dll:dserver1:198.168.65.108:C:F:FC SCSI:user1
lsb.ibm.kbank:FinCheck:050112:AIX:7.3.1:fhgt.dll:aserver1:178.168.65.188:C:F:FC SCSI:user3


[lsb.ibm.kbank]*:NoCheck:120312:[AIX]*:[5.3.0]*:txgh.dll:[dserver1]*:[198.168.65.108]*:C:F:FC SCSI:[user1]*

จึงทำให้เหลือเพียง

lsb.ibm.kbank:AIX:6.3.2::dserver1:198.168.65.108:user1 ที่จะใช้ทำตาราง


ที่ผมใส่วงเล็บดอกจันทร์ไว้คือส่วนที่ผมต้องการนำมาใช้ ผมไม่ทราบว่าเราควรจะใช้ คำสั่งอะไร Syntax แบบไหนหรือฟังชั่นในส่วนใดถึงจะสามารถคัดแยกนำมาใส่ตารางได้ ตอนนี้ผมทำได้แค่ในส่วนของ การ Import Text file โดยการนำโค๊ดของผู้อื่นมาอ่านดัดแปลงเอาเองอยู่ ที่ผมทำมันแยกออกมาแล้วเว้นบรรทัดไม่เท่ากันทำให้นำไปใช้ต่อไม่ได้ครับ
ขอความกรุณาชี้แนะด้วยครับ

ผมไม่เก่งเรื่องcodeสักเท่าไรแต่ จึงพยายามเรียนรู้ให้ไวที่สุด ขออภัยเวลาตั้งคำถามแล้วอาจไม่ละเอียดพอควร น้องใหม่ครับ
You do not have the required permissions to view the files attached to this post.
Last edited by tstc79tt on Tue Nov 13, 2012 5:09 pm, edited 1 time in total.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#2

Post by snasui »

:D
tstc79tt wrote:ตัวอย่างข้อมูล เนื่องจากผมอัพไฟล์ txt ไม่ได้
Zip มาก่อนแล้วค่อย Upload ครับ
Top
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#3

Post by tstc79tt »

snasui wrote::D
tstc79tt wrote:ตัวอย่างข้อมูล เนื่องจากผมอัพไฟล์ txt ไม่ได้
Zip มาก่อนแล้วค่อย Upload ครับ
เรียบร้อยแล้วครับ ขอความกรุณาด้วยครับ แนะนำผมทีว่าผมควรศึกษาเริ่มจากส่วนไหนประมาณไหนก่อน

มือใหม่หัด VB ครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#4

Post by snasui »

:D จากตัวอย่างไฟล์ที่แนบมานั้นสามารถ Import Text File มาได้แล้วครับ การทำให้เป็นตารางข้อมูลตามต้องการนั้นสามารถใช้สูตรเข้ามาจัดการได้ครับ ไม่ทราบว่าตารางข้อมูลที่ต้องการจำเป็นจะต้องอยู่คนละไฟล์เท่านั้นหรือไม่ครับ
Top
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#5

Post by tstc79tt »

snasui wrote::D จากตัวอย่างไฟล์ที่แนบมานั้นสามารถ Import Text File มาได้แล้วครับ การทำให้เป็นตารางข้อมูลตามต้องการนั้นสามารถใช้สูตรเข้ามาจัดการได้ครับ ไม่ทราบว่าตารางข้อมูลที่ต้องการจำเป็นจะต้องอยู่คนละไฟล์เท่านั้นหรือไม่ครับ
ไม่จำเป็นครับอยู่ เวิรคชีตเดียวกันได้ครับ แต่ตอนนี้คือผมไม่รู้ว่าควรจะทำยัง ให้หลังจาก import ไฟล์เข้ามาแล้ว
ข้อมูลจะคัดเอาเฉพาะบรรทัดที่ผมต้องการแล้วนำมาเรียงเป็นตาราง อย่างเช่น ไฟล์ Result ได้น่ะครับ
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#6

Post by snasui »

:D ลองตามนี้ครับ

ที่ชีท Import
  1. เซลล์ O1 คีย์สูตร
    =COUNTIF(B4:B53,"lsb.ibm.kbank")
    Enter
  2. เซลล์ Q2 คีย์สูตร
    =IF(ROWS(Q$2:Q2)>$O$1,"",INDEX($B$4:$B$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(Q$2:Q2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
  3. เซลล์ R2 คีย์สูตร
    =IF(ROWS(R$2:R2)>$O$1,"",INDEX($E$4:$E$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(R$2:R2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
  4. เซลล์ S2 คีย์สูตร
    =IF(ROWS(S$2:S2)>$O$1,"",INDEX($F$4:$F$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(S$2:S2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
    ]เซลล์ T2 คีย์สูตร
    =IF(ROWS(T$2:T2)>$O$1,"",INDEX($H$4:$H$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(T$2:T2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
  5. เซลล์ U2 คีย์สูตร
    =IF(ROWS(U$2:U2)>$O$1,"",INDEX($I$4:$I$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(U$2:U2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
  6. เซลล์ V2 คีย์สูตร
    =IF(ROWS(V$2:V2)>$O$1,"",INDEX($M$4:$M$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(V$2:V2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
Note: Ctrl+Shift+Enter หมายถึงเมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น Ctrl+Shift ค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น {=YourFormulas(...)} ปีกกานี้คีย์เข้าไปเองไม่ได้ ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง
Top
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#7

Post by tstc79tt »

snasui wrote::D ลองตามนี้ครับ

ที่ชีท Import
  1. เซลล์ O1 คีย์สูตร
    =COUNTIF(B4:B53,"lsb.ibm.kbank")
    Enter
  2. เซลล์ Q2 คีย์สูตร
    =IF(ROWS(Q$2:Q2)>$O$1,"",INDEX($B$4:$B$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(Q$2:Q2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
  3. เซลล์ R2 คีย์สูตร
    =IF(ROWS(R$2:R2)>$O$1,"",INDEX($E$4:$E$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(R$2:R2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
  4. เซลล์ S2 คีย์สูตร
    =IF(ROWS(S$2:S2)>$O$1,"",INDEX($F$4:$F$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(S$2:S2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
    ]เซลล์ T2 คีย์สูตร
    =IF(ROWS(T$2:T2)>$O$1,"",INDEX($H$4:$H$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(T$2:T2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
  5. เซลล์ U2 คีย์สูตร
    =IF(ROWS(U$2:U2)>$O$1,"",INDEX($I$4:$I$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(U$2:U2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
  6. เซลล์ V2 คีย์สูตร
    =IF(ROWS(V$2:V2)>$O$1,"",INDEX($M$4:$M$53,SMALL(IF($B$4:$B$53="lsb.ibm.kbank",ROW($B$4:$B$53)-ROW($B$4)+1),ROWS(V$2:V2))))
    Ctrl+Shift+Enter > Copy ลงด้านล่าง
Note: Ctrl+Shift+Enter หมายถึงเมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น Ctrl+Shift ค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น {=YourFormulas(...)} ปีกกานี้คีย์เข้าไปเองไม่ได้ ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง
อ้อครับจะรีบทดลองเลยหละครับ........ แต่ก่อนอื่นผมขอมุตาจบก่อน :D
Top
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#8

Post by tstc79tt »

โอเคครับทดลองแล้วครับ จะหัดเรียนรู้ให้มากๆครับ หากมีคำถามไม่เข้าใจผมจะมาถามน่ะครับ
Top
User avatar
bank9597
Guru
Guru
Posts: 3868
Joined: Wed Aug 17, 2011 11:49 am

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#9

Post by bank9597 »

:D
แต่ก่อนอื่นผมขอมุตาจบก่อน
ขออนุญาตนอกเรื่องครับ ว่าแต่ มุตา เกี่ยวอะไรกับ VBA ครับเนี่ย :mrgreen:
Forum Rules
  1. อย่าใช้ภาษาแชทในการตอบ-ถาม
  2. ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
  3. ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
  4. ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
  5. หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
  6. แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
Top
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#10

Post by tstc79tt »

ผมลองใช้กับ ไฟลจริงแล้วมันเรียกค่าออกมา แล้วมันมั่วไปหมด เพราะไฟล์จริงออกมาในลักษณะ log ไฟล์ ข้อมูลไม่ได้ถูกจัดเรียงเพราะว่าไฟล์มีบรรทัดแรกเป็นชื่อหัวข้อคอลัมแต่ละอัน หากเปิดlog ไฟล์นี้แบบธรรมดาใน excel แล้วปรับให้มันคัดแยกโดย delimited มันก็จะออกเป็นตารางให้ตามปกติ


Sub Macro2()
'
' Macro2 Macro
'

'
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Administrator\Desktop\IBM Working Resource\test text\bayecmcs_chkpackage.log" _
, Origin:=874, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:=":", FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array _
(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1)), TrailingMinusNumbers _
:=True

End Sub

ย่อมาโครยังไงหรือครับ ผมไม่เคยทำมาก่อน
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#11

Post by snasui »

:D ที่ถามมานั้นปัญหาคืออะไรครับ สำหรับการย่อ Macro หากไม่จำเป็นก็ไม่ต้องเร่งรีบที่จะย่อครับ ศึกษาให้เข้าใจก่อนว่า Code ทำงานอย่างไร เมื่อคล่องแล้วจะสามารถย่อได้เองครับ
Top
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#12

Post by tstc79tt »

ปัญหาคือนี่ครับ ผมจะทำยังไงให้เวลา import ไฟล์ เข้ามาแล้วเรียงเป็นตาราง โดยไม่ต้องลบ บรรทัดแรกของไฟล์ bayecmcs ได้บ้างครับ

คือผมเปิดปกติ และก็ delimited มันก็เรียงได้ แต่ หาก ผมทำimport ผ่าน vba มัน error ขึ้นรวมมั่วบรรทัดเดียวกันหมด

ผมแนบไฟล์มาให้ด้วยครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#13

Post by snasui »

:D การ Import Text file แล้วเข้ามาเป็นตารางลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub ImportTextFile()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & Range("B1").Value & "\" & Range("B2").Value & ".txt", Destination:= _
        Range("$A$4"))
        .Name = Range("B2").Value
        .TextFilePlatform = 874
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileOtherDelimiter = ":"
        .Refresh BackgroundQuery:=False
    End With
End Sub
Top
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#14

Post by tstc79tt »

ขอบคุณครับ จะเอาไปลองทำๆดู หากติดขัดอะไรผมจะมาปรึกษาใหม่คับ

ผมชอบบอร์ดนี้มากหละ

ผมเคยไปบอร์ดอื่นๆ บางที่ก็โหด เกิน ผมอยากถามอยากอะไรเห็นคนมาตอบบางทีโหดเหลือเกิน ก็ผมไม่รุ้จะเริ่มศึกษายังไงก่อนนิ อ่านเองก็งงไปทำตามหนังสือไป แล้วหนังสือก็ไม่ได้ช่วยอะไรในระดับที่ผมทำอยู่เลย T^T
Top
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#15

Post by tstc79tt »

คือหลังจากทำการ กด import ไป 1 ครั้ง ไม่มีปัญหาอะไร แต่พอผมลอง กด อีกครั้ง มันกลับไม่ refresh ข้อมูลเก่าออกไป แต่กลับดันไปข้างๆแทน ทำให้เป็นปัญหาพอควรเลยครับผมลองแก้นู้นนี่ แต่ก็ยังไม่ได้ความครับ
แล้วก็ หลังจากใช้ data text ไฟล์จริง มันเกิดเหตุที่ว่า ไม่สามารถรับข้อมูลได้มันเกิน 400 บรรทัดหรืออะไร อะไรสักอย่างครับ
ขอคำแนะนำและอธิบายทีครับ
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#16

Post by snasui »

:D
tstc79tt wrote:คือหลังจากทำการ กด import ไป 1 ครั้ง ไม่มีปัญหาอะไร แต่พอผมลอง กด อีกครั้ง มันกลับไม่ refresh ข้อมูลเก่าออกไป แต่กลับดันไปข้างๆแทน
ผมเข้าใจว่ามันไม่ได้ Delete ข้อมูลเก่าออกไปก่อนที่จะวางข้อมูลอันใหม่

ปกติแล้วในการดึงข้อมูลซึ่งมีการเปลี่ยนต้นแหล่งอยู่เสมอ ๆ เราควรลบข้อมูลที่เคยดึงมาแล้วทิ้งไปด้วย จาก Code ด้านบนให้แทรก Statement สำหรับการ Clear ข้อมูลเดิมทิ้งไปก่อน Code สำหรับดึงข้อมูล โดยลองปรับเป็นด้านล่างครับ

Code: Select all

Sub ImportTextFile()
    Range("A4").CurrentRegion.Delete
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & Range("B1").Value & "\" & Range("B2").Value & ".txt", Destination:= _
        Range("A4"))
        .Name = Range("B2").Value
        .TextFilePlatform = 874
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileOtherDelimiter = ":"
        .Refresh BackgroundQuery:=False
    End With
End Sub
Top
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#17

Post by tstc79tt »

ผมลองแล้วครับ รอบแรกก็โอเค พอลองกด import ใช้งานอีกครั้งมันดันขึ้น error ตามภาพน่ะครับ แล้ว มันก็ดีด ไอคอนและก็ 2 บรรทัดแรกไปด้านข้าง
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#18

Post by snasui »

:D ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub ImportTextFile()
    Cells.Clear
    Range("B1") = ThisWorkbook.Path
    Range("B2") = "bayecmcs_chkpackage.log"
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & Range("B1").Value & "\" & Range("B2").Value & ".txt", Destination:= _
        Range("$A$4"))
        .Name = Range("B2").Value
        .TextFilePlatform = 874
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileOtherDelimiter = ":"
        .Refresh BackgroundQuery:=False
    End With
End Sub
Top
tstc79tt
Member
Member
Posts: 83
Joined: Tue Nov 13, 2012 4:39 pm

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#19

Post by tstc79tt »

โอเค ครับ แต่ ใช้โค๊ดไหนแทรกหรือ ครับ ที่จะทำให้ผม input ชื่อไฟล์ ผ่าน cell B2 แทนที่ผมจะไปเปลี่ยนใน VBE ทุกครั้งที่ต้องการเปลี่ยนไฟล์

ผมคงไปหัดสักพักก่อน เรื่องcode VBA ผมนี่เอ๋อจริงๆ

ขอบคุณครับ :D > /|\ <
You do not have the required permissions to view the files attached to this post.
Top
User avatar
snasui
Site Admin
Site Admin
Posts: 31255
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
Contact snasui

Re: การคัดกรอง txt ไฟล์ข้อมูล แล้วดึงข้อมูลต้องการนำมาสร้างต

#20

Post by snasui »

:D กรณีต้องการกรอกชือ Path ชื่อไฟล์ก่อนดึงข้อมูล ลองปรับเป็นด้านล่างครับ

Code: Select all

Sub ImportTextFile()
    Dim rPaht As String
    Dim rFileName As String
    rPaht = Range("B1")
    rFileName = Range("B2")
    Cells.Clear
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & rPaht & "\" & rFileName & ".txt", Destination:= _
        Range("$A$4"))
'... Other code
    Range("B1") = rPaht
    Range("B2") = rFileName
End Sub
Top
Post Reply

Return to “Excel Formulas & Functions”