如何批量导入txt文件数据，并做一些处理？

MyExcel6933

hahaoookkk 发表于 2017-4-29 22:57
粗略做了一个，三个按钮完成。试试看吧

如果txt文件中每行的数据不是用tab空格间隔的，而使用逗号间隔的，请问这个代码需要怎么修改？
　　Excel是不是默认空格为间隔符，所以就不用再单独说明了？如果用逗号间隔的数据，我发现这个代码导入的时候就不能自动分为两列？
　　那么代码中
        If myFile <> ThisWorkbook.Name Then
            i = i + 1
            Worksheets.Add after:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = myFile
            Set AK = Workbooks.Open(myPath & myFile)
            AK.Sheets(1).Range("a:z").Copy
            ThisWorkbook.Sheets(i).Range("a:z").PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
            Workbooks(myFile).Close False
        End If
　　这部分就不要用ｓｐｌｉｔ语句做分割了？？具体怎么做啊？
　　谢谢

hbilan

请教几个问题：

1. 需要将批量的txt文件按delimited 和comma生成不同的sheet存在一个excel里，sheet的名按txt文件名命名。
2. 将每个sheet的Temp（E15）和Creep（E16）以及同一sheet里的Temp列下最后一个数据和Creep列下的最后一个数据存在summary的同一行里，同时前面加上对应的文件名，如Summary。
3. 将sheet名前8个字符相同的Temp和Creep列的数据copy在如 Summary T78-0245里，并按Temp 和Creep散点图。

hbilan

hbilan 发表于 2018-7-12 16:54
请教几个问题：

1. 需要将批量的txt文件按delimited 和comma生成不同的sheet存在一个excel里，sheet的名 ...

请教几个问题：

1. 需要将批量的txt文件按delimited 和comma生成不同的sheet存在一个excel里，sheet的名按txt文件名命名。
2. 将每个sheet的Temp（E15）和Creep（E16）以及同一sheet里的Temp列下最后一个数据和Creep列下的最后一个数据存在summary的同一行里，同时前面加上对应的文件名，如Summary。
3. 将sheet名前8个字符相同的Temp和Creep列的数据copy在如 Summary T78-0245里，并按Temp 和Creep散点图。

cpioneer

hahaoookkk 发表于 2017-4-30 19:44
改了一下，原数据第一列从纯数据开始提取，和自动计算楚数据行数

Private Sub CommandButton3_Click()

你好！我遇到相似的问题，但是不一样的地方在于我的第一列和第二列是点加空格。采用这个程序提取的时候没有自动分列。查看了一下里面的内容，没有找到分列依据的语句。想请教一下，这个应该要怎么更改呢？数据类型如下（15.  273.701）：
15. 273.7014465332031
30. 273.7366943359375
45. 273.9501037597656
60. 274.351318359375
75. 274.9864807128906
90. 275.5947265625

木叶下

谢谢分享。下载学习一下！

十一月zz

hahaoookkk 发表于 2017-4-29 22:57
粗略做了一个，三个按钮完成。试试看吧

mark一下，好棒

比较大也不介意

hahaoookkk 发表于 2017-4-30 19:44
改了一下，原数据第一列从纯数据开始提取，和自动计算楚数据行数

Private Sub CommandButton3_Click()

楼主你好，我的问题和他一样，我看了寻求帮助楼主的TXT数据，他的数据有两列且每个TXT数据第一例的数据都一样。而我的每个TXT文档只有一列数据，我想他要和他达成一样的结果，请问在第三步Private Sub CommandButton3_Click()，合并的时候怎么修改编码呢？