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

[Cs.Hwan]

Code: Select all

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

จากที่อารย์ถามว่าจะติดปัญหาหรือไม่ถ้าปิดไปก่อน --ไม่มีปัญหาค่ะ แต่ต้องการให้เมื่อ scan barcodeเข้าไปใน userform1แล้วข้อมูลเข้าtext file จากนั้น text file จะทำหน้าที่ส่งข้อมูลไปแสดงยังuserform2โดยที่ text file จะต้องupdateอยู่ตลอด เพราะจะต้อง scan barcode อยู่เรื่อยๆ
แต่codeที่ให้อาจารย์ไปเป็นcodeที่เขียนเพิ่มใน textboxแต่มันต้องปิด text fileก่อนข้อมูลถึงจะupdateอยากถามอาจารย์ว่าต้องแก้ไขอย่างไรดีค่ะ

[snasui]

ผมเขียนตอบไปแล้วครับ

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

ได้ลองทำตามนี้แล้วยัง ทำแล้วติดตรงไหนนำมาถามกันต่อครับ

[Cs.Hwan]

ขอบคุณค่ะ อาจารย์สำหรับคำแนะนำ