Вопрос следующий: в Access импортируются таблицы Excel с помощью обычного SELECT'a из листа -

INSERT INTO (Поля Access) SELECT Поля Excel FROM [Excel 12.0 xml;HDR=Yes;IMEX=1;DATABASE=" & currentFilePath & "]

Проблемы возникают, когда в Excel файле попадаются столбцы с нестандартными именами, содержащими в себе, например, точки.
Каким образом можно перед импортом открыть файл, c помощью REPLACE заменить точки на пробелы, и импортировать из уже отредактированного файла, не сохраняя его, чтобы не испортить исходник? Методы типа DoCmd.TransferSpreadsheet и "поячеечного" чтения не подходят, поскольку таблица содержит несколько десятков столбцов и около полумиллиона строк, что делает эти методы не совсем подходящими из-за времени выполнения.

А как после импорта для всех названий полей в таблице символ # по-быстрому на что-то иное заменить?

CurrentDb.TableDefs(Table).Fields("Field#").Name=Replace(CurrentDb.TableDefs(Table).Fields("Field#").Name, "#", "")

или вот так:

CurrentDb.TableDefs(Table).Fields(I).Name=Replace(CurrentDb.TableDefs(Table).Fields(I).Name, "#", "")

Спс, отлично сработало.
Для вар-тов кучи полей в исходных эксельках самое то.

Sub ReplaceCharInTableName(strTableName As String)

Dim bytTableFieldCount As Byte, i As Byte

bytTableFieldCount = CurrentDb.TableDefs(strTableName).Fields.Count

For i = o To bytTableFieldCount - 1

    CurrentDb.TableDefs(strTableName).Fields(i).Name = Replace(CurrentDb.TableDefs(strTableName).Fields(i).Name, "#", " ")

Next i

'MsgBox CurrentDb.TableDefs(strTableName).Fields.Count

End Sub

или вот так:

Sub ReplaceCharInTableName(strTableName As String)

Dim i As Byte

For i = 0 To CurrentDb.TableDefs(strTableName).Fields.Count - 1

    CurrentDb.TableDefs(strTableName).Fields(i).Name = Replace(CurrentDb.TableDefs(strTableName).Fields(i).Name, "#", " ")

Next

'MsgBox CurrentDb.TableDefs(strTableName).Fields.Count

End Sub

Sub ReplaceCharInFieldsName(strTableName As String) Dim fld As DAO.Field With CurrentDb With .TableDefs(strTableName) For Each fld In .Fields fld.Name = Replace(fld.Name, "#", vbNullString) Next End With End With End Sub 

Если в цифрах, то:
Табличка (пустая) о 10 текстовых полях (в именах нет решеток)
Тестовая процедура:

Public Sub Test()

    Dim i As Integer, j As Integer

    Dim st As Long

    j = 100

    Debug.Print String(10, "-")

    st = apiTimeGetTime

    For i = 1 To j

        ReplaceCharInTableName "tbl1"

    Next i

    Debug.Print "ReplaceCharInTableName", apiTimeGetTime - st

    Debug.Print String(10, "-")

    st = apiTimeGetTime

    For i = 1 To j

        ReplaceCharInFieldsName "tbl1"

    Next i

    Debug.Print "ReplaceCharInFieldsName", apiTimeGetTime - st

End Sub