text批量转换为excel

埃德亚

求助：现在有上万个txt格式的文本文件，需要转化为excel格式（对应转化，多个文件），txt里的数据有英文有数字，英文以逗号分列，数字以空格分列的。转化好的excel格式通过分隔符分割成相应的列。网上查了很久，有的是所有内容都转化到一列了，有的是不能批量转化，还有的转化后第一行内容覆盖后面的所有行。所以麻烦各位高手看看我的数据，给一个靠谱的程序，万分感谢

xyxcc177

用openText

小花鹿

网上的代码不能直接拿来就用，要根据自己的实际情况修改一下                                                      

yxbaju

Sub TextData()
'TEXT在同一文件夹下
      'cells.clear
      Dim sPath$, sFilename$, sFileFullname$, i&
            [a1:g1] = Array("Station", "lontitude", "latitude", "temperatute", "precipitation", "evaparation", "runoff")
            sPath = ThisWorkbook.Path & "\"
            sFilename = Dir(sPath & "*.txt"): i = 2
            Do Until sFilename = ""
                  sFileFullname = sPath & sFilename
                  With ActiveSheet.QueryTables.Add(Connection:= _
                        "TEXT;" & sFileFullname, Destination:=Range("A" & i))
                        .TextFileStartRow = 2
                        .TextFileConsecutiveDelimiter = True
                        .TextFileCommaDelimiter = True
                        .TextFileSpaceDelimiter = True
                        .TextFileColumnDataTypes = Array(9, 1, 1, 1, 1, 1, 1, 1)
                        .Refresh False
                         i = i + .ResultRange.Rows.Count
                        .Delete
                  End With
                       sFilename = Dir
          Loop
End Sub

changhong8

代码见附件，与txt放到同一文件夹，自行测试速度一万个文件大概在10秒左右

埃德亚

yxbaju 发表于 2018-10-10 21:04
Sub TextData()
'TEXT在同一文件夹下
      'cells.clear

非常感谢！能提取，但是我需要每一个txt都能单独保存为一个单独的excel，应该怎样修改呢？对这一块基本不懂，麻烦再帮忙指导下！万分感谢

sheeboard

python写的代码
如果第一行作为列名都一样的话直接命名,如果不是就再加代码提取.

1. import pandas as pd
   
2. import glob
   
3. import os
   
4. 
   
5. os.chdir(r'文件所在目录')
   
6. 
   
7. col=['station','lontitude','latitude','temperature','precipitation','evaparation','runoff']
   
8. 
   
9. for file in glob.glob('*.txt'):
   
10.     filename=file.split('.')[0]
    
11.     excelname=filename+'.'+'xlsx'
    
12.     df=pd.read_csv(file,sep='\s+',skiprows=[0],header=None)
    
13.     df.columns=col
    
14.     df.to_excel(excelname,index=False)

复制代码

haoandlong

sheeboard 发表于 2018-10-11 20:47
python写的代码
如果第一行作为列名都一样的话直接命名,如果不是就再加代码提取.

用PYTHON和VBA可以无缝对接吗

sheeboard

haoandlong 发表于 2018-10-12 09:08
用PYTHON和VBA可以无缝对接吗

这个要问微软了，power bi现在倒是可以用python的，excel还要通过第三方库实现。vba么还是要分开运行的。就把python处理过程当黑箱吧，得到要的结果就可以了。

duquancai

论坛类似代码很多