Function ImportExelFile(MyPatch, novoeIMYA)
'Где MyPatch = "C:\Temp\MyExelFile.xls" полное имя файла
'novoeIMYA-имя будущей таблы
On Error Resume Next ' Выключение обработчика ошибок.
DoCmd.DeleteObject acTable, novoeIMYA
Err = 0 ' Очистка кода ошибки.
DoCmd.TransferSpreadsheet acImport, 8, novoeIMYA, MyPatch, True, ""
End Function
|