Как записать в последнюю строку файла? - VBA
Формулировка задачи:
Здравствуйте, есть файл тхт с данными "допустим"
1111
2222
3333
и есть входящие данные 4444 мне нужно что бы в итоге вышло
1111
2222
33334444
Спасибо
Решение задачи: «Как записать в последнюю строку файла?»
textual
Листинг программы
Sub tttt()
AppendTXTfile "C:\Temp\test.txt", "4444"
End Sub
Function AppendTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
On Error Resume Next: Err.Clear
Set fso = CreateObject("scripting.filesystemobject")
Set ts = fso.openTextFile(filename, 8)
ts.Write txt: ts.Close
SaveTXTfile = Err = 0
Set ts = Nothing: Set fso = Nothing
End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д