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

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.027 c
4-1125298427
axx
2005-08-29 10:53
2005.10.30
Ожидания события от компанента в ThHDM.Execute


14-1129090626
Гарри Поттер
2005-10-12 08:17
2005.10.30
Помогите с Excel -м


9-1113983455
Asdi
2005-04-20 11:50
2005.10.30
Отзовитесь те кто хоть раз делал музыку к играм !!!


2-1128588035
The sound
2005-10-06 12:40
2005.10.30
Добавление записи в фаил


14-1129112039
Mike Kouzmine
2005-10-12 14:13
2005.10.30
Подробности происхождения современного человека