ExcelApp

[Abricosko]

ExcelApp.WorkBooks.Add(xlWBatWorkSh eet);
[DCC Error] Unit5.pas(112): E2003 Undeclared identifier: 'ExcelApp'
[DCC Error] Unit1.pas(113): E2066 Missing operator or semicolon

в uses у меня вот это
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls,INIFiles, ExtCtrls,shellapi,DB,ADODB,comobj,E xcelXP,clipbrd, StdCtrls,
Grids, DBGrids;
подскажите как исправить,а то вся работа стоит(

[Roof]

исходники модулей сюда выкладывай и заключи в тег кода - кнопочка #

[Abricosko]

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls,INIFiles, ExtCtrls,shellapi,DB,ADODB,comobj,ExcelXP,clipbrd, StdCtrls,
  Grids, DBGrids;

 procedure copygrdtoclb(dbg :tdbgrid);

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N_Patients: TMenuItem;
    N_Workers: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    Help1: TMenuItem;
    Help2: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    procedure Timer1Timer(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N_PatientsClick(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N_WorkersClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}
 procedure copygrdtoclb(dbg: tdbgrid);
var
bm: tbookmark;
pch, pch1: pchar;
s, s2: string;
i, j: integer;
    ExcelApp,XlSht:variant;
      Til: string;

[Roof]

E xcelXP - тут в модулях надо без пробела, еще, возможно, нужен в uses OleServer

и в var добавь
ExcelApp: OleVariant;
Жду ответа.

[Abricosko]

выложила первую часть,(не помогло)оно не узнает его-WorkSheets[1]

[Roof]

В общем, так.

uses
comobj, activex;

и

var
ExcelApp: variant;

А код зачем урезала?

если не поможет заархивируй проект полностью и выкладывай Сюда. Надеюсь дополнительных компонентов там нету.

[Abricosko]

Сообщение от Roof

В общем, так.

uses
comobj, activex;

и

var
ExcelApp: variant;

А код зачем урезала?

если не поможет заархивируй проект полностью и выкладывай Сюда. Надеюсь дополнительных компонентов там нету.

не вмещался,какая-то фанатичная экономия места))

[Abricosko]

я заархивирую ток маин форму,да?

[Roof]

Лучше весь проект

[Abricosko]

спасибо за тонкий намек,вы очень корректны)))
It'S WORKING!!!!