Cách tạo và ghi vào tệp txt bằng VBA

Question

Tôi có tệp được thêm hoặc sửa đổi theo cách thủ công dựa trên các yếu tố đầu vào. Vì hầu hết các nội dung được lặp đi lặp lại trong tệp đó, chỉ có các giá trị hex đang thay đổi, tôi muốn biến nó trở thành một tệp được tạo công cụ.

Tôi muốn viết mã c sẽ được in trong đó .txt tệp.

lệnh để tạo ra một tập tin .txt sử dụng VBA là gì, và làm thế nào để tôi viết thư cho nó

Answer 1

Sử dụng FSO để tạo ra các tập tin và ghi vào nó.

Dim fso as Object 
Set fso = CreateObject("Scripting.FileSystemObject") 
Dim oFile as Object 
Set oFile = FSO.CreateTextFile(strPath) 
oFile.WriteLine "test" 
oFile.Close 
Set fso = Nothing 
Set oFile = Nothing  

Xem tài liệu ở đây:

• http://technet.microsoft.com/en-us/library/ee198742.aspx
• http://technet.microsoft.com/en-us/library/ee198716.aspx

Answer 2

một cách dễ dàng với sự dư thừa nhiều ra.

Dim fso As Object 
    Set fso = CreateObject("Scripting.FileSystemObject") 

    Dim Fileout As Object 
    Set Fileout = fso.CreateTextFile("C:\your_path\vba.txt", True, True) 
    Fileout.Write "your string goes here" 
    Fileout.Close 

Answer 3

Dim SaveVar As Object 

Sub Main() 

    Console.WriteLine("Enter Text") 

    Console.WriteLine("") 

    SaveVar = Console.ReadLine 

    My.Computer.FileSystem.WriteAllText("N:\A-Level Computing\2017!\PPE\SaveFile\SaveData.txt", "Text: " & SaveVar & ", ", True) 

    Console.WriteLine("") 

    Console.WriteLine("File Saved") 

    Console.WriteLine("") 

    Console.WriteLine(My.Computer.FileSystem.ReadAllText("N:\A-Level Computing\2017!\PPE\SaveFile\SaveData.txt")) 
    Console.ReadLine() 

End Sub() 

Answer 4

Open ThisWorkbook.Path & "\template.txt" For Output As #1 
Print #1, strContent 
Close #1