Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Запуск Файла .XLS / 24 сообщений из 24, страница 1 из 1
26.11.2003, 15:12
    #32335561
Dreew
Dreew
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
как сделать так, что при нажатии кнопки в программе открывался файл .XLS????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 15:16
    #32335567
Могун
Могун
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
Почитайте про CreateProcess
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 15:19
    #32335572
Dreew
Dreew
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
А можно поточнее, я смотрел уже ничё не понял =(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 15:24
    #32335576
Dnico
Dnico
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
Код: 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
    #32335577
Papka
Papka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
http://www.afalinasoft.com/rus/tips/
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 15:25
    #32335580
Могун
Могун
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
Например так:

Код: 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:28
    #32335587
Dreew
Dreew
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
Undeclared identifier: 'CreateOleObject' - ???????????????????????? не пойму
просветите плиаз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 15:35
    #32335598
Dnico
Dnico
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
use Excel97, ComObj;
Забыл ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 15:40
    #32335618
Dreew
Dreew
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
а что попроще никак нельзя, а то что так запутанно=(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 15:42
    #32335626
Dnico
Dnico
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
Где запутано?

Best regards,
Dnico.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 15:43
    #32335629
Tung
Tung
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
Код: 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:44
    #32335634
Dreew
Dreew
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запуск Файла .XLS
обьясните мне ДУРАЧКУ что куда и почем пажалуйста

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

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

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


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