小白学习，如何快速批量TXT数据转换EXCEL文件

Jerry6455

如何快速把多个TXT文件转换成多个EXCEL文件，我上面有两个文本文件，我用打开文件导入了一个XLS格式的文件，如何用函数或者VBA批量的转换成EXCEL的格式，请帮助一下，谢谢。

xlgw521

另外提示你一点，不要随意把大量他人信息发布的网络上，如身份证号码，姓名等，求助时可用其他数字代替

small_small

1. Sub 格式转换()
   
2.     Dim arr, n As Byte, strpath As String
   
3.     arr = Application.GetOpenFilename(, , 2, , True)‘选择需要转换格式的TXT文件，可以多选
   
4.     If IsArray(arr) = False Then Exit Sub
   
5.     For n = 1 To UBound(arr)
   
6.         Workbooks.Open Filename:=arr(n), AddToMru:=True
   
7.         ActiveWorkbook.SaveAs ActiveWorkbook.Path & "/" & Replace(ActiveWorkbook.Name, "txt", "xlsx")
   
8.     ActiveWorkbook.Close 0
   
9.     Next n
   
10. End Sub
    

复制代码

Jerry6455

xlgw521 发表于 2021-10-11 11:46
另外提示你一点，不要随意把大量他人信息发布的网络上，如身份证号码，姓名等，求助时可用其他数字代替

哦，忘记吧身份证号去掉了，麻烦你把附件删除，谢谢，你这种，我会，我说的意思，你没明白，我要的是批量编程EXCEL，不是一个一个导入，还是感谢你。

Jerry6455

small_small 发表于 2021-10-11 12:18

我在VBA里添加了此代码，转换成XLS格式了，可是打不开，显示格式和扩展无效货已损坏。我自己做了一个批处理文件，弄完也提示的这个。不知道为什么

Jerry6455

xlgw521 发表于 2021-10-11 11:41
如下图所示，用WPS新建一个文件，然后按下图步骤操作。操作好的见附件

麻烦你把附件删除，谢谢了。这样的导入我会，我要批量的，谢谢。麻烦了

Jerry6455

small_small 发表于 2021-10-11 12:18

用此代码导入成功后，前面的编码零都不显示了，还有身份证号都变成E了，如何批量处理，谢谢！

small_small

你要的批量是什么样的

Jerry6455

small_small 发表于 2021-10-11 15:15
你要的批量是什么样的

批量就是导入以后，在EXCEL里编码和身份证号以文本格式显示，不是常规，我这样说能明白吗，加一下QQ：284330800