Vba 窗体打开文本文件以在excel中查看

我需要创建一个像图中那样的用户表单

我需要使用VBA和提供的按钮从excel打开一个扩展名为.txt的文件

选择文件后，当我按start时，它将打开该文件

我得到了一些代码做了以前，但没有工作

如果有人能帮我，我将不胜感激。谢谢

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

---

要选择文本文件，请将此代码放入testFinder\u单击（）

要打开文本文件，可以使用以下代码

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

---

要选择文本文件，请将此代码放入testFinder\u单击（）

要打开文本文件，可以使用以下代码

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

---

我指的是您的Transposer（）和上面的其他代码。我不太清楚您在第二部分中所说的“其余代码”是什么意思。。。有一个运行时424错误，它显示错误在testDirectory.Value…文本框的名称是什么？不是“测试目录”吗？哦！我明白你的意思。。好的，谢谢！但是由于某些原因，在开始运行代码时，我的代码（转发器部分）仍然存在错误。有一个编译错误。如果我没有错的话，transposer用于转换文本文件。。。但由于某种原因，它不起作用。。顺便说一句，我会离开一段时间，可能不会立即回复你。我指的是你的Transposer（）和上面的其他代码。我不太清楚你在第二部分中的“其余代码”是什么意思。。。有一个运行时424错误，它显示错误在testDirectory.Value…文本框的名称是什么？不是“测试目录”吗？哦！我明白你的意思。。好的，谢谢！但是由于某些原因，在开始运行代码时，我的代码（转发器部分）仍然存在错误。有一个编译错误。如果我没有错的话，transposer用于转换文本文件。。。但由于某种原因，它不起作用。。顺便说一句，我会离开一段时间，可能不会立即回复你。