如何使用VBA for Excel for MacOS创建文本文件？

Question

我试图创建一个文件并将文本保存到其中。我尝试了下面的代码，但是当我使用 写1脚本会用新的文本替换现有的文本。我试过 写#0 但没有成功。任何建议。

Sub TestResultFile(output As String)
  Dim myFile As String
  myFile = Application.DefaultFilePath & "TestResults.txt"
  Debug.Print myFile
  Open myFile For Output As #1
  Write #1, output
  Close #1
End Sub

Answer 1

使用者 附加 添加文字到新行。

试试下面的代码

Sub TestResultFile(output As String)
  Dim myFile As String
  myFile = Application.DefaultFilePath & "TestResults.txt"
  Debug.Print myFile
  Open myFile For Append As #1
  Write #1, output
  Close #1
End Sub