假设有一些Access文件，这些Access中都有相同的表名，但需要批量将这些表都改成统一的名称，示例如下：
主要代码：
Dim db As Object 'DAO.Database
Dim tdf As Object ' DAO.TableDef
Dim varItem As Variant
If IsNull(Me.修改后) Then
MsgBox "修改后不能为空，请输入修改后名称。", vbExclamation
Me.修改后.SetFocus
Exit Sub
End If
If IsNull(Me.修改前) Then
MsgBox "修改前不能为空，请输入修改前名称。", vbExclamation
Me.修改前.SetFocus
Exit Sub
End If
For Each varItem In Me.lst_文件.ItemsSelected
' Debug.Print Me.lst_文件.Column(0, varItem)
Set db = DBEngine(0).OpenDatabase(Me.txt_文件 & "\" & Me.lst_文件.Column(0, varItem))
Set tdf = db.TableDefs("示例表")
tdf.Fields(Me.修改前).Name = Me.修改后
Next
MsgBox "修改成功。", vbInformation
演示：
示例下载:（在“了解更多”里下载）
