Импорт Excel в Access - заголовок столбца имеет специальный символ

Question

Существует ли скрипт Access, который будет редактировать заголовок Excel и импортировать его в Access?Каждую неделю я получаю файлы Excel от всех наших покупателей (около 200 файлов Excel). У меня уже есть скрипт в Access для импорта и объединения всех этих файлов.Сейчас я импортирую только колонку AT.Есть две другие колонки, которые моя компания хочет, чтобы я импортировал и отслеживал данные.Проблема в том, что у одного из заголовков в этих новых столбцах есть точка (например, Inv. Impact).Я продолжаю получать ошибки при попытке импортировать, и теперь я понимаю, что Access не любит точки в названии.

Можно ли написать сценарий для изменения заголовка всех этих файлов в Access или Import и редактирования заголовка?В нем почти 200 файлов, поэтому у меня нет времени открывать и редактировать каждый файл перед импортом.

Answer 1

Да, код может открывать и управлять Excel и выполнять поиск / замену.Я использовал макрос-рекордер в Workbook для генерации некоторого кода и адаптации в процедуре Access VBA.Очень простой пример:

Sub FixHeader()
Dim xclApp As Excel.Application, xclWB As Excel.Workbook
Set xclApp = CreateObject("Excel.Application")
Set xclWB = xclApp.Workbooks.Open("C:\Users\June\Book1.xlsx")
xclWB.Worksheets("Sheet1").Range("A1:B1").Select
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
xclWB.Close True
xclApp.Quit
End Sub