Форум: "Основная";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Вниз

OLE Error 800A03EC   Найти похожие ветки 

← →
danilabagroff   (2005-10-07 11:35) [0]

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) [1]

а почему именно Value2 ?

---

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

Форум: "Основная";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.038 c