我需要创建一个类似于图片
中的用户表单
我需要使用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
答案 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