| vasili |
| Отправлено: 24.11.2005, 14:58 |
|
Не зарегистрирован
|
не могу открыть шаблон вот так
AnsiString sFile = GetCurrentDir()+"\\Forma.xls";
try { app=CreateOleObject("Excel.Application");
app.OlePropertySet ("Visible",true);
vb = app.OlePropertyGet ("Workbooks").OlePropertyGet("Open",sFile.c_str());
sh = vb.OlePropertyGet ("Worksheets", 1);
sh.OleProcedure ("Activate");
}
а так все в норме
try { app=CreateOleObject("Excel.Application");
app.OlePropertySet ("Visible",true);
vb = app.OlePropertyGet ("Workbooks").OlePropertyGet("Open","D:\\Forma.xls");
sh = vb.OlePropertyGet ("Worksheets", 1);
sh.OleProcedure ("Activate");
}
поправьте пожалуйста 1вариант
CBuilder6 Office2000Ru |
|
| Guest |
| Отправлено: 24.11.2005, 17:29 |
|
Не зарегистрирован
|
А так
vb = app.OlePropertyGet ("Workbooks").OleFunction("Open", WideString(sFile));
?
Вроде должно работать. |
|
| vasili |
| Отправлено: 25.11.2005, 18:11 |
|
Не зарегистрирован
|
Вот так заработало
try { app=CreateOleObject("Excel.Application");
//app.OlePropertySet ("Visible",true);
app.OlePropertyGet("WorkBooks").OleProcedure("Open",sFile.c_str(),0,false,1);
sh = app.OlePropertyGet ("Worksheets", 1);
sh.OleProcedure ("Activate");
|
|
|
