Господа!
Подскажите пожалуйста, все что можно прочитать я перечитал и рад что у всех работает.
Но я потратил сутки но не смог добится номера последней заполненной строки на листе Excel.
Перепробовал все, но и в delphi7 и delphi 2006 (studio) одна и таже проблемма :
компилятор наотрез не понимает xlCellTypeLastCell.
И там и там ошибка Undeclired Identifire 'xlCellTypeLastCell'. И все. Процесс умирает.
Я не понимаю в чем дело, ЧТО я не так пишу ???
Вот мой код , в таком виде он не работает:
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
Button3: TButton;
Memo1: TMemo;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
ComObj;
var
Excel,Workbook : Variant;
WorkSheet: OleVariant;
{$R *.dfm}
{Активация сервера}
procedure TForm1.Button1Click(Sender: TObject);
var BookName1: string;
var j: integer;
begin
// Выбираем файл базы.
if OpenDialog1.Execute then
begin
BookName1:= OpenDialog1.FileName; // имя книги с полным путем
//Запускаем Excel
try
//Ищем запущеный экземпляр Excel, если он не найден, вызывается исключение
Excel := GetActiveOleObject('Excel.Application');
//Проверяем что открыта нужная книга
for j:=1 to Excel.Workbooks.Count do
begin
if Excel.Workbooks.Item[j].FullName=BookName1 then break;
end;
// Выбираем WorkBook
WorkBook := Excel.WorkBooks.Item[j];
except
//Запускаем Excel
Excel := CreateOleObject('Excel.Application');
//Открываем нужную книгу
WorkBook := Excel.WorkBooks.Open(BookName1);
end;
Excel.Visible:=True;
end
else
begin
SysUtils.Beep;
ShowMessage('Не могу открыть Excel!');
Exit;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if not VarIsEmpty(Excel) then
begin
Excel.Quit;
Excel := Unassigned;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var X,Y:integer;
begin
WorkSheet:=WorkBook.WorkSheets[1];
WorkSheet.Activate;
WorkSheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
X := Excel.ActiveCell.Row;
Y := Excel.ActiveCell.Column;
Memo1.Lines.Add('Строк: '+ inttostr(x));
Memo1.Lines.Add('Столбцов : '+inttostr(y));
end;
end.
|
Случайно наткнулся по яндексу на пример где отдельно обьявлялся этот параметр
таким образом
| Код |
implementation
uses
ComObj;
var
Excel,Workbook : Variant;
WorkSheet: OleVariant;
const
xlCellTypeLastCell = $0000000B; // ВОТ ТАКИМ ОБРАЗОМ.
{$R *.dfm}
{Активация сервера}
procedure TForm1.Button1Click(Sender: TObject); ..................
|
Тогда ошибка пропала и все заработало.
Получается что если не используем компоненту ExcelApp то это нужно ОБЯЗАТЕЛЬНО делать ?
тогда почему об этом никто не упоминает ??? |
)