OLE, VB, Excel

[UserVB]

Имеется форма, на неё вставляю OLE-объект (типа excel-a); сделал кнопочку, при нажатии на которую этот OLE через SaveToFile записывается в файл

Open FileName For Binary as #1
OLE1.SaveToFile 1
Close 1

И вопрос! Почему тот файл, я не согу открыть через MsExcel? Ругается что не поддерживаемый формат.
Средства: w2k, MsOffice 2000, VB 6

[GSerg]

SaveToFile - это оболочка для... не помню точное название... но оно сохраняет в файл именно сам объект OLE, а не файл Excel. То есть открыть это сможет только объект OLE же.
Excel у него внутри, сначала доберись до него (если не ошибаюсь, OLE1.Object), а потом его методы вызывай.

[tyomitch]

SaveToFile - это оболочка для... не помню точное название...

Я подозреваю, для IPersistStorage::Save?

[GSerg]

Да! Именно для него

[UserVB]

Чего то я не разберусь с этой системой. Сделал я форму, положил на неё OLE1, обозначил как Лист Excel. Добрался до её полей

Set obj = OLE1.object
Set App = obj.Application
Set Wb = App.Workbooks
Set ShWb = Wb.Item(1).Sheets(1)
ShWb.Cells(i, j) = k

Но когда пытаюсь сотворить obj.SaveAs("FileName") - нифига. Лист - пустой.
Поэтому извратился и сделал так:

Set obj = OLE1.object
Set App = obj.Application
Set Wb = App.Workbooks.Add
Set Shobj = obj.ActiveSheet
Set ShWb = Wb.sheets(1)
Shobj.Cells(i, j) = k
ShWb.Cells(i, j) = k
Wb.SaveAs ("FileName")

Т.е. заполняю два листа, а потом один из них сохраняю. Получается, что объект OLE, лежащий на форме, используется только как дисплей.
Где я чего не понял? Ковырялся в инете в поисках ссылки или примеров - не получилось.
Объясните, пожалуйста! Хочется сделать красиво и разумно. А то уж для времянки просто форму затолкал в екселовскую книгу.

[tyomitch]

Но когда пытаюсь сотворить obj.SaveAs("FileName") - нифига. Лист - пустой.

Что-то у тебя не так. У меня этот код работает правильно, только что проверил.

[UserVB]

Короче, колдыбаясь с этим OLE понял, что OLE - очередная фигня от микрософта, поэтому сделал окошко для получения даных через ListView. Получилось просто замечательно, а данные (все-таки через OLE, т.к. необходимо создавать Excel-лист) запихиваю в книгу.