ник: ars_bs
Sub nameFiles() 'импорт донных из ТХТ
Dim namefile As String 'имя файла
Dim mypath As String 'путь
Dim sq As String ' запрос на выборку
Dim rs As Recordset ' для занесения имени файла в таблицу файлов
Dim rs1 As Recordset ' для выборки по имени файла
Set rs = CurrentDb.OpenRecordset("DataFiles") 'открытие таблицы
mypath = "c:\602\txt\*.txt" ' путь к импортируемым файлам
namefile = Dir(mypath) ' берем имя файла
i = 0
Do While namefile <> "" 'проверяем чтоб имя файла соответствовало условию
sq = "select [DataFiles].filesName from [DataFiles] where ([DataFiles].filesName) = '" & namefile & "';"
Set rs1 = CurrentDb.OpenRecordset(sq) ' проверка занесен файл или нет
If rs1.RecordCount = o Then ' если нет то импортируем
DoCmd.TransferText acImportDelim, "спецификация импорта2", "Ф02-09-0001009_1", "C:\602\TXT\" & namefile, False, "", 866
rs.AddNew ' добавляем имя файла в таблицу файла
rs!filesName = namefile
rs.Update
i = i + 1
'Forms![work]![Поле10] = namefile
Debug.Print namefile, i
Else ' если файл есть то ничего не делаем
Debug.Print "файл есть"
Debug.Print rs1!filesName
End If
namefile = Dir 'берём имя следующего файла
Loop
Debug.Print "Итого скопировано файлов" & i
rs.Close
rs1.Close
End Sub
подскажите может можно упростить, когда работает данный код температуры проца поднимается с 49 градусов до 64 и комп просто тупит -при переключении окон он задумывается приблизительно секунд 30 а то и более , и вообще процесс импорта занимает много времени