Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.04;
Скачать: CL | DM;

Вниз

Открытие шаблона Microsoft Excel   Найти похожие ветки 

 
kingsoft ©   (2007-01-16 04:33) [0]

Доброго времени суток уважаемые мастера. Помогите пожалуйста с небольшой проблемой: Как сделать так, чтобы по нажатию на кнопку (Button), открывался уже готовый шаблон Microsoft Excel, из того или иного каталога жёсткого диска.


 
КиТаЯц ©   (2007-01-16 08:11) [1]

ShellExecute ?


 
pavel_guzhanov ©   (2007-01-16 09:41) [2]

XLApp:=CreateOleObject("Excel.Application");
 XLApp.WorkBooks.Open("c:\Blank.xls");


 
kingsoft ©   (2007-01-16 14:35) [3]


> pavel_guzhanov ©   (16.01.07 09:41) [2]
> XLApp:=CreateOleObject("Excel.Application");  XLApp.WorkBooks.
> Open("c:\Blank.xls");

Что то я не понял. Если можно то напишите пожалуйста полный код, и какие кампоненты нужно додавить на форму для работы, этого кода?


 
pavel_guzhanov ©   (2007-01-16 14:54) [4]

компонентов, кроме твоей кнопки, никаких.

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, это в том случае, если ты не хочешь ничего менять в приведенном примере.



Страницы: 1 вся ветка

Текущий архив: 2007.02.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
2-1168812334
userrrrr
2007-01-15 01:05
2007.02.04
трафик


15-1168798383
AgSmit
2007-01-14 21:13
2007.02.04
Зависает сервер...


3-1163492559
Bless
2006-11-14 11:22
2007.02.04
Почему не возникает ошибка?


15-1168920267
Slider007
2007-01-16 07:04
2007.02.04
С днем рождения ! 16 января


6-1157298968
Frimen
2006-09-03 19:56
2007.02.04
Файл IWInitStandAlone.pas для IntraWeb