записать текст в файл

[satka]

Понимаю, что вопрос скорее всего задавался пятьсот раз, но в гугле найти не смог. Итак нужно записать некую информацию в файл. Прошу подсказать код vba.

[dozo]

Если что-то не понятно пишите - Отвечу.
'================================== =================================== ==
' Название : SaveLineToTextFile, версия: 1.00.00, дата: 19.07.2008
' Назначение: Сброс текстовой строки в файл, если нет создать файл, если есть то добавить.
' Вызов : Call dhTestRandom
'-----------------------
' Параметры:
' str_File - имя файла
' str_TextMessage - текстовая строка
' Возвращаемое значение:
' True - операция выполнена успешно
' False - операция не выполнена
' Пример:
' Dim bolResult as boolean
' bolResult = SaveLineToTextFile("C:\1.txt", "AASSAA")
' If bolResult Then
' MsgBox "TRUE"
' Else
' MsgBox "FALSE"
' End If
'------------------------------------------------------------------------
Public Function SaveLineToTextFile(strFile As String, strTextMessage) As Boolean
Dim hFile As Long

On Error GoTo lab_Error_dhSaveLineToTextFile

' Получает дескриптор файла
hFile = FreeFile

If FileExists(strFile) Then
' Файл есть
Open strFile For Append Access Write As hFile
Else
' Файла нет
Open strFile For Output Access Write As hFile
End If

Print #hFile, strTextMessage

Close hFile

If FileExists(strFile) Then
SaveLineToTextFile = True
Else

lab_Error_dhSaveLineToTextFile:
SaveLineToTextFile = False
End If

End Function

'================================== =================================== =
' Название : FileExists, версия: 1.00.00, дата: 14.12.2007
' Назначение: Проверка наличия файла
' Вызов : Function FileExists(strFile As String) As Boolean
'-----------------------
' Параметры:
' strFile - файл для проверки
' Возвращаемое значение:
' True - есть
' False - нет
' Пример:
' FileExists("C:\1\1\1.txt")
'------------------------------------------------------------------------
Function FileExists(strFile As String) As Boolean
On Error Resume Next
FileExists = (Len(Dir(strFile)) > 0)
End Function