![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikNmNOE61h32gOjkkyX1492i3GpRvK0z_kq-dHcqlGzmk0Xc-CEH_AzOT8LPlPEUbSnFe22CkGVBuQ6edXycA-0f-4Pm6owV3XRhQPm9VgaigoHzHO-p90pTdudISoujWjGNsdryRgP_AM/s1600/datajeda2.png)
ตัวอย่าง
Private Sub CreateTextFile()
Dim result, fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set result = fso.createTextFile("c:\testtext.txt", True) 'สร้าง Text File
result.Writeline "Hello World" 'เพิ่มข้อมูลใน Text File
result.Close
Set result = Nothing
Set fso = Nothing
End Sub
Download >>>> TextFile
***ไฟล์ที่มีการใช้ VBA ต้องเซฟเป็น .xlsm
Good Luck
0 ความคิดเห็น:
แสดงความคิดเห็น