[已解决]如何批量把txt文件导入excel

mfk1288 · 发表于 2010-10-18 15:11

本帖最后由爱疯于 2019-11-6 09:49 编辑

附件是招商银行网上银行导出的txt文件，现在问题是如何批量把一个文件夹里N个这些txt文件（文件名不是相同，但后缀名都是.txt)导入excel的同一工作表里（如果要分N个表也行，最后我自己手工合并），其实主要是txt里的帐号日期币种支出存入余额说明这些字段对应的内容。但是如果把其他内容导进也没有问题，最多导入后手工把不需的内容。我自己试过，但是导入的支出、存入、余额这三个字段对应的项目不是在同一列里，就是支出的金额，应该导入后是在同一列里的，但是实际同是支出，分了几列。请各位老师高手指导，急！谢谢！

VVWjkTSY.rar (673 Bytes, 下载次数: 112)

amulee · 发表于 2010-10-18 15:25

宏录制的代码，自己修改吧

Sub Macro1()
'
' Macro1 Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & ThisWorkbook.Path & "\7971(9.).txt", Destination:=Range( _
        "$A$1"))
        .Name = "7971(9.)"
        .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 = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = ";"
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

爱疯 · 发表于 2010-10-18 16:17

R55ppMVg.rar (10.35 KB, 下载次数: 288)

jianha · 发表于 2012-7-17 18:09

好东东，太感谢了。

罗非鱼 · 发表于 2011-12-13 22:07

多么希望版主把代码分享给大家，并逐句解释

ztccsj · 发表于 2012-7-9 23:24

爱疯发表于 2010-10-18 16:17

真的太牛了，复杂问题那么简单就能解决啊

kblicuit · 发表于 2019-11-5 09:53

謝謝分享借鑒一下。

		自动登录	找回密码
密码			注册