Правильное кодирование VBA при работе с кнопками пользовательской формы

Приведенный ниже код хорошо работает в другом модуле, но не работает, если используется кнопка пользовательской формы. Он не печатает содержимое файла в ближайшем окне. Я запрашиваю исправление или руководство. Благодарю вас

Private Sub UploadBut_Click()

Dim TextFile As Integer
Dim FilePath As String
Dim FileContent As String
Dim P As String

'BrowseFile.Value - это текстовое поле в моей пользовательской форме, которое фиксирует путь к файлу

If BrowseFile.Value = "" Then
MsgBox "Please Select File", , "Upload File"
Else
On Error Resume Next
P = Chr(34) & BrowseFile.Value & Chr(34)
TextFile = FreeFile

FilePath = P
FileContent = Input(LOF(TextFile), TextFile)
Debug.Print FileContent

Close TextFile
End If

End Sub

1 ответ

Боже мой! Как глупо я. Я только что удалил Chr(34) (цитаты), и это сработало.

Другие вопросы по тегам