用于在Excel中打开文本文件以进行查看的表单

时间:2012-02-20 08:39:13

标签: vba excel-vba excel

我需要创建一个类似于图片

中的用户表单

enter image description here

我需要使用VBA以及提供的按钮从excel打开扩展名为.txt的文件。

选择文件后,当我按开始时,它将打开文件。

我之前已经完成了一些代码但是没有工作。

如果有人可以帮助我,我们将不胜感激。谢谢!

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

1 个答案:

答案 0 :(得分: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