OLE и Excel

[shurik58]

Вопрос следующий.
Есть форма. На ней OLE Сontrol.
Как в него загрузить произвольный файл Excel.
Как перехватить событие в OLE на конкретном листе, например
изменение значения в ячейке А1.
Без OLE все работает, но хотелось бы открывать документ Excel
именно в форме, а не в отдельном окне.
т.е.
OLE1.CreateEmbed "", "Excel.Sheet.8"
OLE1.DoVerb vbOLEUIActivate
OLE1.SizeMode = 1
а дальше стопор:
strFileName = "111.xls"
OLE1.object.SourceDoc = strFileName - и сообщение - ошибка 438 -
Объект не поддерживает метод или свойство.
Пробовал
OLE1.CreateEmbed strFileName , "Excel.Sheet.8"
Результат тот же!
Помогите, кто может.
Спасибо.

[dr.MIG]

По поводу OLE1.CreateEmbed strFileName, "Excel.Sheet.8" -- всё должно работать. Проверь, что у тебя в strFileName. Там должен быть ПОЛНЫЙ путь к файлу.

По поводу отслеживания изменений. Подключи Microsoft Excel xx Object Library. Далее попробуй так:

Код: Выделить всё


Private ea As New Excel.Application
Private WithEvents ws As Excel.Worksheet

Private Sub Form_Load()
    Dim strFileName As String
    strFileName = "C:/1.xls"
    OLE1.CreateEmbed strFileName, "Excel.Sheet.8"
    Set ea = OLE1.object.Application
    Set ws = ea.Workbooks(1).Worksheets(1)
End Sub

Private Sub ws_SelectionChange(ByVal Target As Excel.Range)
    MsgBox Target.Address
End Sub


[shurik58]

Спасибо!
С событиями понял!
Но путь у меня полный, через CommonDialog.
Пробовал и с коротким и с полным путем.
OLE1.CreateLink strFileName работает!
И без указания имени файла OLE1.CreateEmbed "", "Excel.Sheet.8" работает, но как туда засунуть
требуемый файл?
Библиотека подключена Excel 11(Of 2003).
Может здесь собака?
Или VB требует апгрейта?

[dr.MIG]

У меня тоже Excel 11. Всё работает. Если не разберешься, то как приду домой выложу пример.

[shurik58]

Кажется почти разобрался!?
Все работает, если в пути к файлу нет
русских букв?
Например: D:/1.xls - работает
D:/fff/1.xls - работает, а
D:/новая папка/1.xls - нет!
Что делать, как заставить пользователя т. Машу
перемещать файл в корень?
Или в программе самому копировать файл в корень,
загружать, а после отработки удалять?
Исходные данные могут храниться и на удаленных
машинах!
Еше раз спасибо.