Exel как OLE объект

[bvv70]

Помогите вот в каком вопросе: в RichTextBox как OLE объект загружаем документ Exel. Необходимо программно с ним работать, но не получается. В примере - попытка перейти на другой лист.
Option Explicit
Private Sub Command1_Click()
'загружаем шаблон
RichTextBox1.OLEObjects.Add , , "C:\dekl.xls"
End Sub
Private Sub Command2_Click()
'как перейти на новый лист???
Sheets("00003").Select
End Sub

[burik]

А при попытке перейти на новый лист у тебя появляется ошибка?
Какая?

[bvv70]

При первом нажатии на Command2 ничего не происходит за исключением выделения объекта. При втором ошибка.
При попытке перейти на новый лист:

Run-time error '1004':
Method 'Sheets' of object '_Global' failed

При попытке произвести замену:

Run-time error '1004':
Method 'Cells' of object '_Global' failed

[burik]

Попробуй указать верхний объект свойства sheets (объект.Sheets("00003").Select).

[bvv70]

Нижеприведенный код прекрасно выполняет нужное запуская Ексель.
А вот сделать подобное с OLE не знаю как.

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

'подключаем Microsoft Excel 10.0 Object Library
Option Explicit
Dim Ex As New Excel.Application
Dim exl

Private Sub Command1_Click()
'Показать Ексель
Ex.Visible = True
Set exl = Ex.Workbooks.Add("C:\dekl.xls")
Sheets("00003").Select
End Sub


[GSerg]

Открыть его сначала, разумется. В режим диалога с пользователем.

[bvv70]

А как сделать это? Кодом подскажите, если не трудно.