Delphi+Exсell

[alex89d]

Доброго времени суток! Столкнулся со следующей проблемой. При работе моей программы есть необходимость работать с файлами exsel. Все работает правильно, и стабильно, но при попытке открыть другой файл вне программы, вываливается ошибка 'Вызов был отклонен'. Работаю через OLe. Как организовать правильную работу программы с Excel.

[Stilet]

А просто запускать через ShellExecute() не хочешь?

[alex89d]

Это же не выход!))

raised exception class EolesysError with message "Вызов был отклонен"

[Stilet]

Это же не выход!

Ну как знаешь. Я с OLE контейнером предпочитаю не работать вообще.

[Toxa]

давай код и показывай в какой момент ошибка валится

[alex89d]

function xls_to_stringgrid(agrid: tstringgrid; axlsfile: string): boolean;
const
xlcelltypelastcell = $0000000b;
xlCalculationManual = -4135; xlAutomatic = -4105;
var
xlapp, sheet: variant;
rangematrix: variant;
x, y, k, r: integer;
begin
result := false;
xlapp := CreateOleObject('Excel.Application');
try
 // xlapp.EnableEvents := False;   
 xlapp.visible := false;
 xlapp.ScreenUpdating:=false;  
 xlapp.ErrorCheckingOptions.BackgroundChecking:=false;
 xlapp.ErrorCheckingOptions.NumberAsText:=false;
 xlapp.ErrorCheckingOptions.InconsistentFormula:=false;

xlapp.workbooks.open(axlsfile);
xlapp.Calculation:= xlCalculationManual;
xlapp.DisplayAlerts := False; 
sheet := xlapp.workbooks[extractfilename(axlsfile)].worksheets[1];
sheet.cells.specialcells(xlcelltypelastcell, emptyparam).Activate;
x := xlapp.activecell.row;
y := xlapp.activecell.column;
agrid.rowcount := x;
agrid.colcount := y;
rangematrix := xlapp.range['A1', xlapp.cells.item[x, y]].value;
k := 1;
repeat
for r := 1 to y do
agrid.cells[(r-1), (k)] := rangematrix[k, r];
inc(k);
agrid.rowcount := k;
until k > x;
rangematrix := unassigned;
finally
if not varisempty(xlapp) then
begin
xlapp.quit;
xlapp:=null;
xlapp := unassigned;
sheet := unassigned;
result := true;
end;
end;
end

Валится когда пытаюсь запустить новую книгу Exsel вне программы.Ошибка наверно в процессе excel.exe так как идет совместный доступ

[Stilet]

А я думал ты OleContainer используешь и намекал на него...
Вызов отклоняется на методе Open()?

[alex89d]

все возможно происходит изза этого
sheet.cells.specialcells(xlcelltype lastcell, emptyparam).Activate;. Так программа видит два процесса пытается работать с последним запущенным, но поскольку ничего не находит - валится. Как сделат так чтоб прога работала только со своим процессом, и получала данные только от него, тогда вероятнее всего ошибоки сыпаться перестанут.

[Stilet]

А можно узнать, что призвана делать данная функция?
подозреваю, что ее можно переписать совсем по другому и короче.

[alex89d]

функция экспортирует файл excel в стриинггрид)