OLE

[Maks1978]

Помогите, пожалуйста, перевести выражение из Delphi на C++:
Delphi:
...
var E:Variant;
...
begin
E:=CreateOleObject('Excel.Applicati on');
E.Visible:=true;
if Form1.OpenDialog1.Execute then
E.WorkBooks.Open(Form1.OpenDialog1. FileName,ReadOnly=FALSE);
end;
...
C++:
...
Variant E;
...
{
E=CreateOleObject("Excel.Applicatio n");
E.OlePropertySet("Visible",true);
if (!Form1->OpenDialog1->Execute)
{ ? }
}
...
Как выглядит на С++ выделенное красным выражение?

[Maks1978]

Полная спецификация вызова метода Open имеет следующий вид:

Open(FileName, UpdateLink, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMRU);

Обязательным является первый аргумент.Но мне нужен был ещё ReadOnly=false, потому что при игнорировании его у меня Excel открывал файл в режиме только для чтения автоматически. Между FileName и ReadOnly стоит UpdateLink - на С++ мне нужно было его проигнорировать, на Delphi это делается очень просто.
На одном немецком сайте наткнулся на одно выражение:

Variant vFileName, vWDocuments, vWDocument, vReadOnly, vLink, vFormat, vReadPass;
AnsiString strOpenFile, strPasswort;
vFileName = Variant(strOpenFile);
// vFileName = "c:\\test2.xls";
vLink = Unassigned;
vReadOnly = false;
vFormat = Unassigned;
// vReadPass = strPasswort;
vReadPass = "test";
wbSet.OleFunction("Open", vFileName, vLink, vReadOnly, vFormat, vReadPass);

Попробовал написать у себя такое выражение:

Variant WorkBooks=E.OlePropertyGet("WorkBoo ks");
WorkBooks.OleFunction("Open",OpenDi alog1->FileName.c_str(),Unassigned,false) ;

Всё заработало как в Delphi.