Скачать: CL | DM;

Создание приложения 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;

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c