问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

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的代码可以自己手动录制导入文本数据的宏,查看录制的代码,对上面的代码做适当的修改。

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
为什么来大姨妈胸会胀 少儿学什么舞蹈 青年学什么舞蹈好 成年人学什么舞蹈 福州企业最低工资标准 2013年厦门的底薪是多少 生产要素的需求有哪些性质 生产要素的需求有何特点? 什么是生产要素需求 微观经济学要素需求什么是条件要素需求?它和要素需求有什么不同?_百度... 仁心解码2 女演员 “翘生活”是什么意思? 怎样把text转换成excel 连翘花的各家论述 一年级拼音生调怎么教 哔哩哔哩上传视频暂不支持超过8bit视频什么意思? 女人不易做中海翘生孩子是哪一集 蹊跷 怎么读 实木地板开裂、翘起、生虫怎么处理? 是翘二郎腿还是跷二郎腿? 一个足字旁,加上一个乔的繁体字,念什么? 一个足字旁加个乔字是什么字 屁股翘生男孩,有科学依据吗? 黄金饰品三个九与四个九有什么区别 黄金中的9999是什么意思??好像还有99999 999金和9999有什么区别 黄金9999和999.9有什么区别 两个九的黄金,和999个黄金有什么区别 请问999.9和999的黄金有什么区别吗、同样都说是千... 999,与9999的黄金有什么区别 如何能更快的翘生蚝 怎样把text中的数据放到Excel中 如何将多个txt文件批量导入一个excel文件 连翘有哪些特征? 如何把TEXT 复制到EXCEL 表格,成一个表格。 连翘对环境条件有什么要求? 连翘生长习性是什么? 如何将VB中TEXT里的文本导入EXCEL里面啊 键盘把电脑锁了怎么解开 金翘生物都有哪些产品呢? 如何把text文件转换为excel文件 VB6.0 text中的数据导入到excel表格 怎么把VB中text文本框内的多行数据导入到Excel中?... 如何使txt中复制到excel数据每个数占一个单元格。 Excel中text函数的使用方法 在VB中, 怎么将几个text里面的内容导入到excel表... 请问如何往R 里面导入text和Excel数据 买电脑时,如何挑选电脑,主要看中什么? 买电脑时应该怎么选择? 大学生如何挑选电脑