| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

пишу в Excel - не записывается [D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

Akoli ©   (2004-09-22 21:50:00) 

есть функция:
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','Привет мир');
ничего не возвращает???????

---

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

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

---

Fedia   (2004-09-23 04:17:00) [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;


---

VMcL   (2004-09-22 22:51:00) [3]

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

Это ужасно.

---

Наверх