ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / C++ [игнор отключен] [закрыт для гостей] / TExcelApplication BCB6 создать файл.
5 сообщений из 5, страница 1 из 1
TExcelApplication BCB6 создать файл.
    #34074664
man_555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
man_555
Участник
Подскажите плз на примере как с нуля создать экселовский файл в BCB6

Вот такой код

Код: plaintext
1.
2.
3.
4.
5.
     unsigned long LCID = GetUserDefaultLCID();
     ExcelApp->Connect();

     ExcelApp->set_Visible(LCID, true);
     ExcelApp->Workbooks->Add(EmptyParam, LCID);

у меня вылетает на последней строчке с сообщением "Old Format or invalid type library". Если просто читать/записывать в/из готового (созданного ручками то бишь) файла, то всё нормально.
...
Рейтинг: 0 / 0
23.10.2006, 16:40
| Ответить | Цитировать | Написать  
TExcelApplication BCB6 создать файл.
    #34075023
Фотография sashka304
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashka304
Участник
может так:
int __fastcall
TForm1::iStartExcel(AnsiString vasNameFile)
{
//Создаем объект Excel.Application и загружаем файл бланка
char vchrgBuf0[100];
wsprintf(vchrgBuf0,
"Ошибка при открытии сервера Excel\n для файла %s",
vasNameFile.c_str());
vasNameFile=vasNameFile.Trim();
try
{
//Создаем объект Excel.Application
vVarApp=CreateOleObject("Excel.Application");
vVarApp.OlePropertySet("Visible",true);
vVarBooks=vVarApp.OlePropertyGet("Workbooks");
vVarBooks.OleProcedure("Open",vasNameFile.c_str());
vVarBook=vVarBooks.OlePropertyGet("Item",1);
vVarSheets=vVarBook.OlePropertyGet("Worksheets");
//На первый лист
vVarSheet=vVarBook.OlePropertyGet("Worksheets",1);
vVarSheet.OleProcedure("Activate");
}
catch(...)
{
MessageBox(0,vchrgBuf0,"Ошибка", MB_OK);
vVarApp.OlePropertySet("DisplayAlerts",false);
vVarApp.OleProcedure("Quit");
return 1;
}
return 0;
}
...
Рейтинг: 0 / 0
23.10.2006, 18:22
| Ответить | Цитировать | Написать  
TExcelApplication BCB6 создать файл.
    #34075030
Фотография sashka304
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashka304
Участник
а вообще:
...
Рейтинг: 0 / 0
23.10.2006, 18:24
| Ответить | Цитировать | Написать  
TExcelApplication BCB6 создать файл.
    #34075035
Фотография sashka304
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sashka304
Участник
блин, сорри нажал нечаяно
http://sql.ru/forum/actualtopics.aspx?search=Excel&bid=21
...
Рейтинг: 0 / 0
23.10.2006, 18:27
| Ответить | Цитировать | Написать  
TExcelApplication BCB6 создать файл.
    #34075811
man_555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
man_555
Участник
Похоже, что придётся именно так, спасибо. Не знаю, правильное ли у меня подозрение, но не wrapper ли TExcelApplication и иже с этим на родные Windows функции для COM?
...
Рейтинг: 0 / 0
24.10.2006, 09:18
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / C++ [игнор отключен] [закрыт для гостей] / TExcelApplication BCB6 создать файл.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=57&fpage=328&tid=2030214]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 286ms
total:  440ms
созд. / загр.: 440ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]