TXT文件转化为EXCEL文件 几秒搞定

长安布衣

TXT文件转化为EXCEL文件

长安布衣_成绩.rar (15.33 KB, 下载次数: 1380)

2009-9-12 20:58 上传

点击文件名下载附件
TXT文件转化为EXCEL文件

如果你有要做的文件，请发给我，做好后，我会贴在论坛上

对于有规律的TXT文件，我可以将其转化为EXCEL文件
1 用VBA编程，不需手工分列
2 按照预先的格式生成EXCEL文件
3 有些TXT换行的也可自动做成EXCEL文件
4 整个过程只需几秒
5 有可能个别文件不能做出

lb_bn

可不可以在站内pm个密码？

zjivan

给个密码看看，你对列的格式没有控制，要是身份证号码的话，就变成科学记数法了。

zjivan

其实导入txt,csv文件，基本代码如下：

Sub Macro3()

'

' Macro3 Macro

' 宏由 ZHL 录制，时间: 2008-7-3

'



'

    Cells.Select

    With ActiveSheet.QueryTables.Add(Connection:= _

        "TEXT;C:\Documents and Settings\zhl\桌面\200807021528053658.csv", Destination:= _

        Range("A1"))

        .Name = "200807021528053658_1"

        .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 = False

        .TextFileTabDelimiter = False

        .TextFileSemicolonDelimiter = False

        .TextFileCommaDelimiter = True

        .TextFileSpaceDelimiter = False

        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _

        2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)

        .TextFileTrailingMinusNumbers = True

        .Refresh BackgroundQuery:=False

    End With

End Sub

黄冠涛

做的真好，要是能看到你的代码就更好了

长安布衣

原帖由 zjivan 于 2009-10-27 21:40 发表
给个密码看看，你对列的格式没有控制，要是身份证号码的话，就变成科学记数法了。

可以设置的。如果将身份证号列设置为文本。出来的数字就不会是科学记数法的数字了

smhf_6

对文本文件的处理，本身就是EXCEL－VBA的基本功能之一, 要不还有这么广的应用？

迅岐同心

好东西，能分享一下代码吗？

长安布衣

有需要TXT文件转化为EXCEL文件？上传给我，我做一下试试

immelman

HI,如果我需要将整个目录下的TXT文件批量导入成相应的XLS文件怎么弄呢?