從Excel中導入後，Programmaticaly重命名Access表中的列

Question

有沒有一種方法可以在Access中以編程方式重命名錶的第1列。情況：在將Excel文件導入訪問之後，我總是需要重命名第一列，該列總是帶有不同的列名，並且手動將其重命名爲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 Object Library」的名稱