批量修改ACCESS表列名

问题来源：从ODBC导入数据到ACCESS

再从ACCESS导入到SQL数据库，ACCESS会多带个DBO。

所以需要批量修改ACCESS的表名。

首先需要引用ADOX
引用方法：
打开ACCESS的VBE窗口
引用ADOX—— 菜单"工具"-> "引用 "--> 勾选Microsoft   ADO   Ext.2.7   for   DDL   ado   Security 或更高版本，点击确定按钮

新建一个模块。

Sub aa()

Dim MyDB As New ADOX.Catalog

Dim Obj As ADOX.Table

MyDB.ActiveConnection = CurrentProject.Connection

For Each Obj In MyDB.Tables

If Obj.Name Like "dbo_*" Then

Obj.Name = Mid(Obj.Name, 4)

End If

Next Obj

End Sub

修改之后再导入到SQLSERVER就OK了