如何批量把文本导入到Excel中去并且按列排放？

作者：绿色风分类：时间：2022-08-17 浏览：173

楼主
wise

Q:如何批量把文本导入到Excel中去并且按列排放？

A:ALT+F11→插入模块，在模块中输入以下代码:

Sub test()
Dim Arr, k%
Dim Fso As Object, Fl, i%
'创建FileSystemObject对象
Set Fso = CreateObject("Scripting.FileSystemObject")
'遍历当前路径下的所有文件
For Each Fl In Fso.GetFolder(ThisWorkbook.Path & "\").Files
'如果为文本文件
If Fl.Name Like "*.txt" Then
'累计器
i = i + 1
'打开该文本文件并读取文件
Open Fl For Input As #1
'从文件中读取1个字节转换成Unicode 字符代码
Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
'关闭所有用 Open 语句打开的磁盘文件
Reset
'把文本逐列输入进去单元格中，并且设置单元格格式为文本格式
With Range("A1").Offset(0, i - 1).Resize(UBound(Arr) + 1)
.NumberFormat = "@"
.Value = Application.Transpose(Arr)
End With
End If
Next
End Sub

mytest.rar

2楼
YESS95

这个比较适用

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表