Ведение лога(запись в файл)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Ведение лога(запись в файл) (Макросы/Sub)

Espada

Дата: Вторник, 17.12.2019, 09:13 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 0 ±

Замечаний: 40% ±

Доброго дня. есть вопросик: Есть журнал паспортов(в excel) с 5-ю кнопками(добавить, редактировать, удалить, поиск, проверка). Появилась необходимость вести Лог нажатых кнопок. может есть пример кода, что бы при нажатии на кнопку,велась запись в уже созданный существующий текстовый файл. файл открывать или как либо сообщать о записи не нужно. спасибо)

Сообщение отредактировал Espada - Вторник, 17.12.2019, 09:14

Ответить

boa

Дата: Вторник, 17.12.2019, 09:46 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

Репутация: 167 ±

Замечаний: 0% ±

365

Espada,

[vba]

Код

Private Sub EditLogFile(ByVal LogFilePath$, Optional LogEvent$ = "", Optional LogFileName$ = "LOG.txt")
'' Author:  boa
'' Written: 25.03.2016
'' Description: Recording data proces
'LogFilePath - Путь размещения файла лога
'LogEvent - записуемое сообщение
'LogFileName - имя файла-Лога

On Error GoTo errHandler

    Dim LogFileFullName$:   LogFileFullName = LogFilePath & "Logs\" & LogFileName
    Dim objFSO As Object:   Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim fileNum%:           fileNum = FreeFile()
    Open LogFileFullName For Append As #fileNum ' открываем файл в режиме дозаписи
         Print #1, Chr(34) & Format(Date, "YYYY.MM.DD") & Chr(32) & Time$ & Chr(34) & Chr(59) & _
                   Chr(34) & Application.UserName & Chr(34) & Chr(59) & _
                   IIf(Len(LogEvent) > 0, Chr(34) & LogEvent & Chr(34), "")
    Close #fileNum
errHandler:
    Set objFSO = Nothing: ' очищаем переменные
    If Err.Number > 0 Then Debug.Print "Ошибка записи лог файла. Ошибка №" & Err.Number & " - " & Err.Description
End Sub

[/vba]