Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.02.2010, 23:55   #1
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 912
Печаль Delphi 7 + MS Office Excel 2007

Доброго времени суток!
Возникла вто необходимость поработать с Excel 2007 в Delphi 7, а как переделать этот код по 2007 офис не знаю. Подскажите пожалуйста как сделать правильно. + мои знания в области программирования ничтожны...(
P.S. С этим кодом Excel 2007 только запускается с ошибкой о том что база имеет не верное имя... (
Код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Excel2000;

type
TForm1 = class(TForm)
Edit1: TEdit;
ExcelApplication1: TExcelApplication;
ExcelOLEObject1: TExcelOLEObject;
ExcelWorkbook1: TExcelWorkbook;
ExcelWorksheet1: TExcelWorksheet;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin

Form1.ExcelApplication1.ConnectKind := ckRunningOrNew;
FOrm1.ExcelApplication1.Connect;
Form1.ExcelApplication1.Visible[1] := True; 
FOrm1.ExcelApplication1.Workbooks.Add (EmptyParam,1);
Form1.ExcelWorkbook1.ConnectTo (Form1.ExcelApplication1.ActiveWorkbook 
Form1.ExcelWorksheet1.ConnectTo (Form1.ExcelWorkbook1.Worksheets [1] as _WorkSheet);

//выгрузка
Form1.ExcelWorksheet1.Cells.Item [1,1]:='ПРивет';
Form1.ExcelWorksheet1.Cells.Item [2,5]:='Ячейка E2';
FOrm1.ExcelWorksheet1.Cells.Item [2,6]:= Form1.Edit1.Text;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

Form1.ExcelWorksheet1.Disconnect;
Form1.ExcelWorkbook1.Close (0);
Form1.ExcelApplication1.UserControl := true;
Form1.Close;
end;

end.
kta87 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Открыть файлы Office 2007 в Office 2003 vryskov Microsoft Office Word 13 28.12.2012 00:37
MS Office Excel 2007 - проблема с установкой пароля gubby Microsoft Office Excel 2 22.01.2010 16:52
ВИЗУАЛЬНОЕ ПРОГРАММИРОВАНИЕ В MS OFFICE EXCEL 2007. olly* Помощь студентам 5 24.05.2009 19:31
MS Office 2007 Excel сумма прописью VinipuX Microsoft Office Excel 9 25.01.2008 17:52