Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

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

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

---

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

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

---

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

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

---

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

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

---

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

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

---

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

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

---

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

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

---

← →
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.

---

← →
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

---

← →
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 18:36) [6]

вылетает EOleException

---

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

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

---

← →
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?

---

← →
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?

---

← →
evvcom ©   (2004-04-24 23:57) [9]

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

---

← →
evvcom ©   (2004-04-24 23:57) [9]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.183 c