Главная страница
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.034 c
14-1128713108
Старшеклассник
2005-10-07 23:25
2005.10.30
cmd и кодировки


14-1125937324
Piter
2005-09-05 20:22
2005.10.30
Помогите опознать песенку Майкла Джексона, пожалуйста


4-1125186966
graveyard
2005-08-28 03:56
2005.10.30
как снять атрибут с файла


11-1109718996
gent
2005-03-02 02:16
2005.10.30
Ошибка в KOL / TBitmap.SetHandle.


1-1128510294
Gall
2005-10-05 15:04
2005.10.30
Сохранения рисунка