Как создать из excel файл txt? 3

[ru3000]

При сохранении макросом текста в test.txt берутся данные из определенной ячейки. Какая функция очищает (а может и удаляет) test.txt каждый раз перед началом записи.

Sub Macros()
pute = ThisWorkbook.Path
transkr = "мой текст"
Open pute & "\test.txt" For Append As #1
Print #1, Format$(transkr)
Close #1
End Sub

[EducatedFool]

Например, так:

Sub Macros1()
    ПолныйПутьКФайлу = ThisWorkbook.Path & "\test.txt"
    transkr = "мой текст"
    Open ПолныйПутьКФайлу For Output As #1
    Print #1, Format$(transkr)
    Close #1
End Sub

Или так:

Sub Macros2()
    ПолныйПутьКФайлу = ThisWorkbook.Path & "\test.txt"
    Kill ПолныйПутьКФайлу    ' удаляем файл
    transkr = "мой текст"
    Open ПолныйПутьКФайлу For Append As #1
    Print #1, Format$(transkr)
    Close #1
End Sub

Есть ещё несколько способов.

[ru3000]

Спасибо большое!

[doober]

подготовил справку по функциям ссылка действительна в течении часаhttp://94.248.68.203/

[ru3000]

Спасибо огромнейшее!

[doober]

Ссылка та же ,добавил книг.Личку читаешь?