[求助]如何将TXT文件批量转换成excel格式

moonofwell

有200多个TXT文件，要将每个文件都转换成excel格式，一个一个的复制粘贴太麻烦，有没有什么好的方法可以批量转换。

注意：每个txt文件转换成一个excel文件！！！

zhch1223

可以直接用excel同时打开多个txt文件的吧

 

[此贴子已经被作者于2007-11-29 12:09:50编辑过]

ychexcel

用导入数据命令。

maditate

用Excel直接打开文本文件，同时录制宏。对录制宏加过循环，并作相应的修改，可以批量打开文本文件了。

moonofwell

搞定，用dos命令就可以了

ren d:\test\*.txt *.xls

wym777

牛人

wonderzjt

不行呀！
录制的看不懂，有没有现成的宏定义

lbl016

最好做个通用代码,对所有TXT文件批量转换成excel格式适用

lbl016

请将以下代码修改成txt直接转化成分列的excel文件
Sub test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim txt, fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
     With fd
        .AllowMultiSelect = True
         If .Show = -1 Then
             For Each txt In .SelectedItems
                 Workbooks.OpenText Filename:=txt, Origin:=936, DataType:=xlDelimited, Semicolon:=False, Comma:=True, Space:=False, Other:=False, Tab:=True
                 Range("a:u").NumberFormatLocal = "@"
                 ActiveWorkbook.SaveAs Filename:=Mid(txt, 1, Len(txt) - 4), FileFormat:=xlExcel8
                 ActiveWorkbook.Close True
             Next
         Else
             Exit Sub
         End If
     End With
End Sub

nomil9

这位大神的代码其实还不错，只是最后保存的文件木有后缀名，无法显示为excel格式文件，在网上搜了半天才发现代码少了一句话 & ".xls"，晕，赶紧补上。
Sub 转换格式()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim txt, fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
     With fd
        .AllowMultiSelect = True
         If .Show = -1 Then
             For Each txt In .SelectedItems
                 Workbooks.OpenText Filename:=txt, Origin:=936, DataType:=xlDelimited, Semicolon:=False, Comma:=True, Space:=False, Other:=False, Tab:=True
                 Range("a:u").NumberFormatLocal = "@"
                 ActiveWorkbook.SaveAs Filename:=Mid(txt, 1, Len(txt) - 4) & ".xls", FileFormat:=xlExcel8
                 'ActiveWorkbook.SaveAs Filename:=Mid(txt, 1, Len(txt) - 4), FileFormat:=xlExcel8
                 ActiveWorkbook.Close True
             Next
         Else
             Exit Sub
         End If
     End With
End Sub

附一个我的excel文档，功能包括：
1. 转换格式：多个txt分别转换成excel，
2. 汇总数据：读取多个excel文件中的特定数据（某一行）汇总到一个excel文件中（只能汇总第一个sheet），
3. 数据统计：最小值、最大值、平均值、标准差 测试结果统计 - 平台测试系统 - Newport & Oriel.rar (30.76 KB, 下载次数: 1386)

2013-10-5 22:02 上传

点击文件名下载附件
txt转excel，数据汇总与统计