Правильное кодирование 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) (цитаты), и это сработало.