文本文档导入Excel，要分列黏贴，请老师指点

深秋的黎明

我做考勤，考勤机导出的是文本文档，想要分列要复制到Excel表格里，原来都是手工复制的，现在想用VBA代码实现。

找了论坛里很多帖子，可能格式关系，没有真正实现分列。请大师出手


导入文本文档.zip (33.35 KB, 下载次数: 9)

2024-10-29 14:48 上传

点击文件名下载附件

小凡、、、

ZHLK

Sub demo()

    Rows("2:1000").Delete Shift:=xlUp
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Administrator\Desktop\导入文本文档\考勤.txt", Destination:=Range("$A$2"))
        .Refresh BackgroundQuery:=False
    End With
End Sub

深秋的黎明

小凡、、、 发表于 2024-10-29 15:44

你好，跳出以上对话框

深秋的黎明

ZHLK 发表于 2024-10-29 16:08
Sub demo()

    Rows("2:1000").Delete Shift:=xlUp

你好，显示越界

gwjkkkkk

Option Explicit
Sub TEST()
    Dim Items As FileDialogSelectedItems, strPath$
    Dim strResult$(), ar, br, y&, x&, n As Byte
   
    strPath = ThisWorkbook.Path & "\"
    With Application.FileDialog(1)
        With .Filters
            .Clear
            .Add "文本文件(txt)", "*.txt"
        End With
        .AllowMultiSelect = False
        .InitialFileName = strPath
        If .Show Then Set Items = .SelectedItems Else Exit Sub
    End With
   
    Application.ScreenUpdating = False
    n = FreeFile
    Open Items(1) For Input As #n '
        ar = Split(StrConv(InputB(LOF(n), #n), vbUnicode), vbCrLf)
    Close #n
    ReDim strResult(UBound(ar), UBound(Split(ar(0), vbTab)))
    For y = 0 To UBound(ar)
        br = Split(ar(y), vbTab)
        For x = 0 To UBound(br)
            strResult(y, x) = br(x)
        Next x
    Next y

    [A1].CurrentRegion.Offset(1).Clear
    With [A2].Resize(UBound(strResult) + 1, UBound(strResult, 2) + 1)
        .Value = strResult
    End With
    Set Items = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。

深秋的黎明

gwjkkkkk 发表于 2024-10-29 19:04
参与一下。。。

谢谢，就是这个效果，不过有个小问题：复制后第一列数字前多了N个空格，怎么修改，谢谢

深秋的黎明

置顶一下，请老师帮忙

tdpzby

后缀名改成.CSV再打开试试