Создание приложения Excel

← →
dima_kds (2006-04-05 15:36) [0]

Здравствуйте...
Написал все как по книге:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
CheckBox1: TCheckBox;
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
E : variant;
Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
E := CreateOleObject("Excel.Application");
E.Visible:=true;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
E.Visible := CheckBox1.Checked;
end;

end.

Но приложение не открывается...Подскажите пожайлуста..
Заранее благодарен.

← →
sniknik © (2006-04-05 16:08) [1]

молчит? упорствует и не окрывается... сволочь. а по почкам пробовал? ;о))

должно открываться, или дать ошибку почему не может.
и еще попробуй в нем книгу создать, тогда, не пустое, просто так не закроется. (а то может оно открывает/закрывает а ты не замечаеш)

например, книга с одним листом
E:= CreateOleObject("Excel.Application");
E.SheetsInNewWorkbook:= 1;
E.WorkBooks.Add;
E.Visible:=true;

← →
dima_kds (2006-04-05 16:16) [2]

да..тут не по почкам нужно, а по другому месту.....

попробовал добавить книгу, опять молчит..
Есть единственное сообщение, синим по белому, несколько раз:

"Module Load: UxTheme.dll. No Debug Info. Base Address: $5B260000."
И так для нескольких строк кода.

О как..

← →
sniknik © (2006-04-05 16:43) [3]

> "Module Load: UxTheme.dll. No Debug Info. Base Address: $5B260000."
ну это у тебя с виндой чтото... или мсоффисом...

попробуй винду обновить, а офис даже может полностью переставить..., а для начала на другом компе запусти программку. (приведенный код ну просто обязан работать ;о))

← →
dima_kds (2006-04-05 16:48) [4]

Я тоже такого же мнения...
Щас буду все обновлять...
Спасибо тебе за хлопаты.. :)

← →
dima_kds (2006-04-06 16:20) [5]

Все обновил.....повсякому пробовал...ничего не получается..
Разные версии Delphi пробовал - ничего.
Пишет мне в Event Log эти дурацкие сообщения и не обращает на меня никакого внимания.

Люди помогите. Может для вывода на экран приложения Excel еще что-нибудь надо прописать. Или какие патчи нужны.

← →
Nick_serov (2006-04-06 16:32) [6]

Выкладываю рабочую версию:

procedure TForm1.xpButton1Click(Sender: TObject); begin if OD1.Execute then // .............................. od1 - open dialog begin n := OD1.FileName; ExAp1.Workbooks.Add(n,0); ExW1.ConnectTo(ExAp1.ActiveWorkbook); Progress.Max := strtoint(edit1.Text); //ну это ProgressBar Progress.Step := 1; grid1.RowCount := strtoint(edit1.Text); for i := 1 to strtoint(edit1.Text) do begin Progress.Position := i; for j := 1 to 9 do begin grid1.Cells[j,i] := ExAp1.Cells.Item[i,j].Value; // подчипляюся к grid"у end; end; ExW1.Close; end; end;

Пробуй так...

Создание приложения Excel Найти похожие ветки