Прошу прощения за повтор, но сформулирую проблему заново и полнее:
Имею код на кнопке:

Private Sub Кнопка12_Click()
On Error GoTo er1
Set obj = GetObject("D:\List.xlsx")
obj.Application.Visible = True
obj.Parent.Windows(1).Visible = True
Exit Sub
er1:
MsgBox "Нет Файла!"
End Sub 

Надо, чтобы открываемый excel-овский файлик выскакивал поверх всех окон и просил обновить все связи в файле как если бы он был открыт просто из винды. Под "связями" имеется ввиду обновление связей, которые excel берет из другого файла excel. Просто если открывать Excel из Access, он почему-то не выдает это окно с запросом на обновление связей!

http://www.sql.ru/forum/1088606/otkryt-knigu-excel-iz-access-i-obnovit-svyazi