Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

пишу в Excel - не записывается   Найти похожие ветки 

 
Akoli   (2004-09-22 21:50) [0]

есть функция:
Function SetRange (sheet:variant;range:string;
 value_:variant):boolean;
begin
SetRange:=true;
try
 E.ActiveWorkbook.Sheets.Item[sheet].Range[range]:=value_;
except
 SetRange:=false;
end;
End;
При отработке
E:=SetRange("Лист1","A1","Привет мир");
ничего не возвращает???????


 
VMcL ©   (2004-09-22 22:51) [1]

>При отработке
>E:=SetRange("Лист1","A1","Привет мир");
>ничего не возвращает???????


Это ужасно.


 
Fedia   (2004-09-23 04:17) [2]

Вот пример:

function SetRange(Excel: variant; NWorkSheet: integer; BegRange, EndRange: string; ArOfValues: variant): Boolean;
begin
 Result:=false;
 try
   Excel.ActiveWorkbook.WorkSheets[NWorkSheet].Range[BegRange, EndRange]:=ArOfValues;
   Result:=true;
 except
 end;
end;

procedure ExcelAp(FName: String);
var
 Excel: variant;
 Ar: array of array of Variant;
 i, n: Integer;
begin
 Excel:=CreateOleObject("Excel.Application");
 Excel.visible:=true;
 Excel.DisplayAlerts:=false;
 Excel.WorkBooks.Add();
 SetLength(Ar, 3, 5);
 for i:=0 to 2 do
 for n:=0 to 4 do
 Ar[i,n]:=(i+1)*(n+1);
 SetRange(Excel, 1, "A1", "E3", Ar);
 Excel.Workbooks.item[1].SaveAs(FName);
 Excel.Quit;
 Excel:=null;
end;


 
Akoli   (2004-09-23 11:40) [3]

Fedia, спасибо за помощь, помогло.



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

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
4-1094488155
Fon
2004-09-06 20:29
2004.10.10
Фон Edit-a


14-1095943959
Ломброзо
2004-09-23 16:52
2004.10.10
Дурацкий вопрос про GDI


1-1096135368
Charly22
2004-09-25 22:02
2004.10.10
MDI-интерфейс: проблемы с закрытием дочерних форм.


14-1095502426
Программер_
2004-09-18 14:13
2004.10.10
Почему много кратный вызов SetWindowRgn Вызыват неправильную


14-1095673374
infom
2004-09-20 13:42
2004.10.10
Немодерируемая ветка !!!