Текстовые Файлы - Импорт с заданной спецификацией

Public Function RunOnOutStart(sTxtFilePath) As Long
Dim sTableName$, sSpecificationName$
Dim lOnStart&, lOnEnd&
 
'Параметры:
    sTableName = "tbl_accdb"
    sSpecificationName = "AUDIT"
 
'Записей ДО
    lOnStart = DCount("*", sTableName)
    
'Имрорт
    'https://docs.microsoft.com/en-us/office/vba/api/access.docmd.transfertext
    DoCmd.TransferText acImportFixed, sSpecificationName, "tbl_accdb", sTxtFilePath, False
    DoEvents
    
'Записей ПОСЛЕ
    lOnEnd = DCount("*", sTableName)
'Сколько?
    RunOnOutStart = lOnEnd - lOnStart 'Импортировано записей
 
End Function

MSA-2007 ( 27 kB) Пример