批量修改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了