Excel Forum

ดิฉันต้องการ export data จากexcelไปยัง text fileโดยที่เมื่อข้อมูลในexcelเพื่มข้อมูลในtext file ก็เพิ่มตามไปด้วย ดิฉันได้ลองทำแบบmarcoดูแล้วแต่มันต้องกดตอบyesทุกครั้งมันถึงจะเพิ่มข้อมูลในtext file ให้ ดิฉันอยากได้แบบเมื่อข้อมูลในexcelเพิ่ม text file ก็เพิ่มตามไปด้วยเลยโดยไม่ต้องกดอะไรเลย ต้องทำอย่างไรค่ะ

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

ได้แล้วค่ะ ขอบคุณค่ะอาจารย์

อาจารย์ค่ะ แล้วถ้าต้องการ import data ที่อยู่ในtext file ไปยัง user form ที่เราสร้างไว้ในexcel ต้องทำอย่างไรค่ะ แนบตัวอย่าง user form มาด้วยค่ะ

Code ที่เขียนมาเองแล้วชื่ออะไร ติดขัดบรรทัดใดครับ

อาจารย์ค่ะ ถ้าต้องการให้ text file update ข้อมูลโดยไม่ต้องกดปิดtext file จะสามารถทำได้มั้ยค่ะ เพราะตอนนี้ต้องกดปิดtext fileก่อนข้อมูลถึงจะ updateค่ะ

การ Save As ตาม Code ที่เขียนมาจะต้องปิดไฟล์เดิมเสียก่อน ไม่เช่นนั้นไม่สามารถ Save As ทับชื่อไฟล์เดิมได้ครับ

หากไม่ต้องการปิดไฟล์ก็ต้องหาวิธี Export ไปเป็น Text File ด้วยวิธีอื่น ติดแล้วค่อยถามกันต่อครับ

อาจารย์มีเว็ปแนะนำในการ save หรือเปล่าค่ะ หาไม่เจอจริงๆค่ะ

วิธีการ Save ที่ต้องการถึงมีลักษณะเป็นอย่างไรครับ ถ้าเป็นการ Export ตามที่ผมแจ้ง จะไม่ใช่การ Save แต่เป็นการเขียน Code ให้ Write เป็น Text File ลองดูตามนี้ครับ จะมีทั้งการเปิด Text File และการ Write text file http://www.homeandlearn.org/open_a_text ... n_vba.html

ขอบคุณคะดิฉันจะลองศึกษาดูก่อนคะ

อาจารย์ค่ะ ดิฉันพยายามทำอย่างไรก็ไม่ได้สักทีขอความช่วยเหลือจากอาจารย์หน่อยค่ะ อยากให้เมื่อ data เข้าexcel ข้อมูลก็จะไปเข้าtext file ด้วยอัตโนมัติ โดยไม่ต้องกดปิดtext file ดิฉันได้ลองทำแล้วก็ยังทำไม่ได้

ช่วยแสดงความพยายามนั้นลงมาในฟอรัม จะได้เห็นว่าพยายามไปแล้วถึงไหน ติดขัดตรงส่วนใด การตอบ VBA มีกฎการใช้บอร์ด 5 ด้านบนกำหนดอยู่ ต้องเป็นไปตามนั้นครับ

นี่ค่ะอาจารย์

Code ที่เขียนมาเองแล้วนั้นชื่อว่าอะไร ติดขัดบรรทัดใด แจ้งมาด้วยเพื่อจะได้เข้าถึงปัญหาได้โดยเร็วครับ

ปํญหาตอนนี้คือ
1.code ตอนนี้มันไม่save อัตโนมัติต้องกดปิดtextก่อนมันถึงจะupdateให้ค่ะ อยากให้ข้อมูล updateอัตโนมัติโดยไม่จำเป็นต้องกดปิด text file คือเมื่อข้อมูลเข้าexcel ข้อมูลก็จะต้องเข้าtext file ด้วย
2.ตรง time อยากให้เป็นเวลาปกติโดยไม่มีcommaด้านหลังค่ะ

Cs.Hwan wrote:1.code ตอนนี้มันไม่save อัตโนมัติต้องกดปิดtextก่อนมันถึงจะupdateให้ค่ะ อยากให้ข้อมูล updateอัตโนมัติโดยไม่จำเป็นต้องกดปิด text file คือเมื่อข้อมูลเข้าexcel ข้อมูลก็จะต้องเข้าtext file ด้วย

Code ที่ว่านั้นชื่อว่าอะไรครับ หากเป็นการ Save ผมถือว่าได้ตอบไปแล้วว่าจำเป็นต้องปิด ให้ถามด้วย Code อื่นที่ไม่ใช่การ Save

Cs.Hwan wrote:2.ตรง time อยากให้เป็นเวลาปกติโดยไม่มีcommaด้านหลังค่ะ

ช่วยระบุตำแหน่งของ Time ว่าอยู่ตรงไหน

ช่วยตอบในสิ่งที่ผมถาม ในโพสต์ด้านบนตอบยังไม่ครบ ถ้าไม่เข้าใจให้ถามกลับมาได้ครับ

1.อยากได้codeที่updateข้อมูลตลอด คือ เมื่อทุกครั้งที่ข้อมูลเข้าexcelก็จะต้องไปupdateตรงtext file ด้วยค่ะ
2.ตำแหน่งของtime ที่ว่านี้คือ time ใน text file ค่ะ

คุณไม่ได้ตอบในสิ่งที่ผมถามครับ

ผมทราบปัญหาว่าต้องการอะไร แต่ต้องเขียนมาเองก่อน Code ที่เขียนมาเองแล้วนั้นมี Procedure ชื่อว่าอะไร ติดขัดบรรทัดใด หรือได้คำตอบไม่ตรงตามต้องการอย่างไร ช่วยแจ้งมาตามนี้ก่อนครับ

Application.DisplayAlerts = False
range("A3:K3").Select
LastCol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
FilePath = Application.DefaultFilePath & "\kok.txt"

Open FilePath For Output As #1
For i = 1 To LastRow
For j = 1 To LastCol
If j = LastCol Then
CellData = CellData + Trim(ActiveCell(i, j).Value)
Else
CellData = CellData + Trim(ActiveCell(i, j).Value) + " "
End If
Next j
Write #1, CellData
CellData = ""
Next i
Close #1
range("A4").Select
Application.DisplayAlerts = True
เป็นcodeที่เขียนเพิ่มลงtextboxในuserformแล้วเขียนเป็นtextfileแทนการsave as ในตอนแรกคะ แต่ต้องปิดfiletextก่อนจะupdateคะ แก้ไขอย่างไรดีคะ

การโพสต์ Code ให้ทำตามกระทู้นี้เพื่อสะดวกต่อการอ่านและ Copy ไปทดสอบครับ viewtopic.php?style=3&f=3&t=1187

ไม่ทราบว่าถ้าต้องปิดไปก่อนจะติดปัญหาอะไรหรือไม่ครับ

ปกติเมื่อเขียนเป็น Text File แล้ว หากต้องการนำไปใช้เราจะใช้ Code อ่านค่าจาก Text File แทนการเปิดขึ้นมาด้วย Excel หากไม่เช่นนั้นก็ให้ใช้การ Import ข้อมูล Text File เข้า Excel

การเปิด Text File ด้วย Excel จะเป็นอุปสรรคต่อการเขียน Text File ที่เปิดอยู่ครับ