Форма для открытия текстового файла для просмотра в Excel

Question

Мне необходимо создать пользовательскую форму, подобную той, которая изображена на картинке

Мне нужно открыть файл с расширением .txt из Excel, используя VBA итакже предоставленная кнопка.

После выбора файла, когда я нажимаю старт, он откроет файл.

Мне дали несколько кодов, выполненных ранее, но он не работал.

буду признателен, если кто-то может помочь мне с этим.Спасибо!

Public Sub CommandButton1_Click()
 Unload Me 'Cancellation command
End Sub


Private Sub CommandButton2_Click()
'start button
    Application.ScreenUpdating = False

    Sheets("Summary").Select

    Call Transposer("Summary Transpose")

    Sheets("Failing Patterns").Select

    Call Transposer("Failing Patterns Transpose")

    Me.Status = "Status: Finished"

    Me.Error = ""

    'Make sure the screen updates before the end


    Application.ScreenUpdating = True


End Sub


Public Sub Label1_Click()

End Sub

Private Sub testFinder_Click()

    Me.testDirectory.Value = Application.GetOpenFilename

End Sub

Public Sub UserForm_Click()

End Sub

Answer 1

Чтобы выбрать текстовый файл Поместите этот код в testFinder_Click ()

Private Sub testFinder_Click()
    Dim fileToOpen

    fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")

    If fileToOpen = False Then Exit Sub

    testDirectory.Value = fileToOpen
End Sub

Для открытия текстового файла вы можете использовать этот код.

Private Sub CommandButton2_Click()
    '
    '~~> Rest of Code
    '
    Workbooks.OpenText Filename:=testDirectory.Value, Origin:=437, _
    StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
    , Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    '
    '~~> Rest of Code
    '
End Sub