ms-access - 从 Excel 导入后，以编程方式重命名 Access 表中的列

Question

有没有办法以编程方式重命名 Access 中表的第一列？情况：将 Excel 文件导入 Access 后，我总是需要重命名始终具有不同列名的第一列并手动将其重命名为F1，如果这可以通过编程方式完成会容易得多。有没有一种简单的方法可以使用 VBA 来实现这一点？

Answer 1

基本上打开一个访问应用程序对象，然后您实际上是在重命名它，就像在 Access vba 中一样。

Dim appAccess As Access.Application
Set appAccess = New Access.Application
With appAccess
    .OpenCurrentDatabase "C:\...\DatabaseName.accdb"
    .CurrentDb.TableDefs("Table1").Fields(1).Name = "F1"
    .CloseCurrentDatabase
End With

替换"Table1"为您的表格名称并.Fields(1)指代第一个字段，.Fields(2)指代第二个字段等。

注意：确保将引用设置为访问对象库（在工具 > 引用中找到）。它的名称类似于“Microsoft Access 12.0 对象库”