VBA: записать дату и текст в текстовый файл

Question

Я пытаюсь создать лицензионное соглашение для программы VBA, которую я программирую уже несколько месяцев, но я наткнулся на стену.

По сути, пользователь нажимаетфлажок, так что его значение становится истинным, и элемент управления кнопки видит, является ли значение флажка истинным, когда кнопка нажата / значение становится истинным.Если это так, он закроет окно EULA, откроет главное окно, а затем запишет в текстовый файл дату и время, а также некоторый возможный текст, сообщающий, что оно было согласовано.Код для кнопки и флажка:

    Private Sub eula_agree_button_Click()
    If eula_agree_check_box.Value = True Then
    Unload eula
    main_window.show
    End If
    End Sub

. Он просто закрывает окно EULA и открывает главное окно, поэтому для кода даты и времени для файла .txt, который я создал, это:

    Private Sub eula_agree_button_Click()
    If eula_agree_check_box.Value = True Then
    Unload eula
    Open "C:\eulalog\eulalog.txt" & Format(Now(), "_yyyy-mm-dd_hh-mm") & ".lst" For Output As #1
    Close #1
    Pause 2
    main_window.Show
    Else
    MsgBox "You have not agreed to the EULA. Please read the EULA, then                         
    check the check box, then press the 'I agree' button.", , "EULA Notice"
    End If
    End Sub

Однако;когда я запускаю это, я получаю следующую ошибку:

1. Код останавливается как обычно, когда он сталкивается с ошибкой, и выделяет строку кода Close # 1

2. VBA говорит

"Ошибка времени выполнения '76': путь не найден

Я полагаю, что это потому, что он можетне найти текстовый файл с именем «eulalog.txt», хотя он существует на целевом диске (C:)

Кроме того, если вы спрашиваете, почему путь к файлу eulalog \ eulalog.txt, первый 'eulalog '- это папка, а вторым' eulalog 'является' eulalog.txt '- текстовый файл (расширение файла .txt)

Answer 1

Код:

Private Sub eula_agree_button_Click()
If eula_agree_check_box.Value = True Then
Unload eula
Open "eulalog.txt" For Output As #1
Write #1, "I agree with the End User License Notice and I wish to continue and start         Sketchbox - has been valued as true by end-user"
Close #1
Pause 2
main_window.Show
Else
MsgBox "You have not agreed to the EULA. Please read the EULA, then check the check box, then press the 'I agree' button.", , "EULA Notice"
End If
End Sub

Мы используем оператор open, чтобы открыть текстовый файл с файлом и его расширением (.txt) в речевых метках

    Open "test.txt" For Output As #1

Мызатем запишите в открывшийся .txt файл, набрав

   Write #1

«# 1» - это то, на что мы ссылаемся, затем добавим текст, который выглядит так

    Write #1, "Hello World"    

, затем мызакройте текстовый файл, набрав

    Close #1

Остальная часть моего кода предназначена для приложения, но то, что я только что перечислил, работает нормально.

Полный код:

    Open "test.txt" For Output As #1
    Write #1, "Hello World"    
    Close #1

Все, что вам нужно сделать, это изменить имя файла с «test.txt» на имя вашего файла .txt и текст в речевых метках на то, что вы хотите, чтобы оно было в текстовом файле:)

Надеюсь, это поможет кому-то еще:)