一个简单导入txt文本

fxtest

在大家的帮助下，把我想要的效果做了出来。还是想大家再帮一下，在浏览打开里，只能打开ＴＸＴ文本。多谢了！

andymark

Set dlg = Application.FileDialog(1)
    With dlg
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "文本文件", "*.txt"
        .Show
    End With
    If dlg.SelectedItems.Count > 0 Then
         Me.Text4 = dlg.SelectedItems(1)
    End If
    Set dlg = Nothing

fxtest

多谢了！