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

Question

有没有办法在Access中重命名表格的第一列。情况：在将Excel文件导入访问后，我总是需要重命名第一列，该列始终具有不同的列名并手动将其重命名为 F1 ，如果可以这样做，我会更容易programmaticaly。有没有一种简单的方法来使用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)引用第二个字段。

注意：确保设置对Access Object Library的引用（可在Tools＆gt; References中找到）。它的名称类似于＆＃34; Microsoft Access 12.0对象库＆＃34;