การexport dataจาก excel ไปยัง text file

[Cs.Hwan]

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

[snasui]

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

Code: Select all

Sub Macro3()
    Application.DisplayAlerts = False
    Range("A76:K77").Select
    ActiveWorkbook.SaveAs Filename:= _
        "\\sanlb01\HMSM-DIV\01_EN\01_FanTray\99_FON&KIK\EXPORT TO TEXTFILE1.txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
    Range("A78").Select
    Application.DisplayAlerts = True
End Sub

[Cs.Hwan]

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

[Cs.Hwan]

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

[snasui]

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

[Cs.Hwan]

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

[snasui]

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

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

[Cs.Hwan]

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

[snasui]

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

[Cs.Hwan]

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

[Cs.Hwan]

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

[snasui]

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

[Cs.Hwan]

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

[snasui]

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

[Cs.Hwan]

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

[snasui]

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

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

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

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

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

[Cs.Hwan]

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

[snasui]

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

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

[Cs.Hwan]

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คะ แก้ไขอย่างไรดีคะ

[snasui]

การโพสต์ 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 ที่เปิดอยู่ครับ