OLE Error 800A03EC [D7, WinXP]
danilabagroff © (2005-10-07 11:35:00)
MS Office 2003 (rus)
собственно сабж :(
var
wss: WideString;
ExcelApp, Workbook: Variant;
begin
ExcelApp:= CreateOleObject('Excel.Application');
ExcelApp.Application.EnableEvents:= false;
ExcelApp.Visible:=False;
Workbook := ExcelApp.WorkBooks.Add;
ADOTable1.First;
while (ADOTable1.Eof <> true) do
begin
WorkBook.WorkSheets[1].Cells[1,
ADOTable1.RecNo+1].Value2 :=
ADOTable1.FieldByName('TAB_UVOL').AsString; // Вот здесь ругается..
WorkBook.WorkSheets[1].Cells[2,
ADOTable1.RecNo+1].Value2 :=
ADOTable1.FieldByName('FIO_UVL').AsString + ' ' +
ADOTable1.FieldByName('IM_UVL').AsString + ' ' +
ADOTable1.FieldByName('OT_UVL').AsString;
WorkBook.WorkSheets[1].Cells[3,
ADOTable1.RecNo+1].Value2 :=
ADOTable1.FieldByName('DOLG_UVL').AsString;
ADOTable1.Next;
end;
end;
WorkBook.SaveAs('C:\test.xls');
ExcelApp.Quit;
Digitman (2005-10-07 13:14:00) [1]
а почему именно Value2 ?
Наверх 
ЧАТ |
Орешник |
|
