体验零代码搭建

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

网友投稿  ·  2023-12-20 13:12  ·  云表格  ·  阅读 429


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

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

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

  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"


但是很精辟! 1. 巧分窗口 如果仔细观察可能会发现 << 上一篇
2023-12-20 13:12
B2) 2、鼠标移动到C2单元格右下角
2023-12-20 13:12
下一篇 >>

相关推荐