txt导入EXCEL

发布网友 发布时间：2022-04-22 04:39

我来回答

共1个回答

热心网友 时间：2023-04-22 13:30

Sub 导入TXT到同一个表()
    
    For i = 1 To 4

        With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\*****\Desktop\" & i & ".txt", Destination:=Range("A" & Range("A:A"). _
        Rows.Count).End(xlUp).Offset(1, 0))
        '上面代码中的 路径根据自己的填写
        
        .Name = i
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True                 '空格分隔的也算是字段分隔符
        .TextFileOtherDelimiter = "$"                  '文本文件字段的分隔符，此处可以自定义
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)   '根据实际有几列数据填写，可以按照最大的列
                                                       '如果只有两列数据可以写Array(1,1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    
  Next i
End Sub

供参考，下面With的代码可以自己手动录制导入文本数据的宏，查看录制的代码，对上面的代码做适当的修改。