Форум: "Основная";
Текущий архив: 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.041 c
