首页 > Excel专区 > Excel教程 >

保存时文件名与原文件名相同;且将内容按空格分列(.txt文件中格式相同)

Excel教程 2022-03-25 20:09:00

  在一个文件夹中有数百个.txt文件,想将其另存为.xls文件,保存时文件名与原文件名相同;且将内容按空格分列(.txt文件中格式相同),使用VBA可以实现该功能,代码如下:

  Dim Fso, Fl

  Set Fso = CreateObject("Scripting.FileSystemObject")

  For Each Fl In Fso.getfolder(ThisWorkbook.Path & "").Files

  If Fl.Name <> ThisWorkbook.Name Then

  Workbooks.OpenText (Fl)

  With ActiveWorkbook

  .SaveAs ThisWorkbook.Path & "" & Fl.Name & ".xls"


标签: 分列文件文件名空格excel教程

office教程网 Copyright © 2016-2020 http://www.office9.cn. Some Rights Reserved. 苏ICP备20040415号-9