Отключить сообщение об ошибке

[Acina]

Добрый день.
Помогите решить проблему.
В папке есть несколько файлов xml.
Я перед импортом в access сохраняю их в excel, иначе один файл импортируется в несколько таблиц.
Использую:
Public Sub XmlToXls(path As String, path_f As String, newF As String)
Dim oXL As Object
Set oXL = CreateObject("Excel.Application")
With oXL
.Workbooks.OpenXML FileName:=path_f, LoadOption:=xlXmlLoadImportToList
.Workbooks(1).SaveAs (path & "\" & newF & ".xls")
.Workbooks(1).Close
End With
Set oXL = Nothing
End Sub
Потом использую DoCmd.TransferSpreadsheet acImport,....
При сохранении файлов в excel выходит ошибка.
"Ошибка импорта xml".
Причем, это окно где-то на заднем плане, его не видно.
Можно ли отключить его или чтобы оно выходило поверх других окон?