excel批量导入文本文档到不同sheet，并给文本文档用txt的名字命名

您可以使用VBA编写一个宏来实现这个功能。以下是一个示例代码：

Sub ImportTextFiles()
Dim MyFolder As String
Dim MyFile As String
Dim i As Integer

MyFolder = "C:\MyFolder\" '更改为您的文件夹路径

MyFile = Dir(MyFolder & "*.txt")

Do While MyFile <> ""
i = i + 1
Workbooks.OpenText Filename:=MyFolder & MyFile, _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, Comma:=False, Space:=True, _
Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
TrailingMinusNumbers:=True

ActiveWorkbook.SaveAs Filename:=MyFolder & Left(MyFile, Len(MyFile) - 4) & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWorkbook.Close

MyFile = Dir
Loop

MsgBox "导入完成！"
End Sub

这个宏将会在指定文件夹中查找所有的txt文件，并将它们导入到Excel中的不同sheet中。每个sheet的名称将会使用txt文件的名称。