如何在Microsoft Access中通过VBA动态重命名数据表

完全可以通过VBA实现表名每日自动化规范重命名，不需要手动逐表修改，规则调试完成后可实现零人工介入运行。

核心实现逻辑 #

• 遍历数据库内所有用户自建表，自动跳过Access内置的MSys开头系统表，避免损坏数据库底层结构
• 按给定规则清洗表名：先以斜杠/为分隔符截断、丢弃斜杠后的所有内容，再移除剩余内容中的所有空格，生成短规范名，你给出的示例table 123/abc 2022经过这两步处理后会直接得到table123，完全匹配需求
• 重命名前自动做重名校验，避免新表名和已有表冲突引发运行错误
• 可搭配Access自动启动宏、Windows任务计划实现每日定时自动执行

可直接复用的VBA代码 #

Sub AutoRenameTables()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim strOldName As String
    Dim strNewName As String
    Dim arrSplit As Variant
    Dim objCheck As Object
    
    Set db = CurrentDb()
    
    ' 遍历所有表
    For Each tdf In db.TableDefs
        ' 跳过系统表
        If Left(tdf.Name, 4) <> "MSys" Then
            strOldName = tdf.Name
            
            ' 第一步：按斜杠分割，取斜杠前的第一段内容
            arrSplit = Split(strOldName, "/")
            strNewName = arrSplit(0)
            
            ' 第二步：移除所有空格，需要删其他特殊字符可在这里新增Replace语句
            strNewName = Replace(strNewName, " ", "")
            ' 示例：如果要删除横杠就加下面这行
            ' strNewName = Replace(strNewName, "-", "")
            
            ' 新旧名称不同才执行重命名
            If strNewName <> strOldName Then
                ' 检查是否存在重名表，避免报错
                On Error Resume Next
                Set objCheck = db.TableDefs(strNewName)
                If Err.Number = 0 Then
                    ' 重名时自动加当日日期后缀，可按需调整
                    strNewName = strNewName & "_" & Format(Date, "YYYYMMDD")
                End If
                Err.Clear
                On Error GoTo 0
                
                ' 执行重命名操作
                DoCmd.Rename strNewName, acTable, strOldName
                ' 输出操作日志到立即窗口，方便排查
                Debug.Print "重命名完成：" & strOldName & " --> " & strNewName
            End If
        End If
    Next tdf
    
    ' 手动执行时打开下面这行提示，自动执行时注释掉
    MsgBox "表名规范重命名操作执行完成", vbInformation
    
    ' 无人值守自动执行时打开下面这行，执行完自动退出Access
    ' Application.Quit acQuitSaveNone
    
    ' 释放对象
    Set tdf = Nothing
    Set db = Nothing
    Set objCheck = Nothing
End Sub

使用注意事项 #

• 第一次执行代码前务必备份数据库，确认重命名结果符合预期后再配置自动执行
• 代码默认适配你给出的重命名规则，如果需要移除其他特殊字符、调整截取长度，直接修改表名清洗段的逻辑即可
• 配置无人值守自动执行的方法：新建名为AutoExec的Access宏，宏操作选择RunCode，调用上述AutoRenameTables过程；再通过Windows任务计划设置每日固定时间打开该数据库文件，即可实现全流程自动运行
• 自动执行场景下记得注释掉代码中的MsgBox弹窗行，按需开启自动退出代码，避免流程阻塞

内容的提问来源于stack exchange，提问作者RazK