Я пытаюсь создать файл и сохранить в нем текст. Я попробовал приведенный ниже код, но когда я использую write # 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