打错了，我是说我想用excel的脚本读取txt

了解了您的意思，如果要用Excel的VBA脚本读取txt文件中的数据，可以使用以下代码：

Sub ReadTxtFile()
    Dim FilePath As String
    Dim FileContent As String
    Dim i As Integer
    Dim j As Integer
    
    '指定txt文件路径
    FilePath = "C:\test.txt"
    
    '打开txt文件并读取数据
    Open FilePath For Input As #1
    Do Until EOF(1)
        Line Input #1, FileContent
        '将数据逐行读取并处理
        i = i + 1
        j = 1
        While InStr(j, FileContent, " ") > 0
            Cells(i, j) = Mid(FileContent, j, InStr(j, FileContent, " ") - j)
            j = InStr(j, FileContent, " ") + 1
        Wend
        '最后一列数据
        Cells(i, j) = Mid(FileContent, j, Len(FileContent) - j + 1)
    Loop
    Close #1
End Sub

这段代码会将指定的txt文件中的数据按行读取，然后按照空格分隔符将每一行数据分隔成多个单元格，并将它们写入Excel的工作表中。您可以根据需要进行修改和调整。