Delphi+Excel

← →
Bairum (2004-04-23 22:53) [0]

Как в Delphi определить присвоено ли имя выделенной в данный момент области в Excel?

← →
evvcom © (2004-04-24 00:12) [1]

У коллекции Range есть свойство Name

← →
Bairum (2004-04-24 10:13) [2]

А можно пример?

← →
evvcom © (2004-04-24 16:41) [3]

А у самого ничего не получается или даже не попробовал добраться до Excel?

← →
Bairum (2004-04-24 18:12) [4]

Я делаю так:
...
var
Form1: TForm1;
App:variant;
SelAdr:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
App:=CreateOleObject("Excel.Application");
App.Workbooks.Open("1.xls");
App.Visible:=True;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SelAdr:=app.ActiveWindow.RangeSelection.Address;
label1.Caption:=SelAdr;
if app.ActiveWorkBook.ActiveSheet.Range[selAdr].Name<>"" //тут //вылетает exception
then label1.Caption:="имя уже есть";
end;

end.

← →
Polevi © (2004-04-24 18:24) [5]

label1.Caption:=app.ActiveWindow.RangeSelection.Name

← →
Bairum (2004-04-24 18:36) [6]

вылетает EOleException

← →
Bairum (2004-04-24 19:15) [7]

Все правильно, exception вылетает, когда данной области не присвоено никакое имя, иначе срабатывает нормально(правда в label1 отображается не имя области(например "а"), а ее формула(например "=Лист3!$A$1")).Ну и на том спасибо.

← →
Bairum (2004-04-24 21:18) [8]

Теперь такая проблема:
пишу
try
label1.Caption:=app.ActiveWindow.RangeSelection.Name;
except
on EOleException do Application.MessageBox( "Error","Error",0);
end;
но exception все равно вылетает.Если после этого нажать F7 то выйдет мое сообщение.
Как избавиться от этого exception?

Я прежде чем экспериментировать на Delphi, пишу простые куски в VB Word или Excel, из-за чего исключается ошибка OLE-сервера. А потом уже отлаженный кусок перевожу в Delphi.

Delphi+Excel Найти похожие ветки