ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Запуск Файла .XLS
24 сообщений из 24, страница 1 из 1
Запуск Файла .XLS
    #32335561
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
как сделать так, что при нажатии кнопки в программе открывался файл .XLS????
...
Рейтинг: 0 / 0
26.11.2003, 15:12
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335567
Могун
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Могун
Участник
Почитайте про CreateProcess
...
Рейтинг: 0 / 0
26.11.2003, 15:16
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335572
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
А можно поточнее, я смотрел уже ничё не понял =(
...
Рейтинг: 0 / 0
26.11.2003, 15:19
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335576
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
use Excel97;
...

var
  XL: Variant;
begin
  // Вызов EXCEL
    try
      XL := CreateOleObject('Excel.Application');
      XL.WorkBooks.Add(GetCurrentDir+'\Книга1.xls');
      XL.Visible := True;
    except
      raise Exception.Create('Ощибка запуска Excel');
    end;



Best regards,
Dnico.
...
Рейтинг: 0 / 0
26.11.2003, 15:24
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335577
Papka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Papka
Участник
http://www.afalinasoft.com/rus/tips/
...
Рейтинг: 0 / 0
26.11.2003, 15:24
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335580
Могун
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Могун
Участник
Например так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
function StartProcess(FileName:string):TProcessInformation;
var si:TStartupInfo;
    pa,ta:TSecurityAttributes;
    pi:TProcessInformation;
begin
  FillChar(si,SizeOf(TStartupInfo), 0 );
  si.cb:=SizeOf(TStartupInfo);
  with pa do begin
    nLength:=SizeOf(TSecurityAttributes);
    lpSecurityDescriptor:=nil;
    bInheritHandle:=true;
  end;
  with ta do begin
    nLength:=SizeOf(TSecurityAttributes);
    lpSecurityDescriptor:=nil;
    bInheritHandle:=true;
  end;
  if  CreateProcess(nil,PChar(FileName),
                    @pa, @ta, true, 0 , nil, nil, si, pi)
  then Result:=pi;
end;


а потом так:

Код: plaintext
StartProcess(С:\Program Files\Microsoft Office\Office\Excel.exe ' + edtFileName.Text);
...
Рейтинг: 0 / 0
26.11.2003, 15:25
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335587
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
Undeclared identifier: 'CreateOleObject' - ???????????????????????? не пойму
просветите плиаз
...
Рейтинг: 0 / 0
26.11.2003, 15:28
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335598
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
use Excel97, ComObj;
Забыл ...
...
Рейтинг: 0 / 0
26.11.2003, 15:35
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335618
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
а что попроще никак нельзя, а то что так запутанно=(
...
Рейтинг: 0 / 0
26.11.2003, 15:40
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335626
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
Где запутано?

Best regards,
Dnico.
...
Рейтинг: 0 / 0
26.11.2003, 15:42
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335629
Фотография Tung
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tung
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
uses comobj;
....
procedure TForm8.ToolButton4Click(Sender: TObject);
var
I,x,y:integer;
begin
v:=createoleobject('excel.application');
v.visible:=true;
AdoStoredProc2.Last;
wbk:=v.workbooks.open('c:\economics\reestr.xls');
end;
...
Рейтинг: 0 / 0
26.11.2003, 15:43
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335634
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
обьясните мне ДУРАЧКУ что куда и почем пажалуйста

unit cdrom;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Button1: TButton;
procedure BitBtn1Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

IU: IUnknown;

implementation


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Form1.close
end;



procedure TForm1.Button1Click(Sender: TObject);
begin

end;

end.
...
Рейтинг: 0 / 0
26.11.2003, 15:44
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335637
Фотография Tung
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tung
Участник
сори немного не так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
  public
  v:variant;
  wbk,ws:olevariant;
  end;
implementation
uses comobj;
....
procedure TForm8.ToolButton4Click(Sender: TObject);
begin
v:=createoleobject('excel.application');
v.visible:=true;
wbk:=v.workbooks.open('c:\economics\reestr.xls');
end;
...
Рейтинг: 0 / 0
26.11.2003, 15:45
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335642
Фотография Tung
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tung
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
unit cdrom; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons; 

type 
TForm1 = class(TForm) 
Image1: TImage; 
Label1: TLabel; 
Button1: TButton; 
procedure BitBtn1Click(Sender: TObject); 
procedure Label1Click(Sender: TObject); 
procedure Button1Click(Sender: TObject); 

private 
{ Private declarations } 
public 
  v:variant;
  wbk,ws:olevariant;
{ Public declarations } 
end; 

var 
Form1: TForm1; 

IU: IUnknown; 

implementation 
uses comobj;

procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
close 
end; 

procedure TForm1.Label1Click(Sender: TObject); 
begin 
Form1.close 
end; 



procedure TForm1.Button1Click(Sender: TObject); 
begin 
v:=createoleobject('excel.application');
v.visible:=true;
wbk:=v.workbooks.open('c:\economics\reestr.xls');
end; 

end.
...
Рейтинг: 0 / 0
26.11.2003, 15:48
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335646
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
unit cdrom;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, ComObj;

type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Button1: TButton;
procedure BitBtn1Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

IU: IUnknown;

implementation


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Form1.close
end;



procedure TForm1.Button1Click(Sender: TObject);
var
XL: Variant;
begin
// Вызов EXCEL
try
XL := CreateOleObject('Excel.Application');
XL.WorkBooks.Add(GetCurrentDir+'\Книга1.xls');
XL.Visible := True;
except
raise Exception.Create('Ощибка запуска Excel');
end;
end;

end.
Best regards,
Dnico.
...
Рейтинг: 0 / 0
26.11.2003, 15:48
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335648
Фотография Tung
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tung
Участник
убери хоетл тебе жирным выделить, где тебе вставил
...
Рейтинг: 0 / 0
26.11.2003, 15:49
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335650
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
Блин всего-то. прикольно, а если я уберу путь оставлю например только имя и положу в одну папку с программой онная работать будет???????
...
Рейтинг: 0 / 0
26.11.2003, 15:49
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335655
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
Не будет работать - вот так будет GetCurrentDir+'\Книга1.xls'

Best regards,
Dnico.
...
Рейтинг: 0 / 0
26.11.2003, 15:51
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335666
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
А что бы обычные EXE запускать что надо ??????
...
Рейтинг: 0 / 0
26.11.2003, 15:56
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335670
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
Про вызов Exe писал (выше) Могун . Вот так и можно!

Best regards,
Dnico.
...
Рейтинг: 0 / 0
26.11.2003, 15:59
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335682
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
ну а что путь не указывать ????
...
Рейтинг: 0 / 0
26.11.2003, 16:06
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335691
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
вернее что бы не указывать
...
Рейтинг: 0 / 0
26.11.2003, 16:10
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335699
Могун
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Могун
Участник
А в реестре найти путь можно(да и нужно)
...
Рейтинг: 0 / 0
26.11.2003, 16:12
| Ответить | Цитировать | Написать  
Запуск Файла .XLS
    #32335959
Андрей Бабенко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Бабенко
Участник
uses .... shellapi;
..........
ShellExecute(0, 'open', PChar(XlsFileName), '', '', SW_SHOWNORMAL);
..........
...
Рейтинг: 0 / 0
26.11.2003, 18:47
| Ответить | Цитировать | Написать  
24 сообщений из 24, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Запуск Файла .XLS
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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