请问，有什么办法可以用代码一次性将access里的某几个表的某个字段做更改

xiaoangel

附件是一个Access mdb文件。 假设里面有很多table。 现在能否用VBA的方法将3个table，即AB，FB，TB里的字段名K1，改成P8。

也就是改表头，和里面的数据无关。

如何能用VBA代码一次性做到呢？ 谢谢

zhaogang1960

ExcelVBA移植过来：

1. Sub test()
   
2.     Dim cat As Object, mytable As Object, myCol As Object
   
3.     Dim a$, b$
   
4.     Set cat = CreateObject("ADOX.Catalog")
   
5.     cat.ActiveConnection = CurrentProject.Connection
   
6.     a = "K1"
   
7.     b = "P8"
   
8.     For Each mytable In cat.Tables
   
9.         If mytable.Type = "TABLE" Then
   
10.             For Each myCol In mytable.Columns
    
11.                 If myCol.Name Like a & "*" Then '"K1"开头的字段名
    
12.                     myCol.Name = Replace(myCol.Name, a, b)
    
13.                     Exit For '仅修改第一个符合条件的字段，如果每个表有很多这样的字段需要修改，则删除本句
    
14.                 End If
    
15.             Next
    
16.         End If
    
17.     Next
    
18.     Set mytable = Nothing
    
19.     Set cat = Nothing
    
20. End Sub

复制代码

zhaogang1960

请看附件
TEST.rar (16.64 KB, 下载次数: 11)

2015-2-13 20:09 上传

点击文件名下载附件