Здравствуйте, ZAMUNDA, c интерессом прочитал Ваш совет. Програмирую на ВБ6 уже 3 дня, и очень мало его знаю. Попробую повозиться с References но поражает мощь для офиса
lReturn = GetOpenFileName(OpenFile)
If lReturn <> 0 Then Set objExcel = CreateObject("Excel.Application"): _
'objExcel.Workbooks.Add
If lReturn <> 0 Then objExcel.Workbooks.Open (OpenFile.lpstrFile): _
objExcel.Visible = True
три строчки и открыли файл в Excel еще две открыли Word взять Workbooks(1) и вытащить из неё Worksheet легко, и это пол страницы кода. Должен же быть доступ к событиям и этого Worksheet'а.