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

以下是实现该功能的 VB 代码：

Sub ImportTxtFilesToExcel()
    Dim folderPath As String
    Dim txtFile As String
    Dim wb As Workbook
    Dim ws As Worksheet
    
    folderPath = "C:\MyFolder\" '指定文件夹路径
    Set wb = ThisWorkbook '当前工作簿
    
    '遍历文件夹中的所有txt文件
    txtFile = Dir(folderPath & "*.txt")
    Do While txtFile <> ""
        '创建新的工作表，并以txt文件名命名
        Set ws = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
        ws.Name = Left(txtFile, Len(txtFile) - 4)
        
        '将txt文件内容导入到工作表中
        With ws.QueryTables.Add(Connection:="TEXT;" & folderPath & txtFile, _
            Destination:=ws.Range("A1"))
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True '以逗号分隔
            .Refresh
        End With
        
        txtFile = Dir '继续遍历下一个txt文件
    Loop
End Sub

这段代码可以将指定文件夹中的所有txt文件导入到Excel中的不同sheet中，每个sheet的名称将使用对应的txt文件名。