Архивировано

Эта тема находится в архиве и закрыта для публикации сообщений.

KuHoMaH

документ Excel в Delphi7

Рекомендованные сообщения

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls, StdCtrls, ActnColorMaps, CustomizeDlg, ActnMan, ComObj;

type
 TForm1 = class(TForm)
  GroupBox1: TGroupBox;
   Label1: TLabel;
   Button1: TButton;
   StandardColorMap1: TStandardColorMap;
   XPColorMap1: TXPColorMap;
   CustomizeDlg1: TCustomizeDlg;
   TwilightColorMap1: TTwilightColorMap;
   ColorBox1: TColorBox;
   GroupBox2: TGroupBox;
   Label2: TLabel;
   Button2: TButton;
  Button3: TButton;
   Label4: TLabel;
   Label3: TLabel;
   Label5: TLabel;
   GroupBox3: TGroupBox;
   Label6: TLabel;
   ScrollBar1: TScrollBar;
   Label7: TLabel;
   Label8: TLabel;
   Label9: TLabel;
   Label10: TLabel;
   Label11: TLabel;
   Label12: TLabel;
   Label13: TLabel;
   Label14: TLabel;
   Label15: TLabel;
   Label16: TLabel;
   Label17: TLabel;
   OpenDialog1: TOpenDialog;
   OpenDialog2: TOpenDialog;

   procedure Button3Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
var Excel2: Variant;

implementation


{$R *.dfm}


procedure TForm1.Button3Click(Sender: TObject);
begin

Excel2.Workbooks.Open['C:\Temp\MyBook.xls'];

end;

end.

 

 

 

EVariantInvalidOpError

 

ругается на эту строчку

 

Excel2.Workbooks.Open['C:\Temp\MyBook.xls'];

 

почему ?

у меня стоит офис 2010

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

наверно потому что надо не много подумать и использовать модуль ComObj?

Excel2 := CreateOleObject('Excel.Application');
Excel2.Workbooks.Open['C:\Temp\MyBook.xls'];
Excel2.Visible := True;

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

наверно потому что надо не много подумать и использовать модуль ComObj?

Excel2 := CreateOleObject('Excel.Application');
Excel2.Workbooks.Open['C:\Temp\MyBook.xls'];
Excel2.Visible := True;

 

да спасибо! причина была именно тут

Excel2 := CreateOleObject('Excel.Application'); 

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах