помогите связаться с Excelем из BC++B 5.0
У меня BC++B 5.0
Мне нужно всего лишь открыть Excel, создать новый документ и записать чего-то в ячейку (i,j).
с Wordом дела обстоят намного легче, там делается так
Variant V;
V = CreateOleObject("Word.Basic");
V.Exec(Procedure("AppShow"));
V.Exec(Procedure("FileNew") << "Normal");
А вот как сделать тоже самое с Екселем?
Можно сотворить олеобъект V= CreateOleObject("Excel.Application") таким образом, но к нему оно не хочет обращаться через .Exec
Соббсно вопросы
1. Как обратиться к екселю из Билдера 5.0
2. Как использовать компоненты из палитры Servers TExcelOLEObject, TExcelGlobal, TExcelApplication для тех же целей? или где можно прочитать хелп по этим компонентам, или еще лучше - какой-нибудь пример
[ Это Сообщение было отредактировано Helg в 2001-11-02 1537 ]
Мне нужно всего лишь открыть Excel, создать новый документ и записать чего-то в ячейку (i,j).
с Wordом дела обстоят намного легче, там делается так
Variant V;
V = CreateOleObject("Word.Basic");
V.Exec(Procedure("AppShow"));
V.Exec(Procedure("FileNew") << "Normal");
А вот как сделать тоже самое с Екселем?
Можно сотворить олеобъект V= CreateOleObject("Excel.Application") таким образом, но к нему оно не хочет обращаться через .Exec
Соббсно вопросы
1. Как обратиться к екселю из Билдера 5.0
2. Как использовать компоненты из палитры Servers TExcelOLEObject, TExcelGlobal, TExcelApplication для тех же целей? или где можно прочитать хелп по этим компонентам, или еще лучше - какой-нибудь пример
[ Это Сообщение было отредактировано Helg в 2001-11-02 1537 ]
Все, спасибо, разобрался...
void TfrmMain::CreateExcel()
{
try
{
excel_app = Variant::CreateObject("Excel.Application");
}
catch(...)
{
excel_app = Variant::GetActiveObject("Excel.Application");
}
MessageDlg("Работа приложения закончена",
mtInformation, TMsgDlgButtons() << mbOK, 0);
excel_app.OlePropertySet("Visible",true);
workbook = excel_app.OlePropertyGet("Workbooks");
workbook.OleFunction("Add");
}
{
try
{
excel_app = Variant::CreateObject("Excel.Application");
}
catch(...)
{
excel_app = Variant::GetActiveObject("Excel.Application");
}
MessageDlg("Работа приложения закончена",
mtInformation, TMsgDlgButtons() << mbOK, 0);
excel_app.OlePropertySet("Visible",true);
workbook = excel_app.OlePropertyGet("Workbooks");
workbook.OleFunction("Add");
}
MessageDlg там кстати не нужен.
Экпериментировал, забыл убрать 0
Экпериментировал, забыл убрать 0