如何用excel直接打开 txt文件

点击最上方一行的\“数据\”——导入外部数据——导入数据,,,然后选择你要导入的txt文件，根据提示设置你要显示的格式与行列，都可以选择设置

1、打开EXCEL空白文档
2、选择：菜单——数据——导入外部数据（对话框内找到你要的txt文件，打开）
3、然后按提示操作，勾选相应的分隔符，
确定即可
解决这个问题可以分两步走。
1、打开Excel表，数据——导入外部数据——导入数据，文件类型选择文本文件，选百择文件后确定。输入度表格后，如果数列分别存在各自单元格则完成，否则利用“数据——分列”进行处理。
2、将两行合并为一行，可以采用宏，或函数知。由于数据并不很多，可以用函数。
函数：
（1）将64行、16列数据放在工作表中，左角第一个数据放在A1单元格，依次排列。为了道视图方便，在右边间隔一列。在R1单元格输入下列函数：
=IF(COLUMN()>29,INDIRECT(ADDRESS(ROW()*2,COLUMN()-29)),INDIRECT(ADDRESS(ROW()*2-1,COLUMN()-17)))
解释：数据共16列，空1列则为17列，从18列到19列输入奇数列12个数字，row()*2-1为奇数；19列以后为偶数列。

（2） 复制函内数，从R1至AS1单元格，然后向下拖动到AS32单元格。

（3）将函数计算结果复制——选择性粘贴——数值，重新粘贴取消公式，最后就可以按要求复制到其它需容要的地方了。

将代码改成这个：

Private Sub CommandButton1_Click()
    Range("A3:Q8000").Clear
    Dim XmlHttp As Object, tmp As String
    Set XmlHttp = CreateObject("MSXML2.XMLHTTP")
    With XmlHttp
        .Open "GET", "http:///getData/3d.TXT", False
        .send
        tmp = .responsetext
    End With
    Dim arr, s, brr(), t As String
    arr = Split(tmp, Chr(10))
    ReDim brr(0 To UBound(arr))
    For i = 0 To UBound(arr)
        If Len(arr(i)) > 0 Then
            s = Split(arr(i), " ")
            For j = 0 To 4
                t = t & s(j) & ","
            Next
            t = Left(t, Len(t) - 1)
            brr(i) = t
            t = ""
        End If
    Next
    Cells(2, 1) = "开奖期号"
    Cells(2, 2) = "开奖日e68a84e8a2ade79fa5e98193332期"
    Cells(2, 3) = "开"
    Cells(2, 4) = "奖"
    Cells(2, 5) = "号"
    For i = 0 To UBound(brr)
        Cells(i + 3, 1).Resize(1, 5) = Split(brr(i), ",")
    Next
End Sub