如何使用VBA创build和写入一个txt文件

我有一个文件是根据input手动添加或修改的。 由于大部分内容在该文件中是重复的，只有hex值正在改变，我想使它成为一个工具生成的文件。

我想编写将打印在该.txt文件中的C代码。

什么是使用VBA创build.txt文件的命令，以及如何写入它

Answer 1

使用FSO创build文件并写入。

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 

请参阅这里的文档：

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

Answer 2

一个简单的方法，没有多余的冗余。

  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

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

Answer 4

 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()