ник: Анатолий (Киев)
1. Попробуйте после Set XL = CreateObject("excel.application") добавить:
XL.WindowState = xlMinimized
XL.Visible = True
2.
XL.Workbooks.Open FileName:=MyFile
DoCmd.TransferSpreadsheet acImport, 8, "22_temp", MyFile, False, "A3:N120"
Эти команды я бы поменял местами, а еще лучше - использовать CopyFromRecordset.