вот исходник....
..........
docname = CStr(Form_baugruppe_exc.excell_doc)
Set oExcel = GetObject(docname, "excel.sheet")
oExcel.Application.Visible = True
oExcel.Application.Windows(docname).Visible = True
.........
на последней строке выпадает в осадок..

((((((