用vba实现读取文件夹下所有后缀名为txt的文档，将每个文档内容读取到新的sheet页

好的，我可以为您提供一个基本的 VBA 代码示例，用于实现您所描述的功能。请按照以下步骤操作：

1. 打开 Excel，按下 ALT + F11 组合键打开 VBA 编辑器。

2. 在 VBA 编辑器中，选择“插入” -> “模块”，在新建的模块中输入以下代码：

Sub ReadFiles()
    Dim folderPath As String, filePath As String, fileContent As String
    Dim fileNum As Integer, sheetNum As Integer
    Dim sheetName As String
    
    folderPath = "C:\test\" '更改为您需要读取的文件夹路径
    
    sheetNum = 1 '用于创建新的 sheet 页
    
    filePath = Dir(folderPath & "*.txt")
    
    Do While filePath <> ""
        sheetName = "Sheet" & sheetNum '根据 sheetNum 创建新的 sheet 页
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheetName
        
        Open folderPath & filePath For Input As #1
        fileContent = Input$(LOF(1), 1)
        Close #1
        
        Range("A1").Value = fileContent '将文件内容写入新的 sheet 页
        
        sheetNum = sheetNum + 1
        filePath = Dir
    Loop
End Sub

3. 将代码中的 folderPath 修改为您需要读取的文件夹路径。

4. 运行代码，按下 F5，即可将文件夹下所有后缀名为 txt 的文档内容读取到新的 sheet 页中。

请注意，这只是一个基本的示例代码，您需要根据实际需求进行修改和优化。同时，由于本代码没有考虑一些特殊情况，如文件夹不存在、文件内容过大等问题，因此在使用时需要注意。