| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Открытие шаблона Microsoft Excel [D7, XP]
kingsoft © (2007-01-16 04:33:00)Доброго времени суток уважаемые мастера. Помогите пожалуйста с небольшой проблемой: Как сделать так, чтобы по нажатию на кнопку (Button), открывался уже готовый шаблон Microsoft Excel, из того или иного каталога жёсткого диска.
pavel_guzhanov (2007-01-16 14:54:00) [1]компонентов, кроме твоей кнопки, никаких.
uses comObj, Excel_TLB;
procedure TForm1.BInExcelClick(Sender: TObject);
var XLApp:Variant;
begin
XLApp:=CreateOleObject('Excel.Application');
XLApp.WorkBooks.Open('c:\Blank.xls');
XLApp.Visible:=true;
end;
Если у тебя нет файла Excel_TLB.pas, то его нужно импортировать. Делается это так: Projects->Import Type Library, выбираешь в списке "Microsoft Excel 11.0 Object Library (Version 1.5)" и нажимаешь кнопку Create Unit. 11.0 и 1.5 - соответствуют MSExcel 2003, у других версий будут отличаться. Ну и, конечно, в корне диска С должен быть файл Blank.xls, это в том случае, если ты не хочешь ничего менять в приведенном примере.
kingsoft (2007-01-16 14:35:00) [2]
> pavel_guzhanov © (16.01.07 09:41) [2]
> XLApp:=CreateOleObject('Excel.Application'); XLApp.WorkBooks.
> Open('c:\Blank.xls');
Что то я не понял. Если можно то напишите пожалуйста полный код, и какие кампоненты нужно додавить на форму для работы, этого кода?
pavel_guzhanov (2007-01-16 09:41:00) [3]
XLApp:=CreateOleObject('Excel.Application');
XLApp.WorkBooks.Open('c:\Blank.xls');
КиТаЯц (2007-01-16 08:11:00) [4]ShellExecute ?
| |
