Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];
Внизпишу в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c