VBA修改ACCESS表名

Private Sub changetabname_Click()
    Dim tbl As TableDef
    Dim dbs As Database
    Dim nbl As String
    Dim obl As String
    nbl = "Newtable"
    Set dbs = CurrentDb
    For Each tbl In dbs.TableDefs
        obl = tbl.Name
        If obl = "Table1" Then
            tbl.Name = nbl
        MsgBox "修改成功", vbInformation, "提示"
        End If
    Next
End Sub

原文地址：https://www.cnblogs.com/zhulinvpn/p/12003937.html