以下是使用 VBA 代码将文件夹下的文件名中包含 “**“ 的部分替换为 “12“ 并提取文件名的示例代码

以下是使用 VBA 代码将文件夹下的文件名中包含 “**” 的部分替换为 “12” 并提取文件名的示例代码：

Sub ReplaceAndExtractFileName()
    ' 定义变量
    Dim folderPath As String
    Dim fileName As String
    
    ' 填充变量
    folderPath = "C:\YourFolderPath\" ' 将路径替换为实际文件夹路径
    
    ' 遍历文件夹下的所有文件
    fileName = Dir(folderPath)
    Do While fileName <> ""
        ' 判断文件名是否包含 "**"
        If InStr(fileName, "**") > 0 Then
            ' 替换文件名中的 "**" 为 "12"
            fileName = Replace(fileName, "**", "12")
            
            ' 提取文件名并输出
            Debug.Print fileName
        End If
        
        ' 继续获取下一个文件名
        fileName = Dir
    Loop
End Sub

在上面的代码中，我们首先定义了名为 ReplaceAndExtractFileName 的子方法。通过将变量 folderPath 设置为要处理的文件夹的路径（请根据实际情况替换为您的文件夹路径）。

然后，我们使用 Dir 函数遍历文件夹下的所有文件，并将每个文件名存储在变量 fileName 中。在循环中，我们使用 InStr 函数判断文件名中是否包含 “”，如果是，则使用 Replace 函数将 “” 替换为 “12”。最后，我们通过 Debug.Print 输出修改后的文件名。

调用这个函数的示例代码如下：

Sub Example()
    ' 调用子方法替换和提取文件名
    ReplaceAndExtractFileName
End Sub

在上面的代码中，我们只需调用 ReplaceAndExtractFileName 方法即可对指定文件夹下的文件名进行替换和提取，并通过调试窗口输出修改后的文件名。您可以根据需要自行调整输出方式。

**

如果你想将修改后的文件名保存到一个文本文件中，可以使用 VBA 中的 FileSystemObject 对象。以下是示例代码：

**

Sub ReplaceAndSaveToFile()
    ' 引入 Microsoft Scripting Runtime
    ' 在 VBA 编辑器的工具 -> 引用 中勾选 "Microsoft Scripting Runtime"
    
    ' 定义变量
    Dim folderPath As String
    Dim fileName As String
    Dim fso As Scripting.FileSystemObject
    Dim fileStream As Scripting.TextStream
    Dim outputFile As Scripting.File
    
    ' 填充变量
    folderPath = "C:\YourFolderPath\" ' 将路径替换为实际文件夹路径
    
    ' 初始化 FileSystemObject 对象
    Set fso = New Scripting.FileSystemObject
    
    ' 创建输出文件
    Set outputFile = fso.CreateTextFile("C:\Path\To\OutputFile.txt", True)
    
    ' 遍历文件夹下的所有文件
    fileName = Dir(folderPath)
    Do While fileName <> ""
        ' 判断文件名是否包含 "**"
        If InStr(fileName, "**") > 0 Then
            ' 替换文件名中的 "**" 为 "12"
            fileName = Replace(fileName, "**", "12")
            
            ' 将修改后的文件名写入输出文件
            outputFile.WriteLine fileName
        End If
        
        ' 继续获取下一个文件名
        fileName = Dir
    Loop
    
    ' 关闭输出文件
    outputFile.Close
    
    ' 释放对象
    Set fileStream = Nothing
    Set outputFile = Nothing
    Set fso = Nothing
    
    MsgBox "已将修改后的文件名保存到文件中。"
End Sub

上面的代码在处理之前需要引入 Microsoft Scripting Runtime，以便使用 Scripting.FileSystemObject 和其他相关对象。

在代码中，我们创建了一个 FileSystemObject 对象 fso，并使用 CreateTextFile 方法创建了一个输出文件，在这个例子中是 “C:\Path\To\OutputFile.txt”。然后，我们使用 WriteLine 方法将每个修改后的文件名逐行写入输出文件。

最后，我们关闭输出文件并释放相关对象。

你可以根据实际需要修改输出文件的路径和名称。

调用示例代码的方法保持不变：

Sub Example()
    ' 调用子方法替换文件名并保存到文件
    ReplaceAndSaveToFile
End Sub

请注意，在运行脚本之前，请确保设置正确的文件夹路径和输出文件路径，以及已经引入了 Microsoft Scripting Runtime 库。