| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание приложения Excel [D5, D6, D7, D2005]

dima_kds ©   (2006-04-05 15:36:00) 

Здравствуйте...
Написал все как по книге:
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.

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

---

Nick_serov   (2006-04-06 16:32:00) [1]

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

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;

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

---

dima_kds   (2006-04-06 16:20:00) [2]

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

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

---

dima_kds   (2006-04-05 16:48:00) [3]

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

---

sniknik   (2006-04-05 16:43:00) [4]

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

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

---

dima_kds   (2006-04-05 16:16:00) [5]

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

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

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

О как..

---

sniknik   (2006-04-05 16:08:00) [6]

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

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

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

---

Наверх