使用宏命令，把TXT文件转成Excel

qq805717515

把TXT文件转成Excel 如下
#############################
Private Sub CommandButton1_Click()
    Dim arr()
    a = ThisWorkbook.Path & "\"
    b = Dir(a & "*.txt")
    Do While b <> ""
        r = r + 1
        ReDim Preserve arr(1 To 2, 1 To r)
        arr(1, r) = Left(b, Len(b) - 4)
        Set fso = CreateObject("scripting.filesystemobject")
        Set f = fso.OpenTextFile(ThisWorkbook.Path & "\" & b, 1, True)
        filetxt = f.ReadAll
        f.Close
        Set f = Nothing
        Set fso = Nothing
        arr(2, r) = filetxt
        b = Dir
    Loop
    ReDim brr(1 To UBound(arr, 2), 1 To 2)
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            brr(j, i) = arr(i, j)
        Next
    Next
    [a1].Resize(UBound(brr), 2) = brr
End Sub
####################################
电脑需要安装vb软件 方便快捷

步骤：

qq805717515

最后按F5生成下

qq35443

不会呀啊