Access VBA テーブル名を一括変更するマクロ

例えば、テーブル名が全て "public_"で始まっている場合に "public_"を削除する方法。
Sub macro1()
    Dim myTable As TableDef
    For Each myTable In CurrentDb.TableDefs
    
        If Left(myTable.Name, 7) = "public_" Then
            Debug.Print myTable.Name  ' デバグ用出力
            Debug.Print "  " & Mid(myTable.Name, 8, Len(myTable.Name))  ' デバグ用出力
            myTable.Name = Mid(myTable.Name, 8, Len(myTable.Name))
        End If
    
    Next

End Sub
カテゴリ: