Excel

← →
Belkova (2003-07-14 15:12) [0]

Мастера Delphi! Подскажите в чем дело? Требуется экспортировать данные из Excel, все проходит нормально, но пока работает приложение невозможно открыть ни один экселевский файл. Что делать? аранее благодарна.

← →
DenK_vrtz © (2003-07-14 15:15) [1]

А чего говорит?
Может он открывает, но в одном окне?

← →
stone © (2003-07-14 15:18) [2]

Чем открывается? Какими методами происходит экспорт? Одним словом, код в студию.

← →
DenK_vrtz © (2003-07-14 15:23) [3]

stone © (14.07.03 15:18), ага дождешься от них. Вот когда ты сам додумаешься, в чем доло, тогда и код будет! :-)

← →
Belkova (2003-07-14 15:24) [4]

Открывается
Var v:OleVariant;
V.WorkBooks.Open(ExportFileName);
Экспорт
v.WorkBooks.Open(ExportFileName);
v.WorkSheets.Item["Опт. прайс"].Select;
LBegin:=StrToInt(copy(Edit1.Text,1,pos(":",Edit1.Text)-1));
LEnd:=StrToInt(copy(Edit1.Text,pos(":",Edit1.Text)+1,length(Edit1.Text)));
i:=LBegin;
while i<=LEnd do begin
StatusBar1.SimpleText:="

← →
stone © (2003-07-14 15:37) [5]

А где код сохранения и закрытия экселевскго файла?
Наверняка после окончания работы процедуры в Task Manager остается висеть экселевский процесс

← →
Belkova (2003-07-14 16:04) [6]

такого кода нет, если не затруднит, как его написать?

try
XL := CreateOleObject("Excel.Application");
except
raise Exception.Create("Excel должен быть установлен");
end;
try
XL.Workbooks.Open(FileName);
...
finally
XL.Workbooks.Close;
XL := Unassigned;
end;

← →
Belkova (2003-07-14 16:23) [8]

Спасибо, попробую.

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