VBA将当前路径下文件名以-PC1或-PC2结尾的xlsx文件重命名为250Bxlsx

以下是一个用VBA将当前路径下文件名以"-PC1"或"-PC2"结尾的xlsx文件重命名为250B.xlsx的示例代码：

Sub RenameFiles()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    
    Dim strPath As String
    Dim strNewName As String
    
    ' 设置文件夹路径
    strPath = ThisWorkbook.Path & "\"
    
    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set objFolder = objFSO.GetFolder(strPath)
    
    ' 遍历文件夹中的文件
    For Each objFile In objFolder.Files
        ' 判断文件名是否以"-PC1"或"-PC2"结尾，并且是xlsx文件
        If (InStr(objFile.Name, "-PC1", vbTextCompare) > 0 Or InStr(objFile.Name, "-PC2", vbTextCompare) > 0) And objFSO.GetExtensionName(objFile.Name) = "xlsx" Then
            ' 设置新的文件名
            strNewName = Replace(objFile.Name, "-PC1", "")
            strNewName = Replace(strNewName, "-PC2", "")
            strNewName = "250B.xlsx"
            
            ' 重命名文件
            objFile.Name = strNewName
        End If
    Next objFile
    
    ' 释放对象
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
    
    MsgBox "文件重命名完成！"
End Sub

请注意，此代码将在当前路径下查找并重命名文件，确保VBA代码与要重命名的文件位于同一文件夹中。另外，运行此代码会直接重命名文件，无法恢复原始文件名，请谨慎操作