Programmaticaly переименовать столбец в таблице Access после импорта из Excel

Question

Есть ли способ программно переименовать 1-й столбец таблицы в Access. Ситуация: после импорта файла Excel в доступ, мне всегда нужно переименовать 1-й столбец, который всегда несет другое имя столбца и вручную переименовывает его в 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»