Sub 读取文本文件数据()
Dim astr(1 To 3) As String
Dim i As Integer
Dim sfname As String
Dim ifnumber As Integer
Dim r As Long
sfname = Application.InputBox(prompt:="请输入文本文件的名称", _
Title:="输入文件名称", Type:=2)
If sfname = "False" Or sfname = "" Then Exit Sub
sfname = ThisWorkbook.Path & "\" & sfname & ".txt"
If Len(Dir(sfname, vbDirectory)) > 0 Then
ifnumber = FreeFile
Open sfname For Input As #ifnumber
Sheet1.Cells.Clear
r = 2
Do
Input #ifnumber, astr(1), astr(2), astr(3)
With Sheet1
For i = 1 To 3
.Cells(r, i) = astr(i)
Next
End With
r = r + 1
Loop Until EOF(ifnumber)
Close #ifnumber
Else
MsgBox "输入的文件不存在,请不要添加扩展名!"
End If
End Sub
06-27
1618