Sub 读取文本文件数据()
Dim fso As New Scripting.FileSystemObject
Dim ostream As Scripting.TextStream
Dim sfname As String
Dim str1 As String
sfname = Application.InputBox(prompt:="请输入文本文件的名称", _
Title:="输入文件名称", Type:=2)
If sfname = "False" Or sfname = "" Then Exit Sub
sfname = ThisWorkbook.Path & "\" & sfname & ".txt"
If Not fso.FileExists(sfname) ThenMsgBox "该文件不存在!", vbInformation + vbOKOnlyExit Sub
End If
Set osteam = fso.OpenTextFile(Filename:=sfname, IOMode:=ForReading)
str1 = osteam.ReadAll
osteam.Close
MsgBox str1
Set ostream = Nothing
Set fso = Nothing
End Sub
