dim strFileName as string
dim strFolderName as string
strFolderName =.... 'здесь путь и имя папки с:\xxx
strFileName = .... 'здесь имя файла без DBF
currentdb.execute "INSERT INTO Tbl (Имя,Фамилия, Отчество )
SELECT Имя, Фамилия, Отчество
FROM " & strFileName & " IN '" & strFolderName & "'[dBase IV;];"
Kill strFolderName & strFileName & ".dbf" ' удаление файла
|