问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

EXCEL如何批量导入TXT

发布网友 发布时间：2022-04-24 04:48

我来回答

共5个回答

热心网友 时间：2023-10-29 13:22

因为没有导入操作代码，以下代码是起到将文本文件另存为XLS文件代码代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之Sub FileProcess1() Dim FileFind As FileSearch
Dim fs As Variant
Dim FilePath As String
Dim FileStyle As StringFilePath = ThisWorkbook.Path
FileStyle = "*.txt"
With Application.FileSearch
.LookIn = FilePath
.Filename = FileStyle
.Execute
For Each fs In .FoundFiles
Set XLSHEET = Workbooks.Open(fs)
XLSHEET.SaveAs Filename:=Replace(fs, "txt", "xls")
XLSHEET.Save
XLSHEET.Close
Next fs
End With
End Sub

热心网友 时间：2023-10-29 13:22

因为没有导入操作代码，以下代码是起到将文本文件另存为XLS文件代码代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之Sub FileProcess1() Dim FileFind As FileSearch
Dim fs As Variant
Dim FilePath As String
Dim FileStyle As StringFilePath = ThisWorkbook.Path
FileStyle = "*.txt"
With Application.FileSearch
.LookIn = FilePath
.Filename = FileStyle
.Execute
For Each fs In .FoundFiles
Set XLSHEET = Workbooks.Open(fs)
XLSHEET.SaveAs Filename:=Replace(fs, "txt", "xls")
XLSHEET.Save
XLSHEET.Close
Next fs
End With
End Sub

热心网友 时间：2023-10-29 13:22

在E盘中有四个txt文件：
test1.txt , test2.txt , test3.txt , test4.txt
vba代码：

Sub test()
Dim filePath As String '路径
Dim fileName As String 'txt文件名
Dim txtStr 'txt内容，按照行读入
Dim txtIndex As Integer '第几个txt文件，此文件内容放在Excel的第txtTndex列
Dim lineinputIndex As Integer 'txt内容的第几行，放在Excel的第lineinputIndex+1行
filePath = "E:\" '按照自己的txt文件目录更改
fileName = Dir(filePath & "*.txt", vbDirectory)
Do While fileName <> ""
'MsgBox fileName
txtIndex = txtIndex + 1
lineinputIndex = 1
Sheet1.Cells(1, txtIndex) = fileName
Open filePath & fileName For Input As #1
Do While Not EOF(1)
lineinputIndex = lineinputIndex + 1
Line Input #1, txtStr
Sheet1.Cells(lineinputIndex, txtIndex) = txtStr
Loop
Close 1
fileName = Dir
Loop
End Sub
放入模块中，运行即可

热心网友 时间：2023-10-29 13:23

因为你的txt文件是以逗号分隔的，可以批量改扩展名为.CSV，就可以直接用EXCEL打开了，然后另存为xls格式。

热心网友 时间：2023-10-29 13:22

在E盘中有四个txt文件：
test1.txt , test2.txt , test3.txt , test4.txt
vba代码：

Sub test()
Dim filePath As String '路径
Dim fileName As String 'txt文件名
Dim txtStr 'txt内容，按照行读入
Dim txtIndex As Integer '第几个txt文件，此文件内容放在Excel的第txtTndex列
Dim lineinputIndex As Integer 'txt内容的第几行，放在Excel的第lineinputIndex+1行
filePath = "E:\" '按照自己的txt文件目录更改
fileName = Dir(filePath & "*.txt", vbDirectory)
Do While fileName <> ""
'MsgBox fileName
txtIndex = txtIndex + 1
lineinputIndex = 1
Sheet1.Cells(1, txtIndex) = fileName
Open filePath & fileName For Input As #1
Do While Not EOF(1)
lineinputIndex = lineinputIndex + 1
Line Input #1, txtStr
Sheet1.Cells(lineinputIndex, txtIndex) = txtStr
Loop
Close 1
fileName = Dir
Loop
End Sub
放入模块中，运行即可

热心网友 时间：2023-10-29 13:23

因为你的txt文件是以逗号分隔的，可以批量改扩展名为.CSV，就可以直接用EXCEL打开了，然后另存为xls格式。

热心网友 时间：2023-10-29 13:24

因为没有导入操作代码，以下代码是起到将文本文件另存为XLS文件代码 代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之 SubFileProcess1() DimFileFindAsFileSearchDimfsAsVariantDimFilePathAsStringDimFileStyleAsString FilePath=ThisWorkbook.PathFileStyle="*.txt"WithApplication.FileSearch .LookIn=FilePath .Filename=FileStyle .Execute ForEachfsIn.FoundFiles SetXLSHEET=Workbooks.Open(fs) XLSHEET.SaveAsFilename:=Replace(fs,"txt","xls") XLSHEET.Save XLSHEET.Close NextfsEndWithEndSub

热心网友 时间：2023-10-29 13:24

Dim fs As Variant
Dim FilePath As String
Dim FileStyle As StringFilePath = ThisWorkbook.Path ’路径
FileStyle = "*.txt" ‘该路径下的TXT文档
With Application.FileSearch
.LookIn = FilePath
.Filename = FileStyle
.Execute
For Each fs In .FoundFiles
Set XLSHEET = Workbooks.Open(fs)
XLSHEET.SaveAs Filename:=Replace(fs, "txt", "xls")
XLSHEET.Save
XLSHEET.Close
Next fs
End With
End Sub

热心网友 时间：2023-10-29 13:22

因为没有导入操作代码，以下代码是起到将文本文件另存为XLS文件代码代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之Sub FileProcess1() Dim FileFind As FileSearch
Dim fs As Variant
Dim FilePath As String
Dim FileStyle As StringFilePath = ThisWorkbook.Path
FileStyle = "*.txt"
With Application.FileSearch
.LookIn = FilePath
.Filename = FileStyle
.Execute
For Each fs In .FoundFiles
Set XLSHEET = Workbooks.Open(fs)
XLSHEET.SaveAs Filename:=Replace(fs, "txt", "xls")
XLSHEET.Save
XLSHEET.Close
Next fs
End With
End Sub

热心网友 时间：2023-10-29 13:22

在E盘中有四个txt文件：
test1.txt , test2.txt , test3.txt , test4.txt
vba代码：

Sub test()
Dim filePath As String '路径
Dim fileName As String 'txt文件名
Dim txtStr 'txt内容，按照行读入
Dim txtIndex As Integer '第几个txt文件，此文件内容放在Excel的第txtTndex列
Dim lineinputIndex As Integer 'txt内容的第几行，放在Excel的第lineinputIndex+1行
filePath = "E:\" '按照自己的txt文件目录更改
fileName = Dir(filePath & "*.txt", vbDirectory)
Do While fileName <> ""
'MsgBox fileName
txtIndex = txtIndex + 1
lineinputIndex = 1
Sheet1.Cells(1, txtIndex) = fileName
Open filePath & fileName For Input As #1
Do While Not EOF(1)
lineinputIndex = lineinputIndex + 1
Line Input #1, txtStr
Sheet1.Cells(lineinputIndex, txtIndex) = txtStr
Loop
Close 1
fileName = Dir
Loop
End Sub
放入模块中，运行即可

热心网友 时间：2023-10-29 13:24

因为没有导入操作代码，以下代码是起到将文本文件另存为XLS文件代码 代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之 SubFileProcess1() DimFileFindAsFileSearchDimfsAsVariantDimFilePathAsStringDimFileStyleAsString FilePath=ThisWorkbook.PathFileStyle="*.txt"WithApplication.FileSearch .LookIn=FilePath .Filename=FileStyle .Execute ForEachfsIn.FoundFiles SetXLSHEET=Workbooks.Open(fs) XLSHEET.SaveAsFilename:=Replace(fs,"txt","xls") XLSHEET.Save XLSHEET.Close NextfsEndWithEndSub

热心网友 时间：2023-10-29 13:23

因为你的txt文件是以逗号分隔的，可以批量改扩展名为.CSV，就可以直接用EXCEL打开了，然后另存为xls格式。

热心网友 时间：2023-10-29 13:24

因为没有导入操作代码，以下代码是起到将文本文件另存为XLS文件代码 代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之 SubFileProcess1() DimFileFindAsFileSearchDimfsAsVariantDimFilePathAsStringDimFileStyleAsString FilePath=ThisWorkbook.PathFileStyle="*.txt"WithApplication.FileSearch .LookIn=FilePath .Filename=FileStyle .Execute ForEachfsIn.FoundFiles SetXLSHEET=Workbooks.Open(fs) XLSHEET.SaveAsFilename:=Replace(fs,"txt","xls") XLSHEET.Save XLSHEET.Close NextfsEndWithEndSub

热心网友 时间：2023-10-29 13:24

Dim fs As Variant
Dim FilePath As String
Dim FileStyle As StringFilePath = ThisWorkbook.Path ’路径
FileStyle = "*.txt" ‘该路径下的TXT文档
With Application.FileSearch
.LookIn = FilePath
.Filename = FileStyle
.Execute
For Each fs In .FoundFiles
Set XLSHEET = Workbooks.Open(fs)
XLSHEET.SaveAs Filename:=Replace(fs, "txt", "xls")
XLSHEET.Save
XLSHEET.Close
Next fs
End With
End Sub

热心网友 时间：2023-10-29 13:24

Dim fs As Variant
Dim FilePath As String
Dim FileStyle As StringFilePath = ThisWorkbook.Path ’路径
FileStyle = "*.txt" ‘该路径下的TXT文档
With Application.FileSearch
.LookIn = FilePath
.Filename = FileStyle
.Execute
For Each fs In .FoundFiles
Set XLSHEET = Workbooks.Open(fs)
XLSHEET.SaveAs Filename:=Replace(fs, "txt", "xls")
XLSHEET.Save
XLSHEET.Close
Next fs
End With
End Sub

热心网友 时间：2023-10-29 13:22

因为没有导入操作代码，以下代码是起到将文本文件另存为XLS文件代码代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之Sub FileProcess1() Dim FileFind As FileSearch
Dim fs As Variant
Dim FilePath As String
Dim FileStyle As StringFilePath = ThisWorkbook.Path
FileStyle = "*.txt"
With Application.FileSearch
.LookIn = FilePath
.Filename = FileStyle
.Execute
For Each fs In .FoundFiles
Set XLSHEET = Workbooks.Open(fs)
XLSHEET.SaveAs Filename:=Replace(fs, "txt", "xls")
XLSHEET.Save
XLSHEET.Close
Next fs
End With
End Sub

热心网友 时间：2023-10-29 13:22

在E盘中有四个txt文件：
test1.txt , test2.txt , test3.txt , test4.txt
vba代码：

Sub test()
Dim filePath As String '路径
Dim fileName As String 'txt文件名
Dim txtStr 'txt内容，按照行读入
Dim txtIndex As Integer '第几个txt文件，此文件内容放在Excel的第txtTndex列
Dim lineinputIndex As Integer 'txt内容的第几行，放在Excel的第lineinputIndex+1行
filePath = "E:\" '按照自己的txt文件目录更改
fileName = Dir(filePath & "*.txt", vbDirectory)
Do While fileName <> ""
'MsgBox fileName
txtIndex = txtIndex + 1
lineinputIndex = 1
Sheet1.Cells(1, txtIndex) = fileName
Open filePath & fileName For Input As #1
Do While Not EOF(1)
lineinputIndex = lineinputIndex + 1
Line Input #1, txtStr
Sheet1.Cells(lineinputIndex, txtIndex) = txtStr
Loop
Close 1
fileName = Dir
Loop
End Sub
放入模块中，运行即可

热心网友 时间：2023-10-29 13:23

因为你的txt文件是以逗号分隔的，可以批量改扩展名为.CSV，就可以直接用EXCEL打开了，然后另存为xls格式。

热心网友 时间：2023-10-29 13:24

因为没有导入操作代码，以下代码是起到将文本文件另存为XLS文件代码 代码拷贝入文本文件夹中的一个新建EXCEL文件的模块中，执行之 SubFileProcess1() DimFileFindAsFileSearchDimfsAsVariantDimFilePathAsStringDimFileStyleAsString FilePath=ThisWorkbook.PathFileStyle="*.txt"WithApplication.FileSearch .LookIn=FilePath .Filename=FileStyle .Execute ForEachfsIn.FoundFiles SetXLSHEET=Workbooks.Open(fs) XLSHEET.SaveAsFilename:=Replace(fs,"txt","xls") XLSHEET.Save XLSHEET.Close NextfsEndWithEndSub

热心网友 时间：2023-10-29 13:24

Dim fs As Variant
Dim FilePath As String
Dim FileStyle As StringFilePath = ThisWorkbook.Path ’路径
FileStyle = "*.txt" ‘该路径下的TXT文档
With Application.FileSearch
.LookIn = FilePath
.Filename = FileStyle
.Execute
For Each fs In .FoundFiles
Set XLSHEET = Workbooks.Open(fs)
XLSHEET.SaveAs Filename:=Replace(fs, "txt", "xls")
XLSHEET.Save
XLSHEET.Close
Next fs
End With
End Sub
声明声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com
武汉市实施《中华人民共和国残疾人保障法》办法第六章 劳动就业_百度... 湖北省实施《中华人民共和国残疾人保障法》办法第三章 康复 湖北省实施《中华人民共和国残疾人保障法》办法第四章 教育 湖北省实施《中华人民共和国残疾人保障法》办法第七章 无障碍环境_百 ... 湖北省实施《中华人民共和国残疾人保障法》办法第六章 文化生活_百度... 冬天如何钓草鱼在鱼塘 ...晋江末世女配文,女主是穿越到一本末世小说里面的知道... 河蚌怎么养(买了很多河蚌也吃不完) 合肥90平装修价格多少 黄瓜394千克萝卜385千克两种蔬菜共约800千克对吗? 电信网络连接异常(2032,5)什么意思? 如何在excel中一次性导入多个txt文件? 电信宽带无法连接网络是怎么回事? excel如何批量导入txt文本内容? 我的电信宽带出现连接的错误该怎么办啊? 网络异常,请检查网络900,网络电视突然之间显示这个提示。我安装的是... 电信网络异常 如何把excel里面一个单元格里的内容，自动导入到指定txt文件，txt原来内容自动清空。 微信昵称能找到人吗 苹果手机看视频横屏的时候屏幕还是很小怎么办 我的苹果手机看视频 然后横屏过来为什么显示一半 一半有视频一半黑的 苹果7手机视频不能旋转播放,怎样才能做到横屏播放? 手术室护士一般都做什么工作啊。累不累啊。收入怎么样啊。 正式护士的参加工作形式是什么? 作文大全 如何做好一个护理人员 护士要做什么工作? 护士的工作有哪些? 护士的作用 护士每天的工作内容? 护士的日常工作是哪些? 电信宽带账号异常怎么办? excel表格怎么导入txt文件 电信网络异常,时断时续怎么办? 怎么把excel表格导入txt excel中的部分数据怎样自动或者一键导入txt文档？txt中能进行数据计算吗？ 电信宽带网络异常 如何在Excel使用宏导入txt格式文本 电信宽带账号异常 如何将txt中的数据自动导入excel 总是弹出电信的“宽带帐号异常”是怎么回事? Excel批量导入TXT数据 Excel 如何批量导入txt文件,且从指定行开始 实木地板和复合地板是一回事吗? 实木地板与实木复合地板的区别是什么 优缺点分析 交强险出险是什么意思 实木地板和复合地板的区别? 复合实木地板和实木地板的区别 交强险与出险次数有关吗 实木地板与复合地板的区别 三大方面全面对比介绍 简单的瑜伽动作 入门是什么?
懂视 51dongshi.com 版权所有
Copyright © 2019-2024