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

Вниз

Excel 2000 и Excel XP   Найти похожие ветки 

 
ViJen   (2005-02-28 12:40) [0]

Добрый день мастера!
Есть у меня программка, которая выгружает данные из базы в excel-файл. Так вот - на win 98 с excel 2000 прога отрабатывает нормально, а на win 98 с excel XP выдает OLE error 800A03EC.
В чем тут может быть проблема? Что-то кардинально поменялось в офисе xp?


 
MU   (2005-02-28 12:47) [1]

исходники есть?
а место посмотреть, где это происходит, нельзя?
и, если самому понятно не будет, то и другим показать...


 
ViJen   (2005-02-28 15:14) [2]

Вот часть кода:
try
CopyFile(PAnsiChar(ExtractFilePath(Application.ExeName)+"Files\Report.xls"),
         PAnsiChar(ExtractFilePath(Application.ExeName)+
         "Files\Out\Report"+datetostr(Date)+".xls"),false);

exl := CreateOleObject("Excel.Application");
WorkBook := exl.Application.WorkBooks.Open(ExtractFilePath(Application.ExeName)+
                                           "Files\Out\Report"+datetostr(Date)+".xls");
Sheet := WorkBook.WorkSheets[1];

ArrData := VarArrayCreate([1, tblBasa.recordcount, 1, tblBasa.FieldCount], varVariant);

{....}//здесь заполняется массив ArrDAta

 cell1:=sheet.cells[3,1];
 cell2:=sheet.cells[i-1,tblBasa.FieldCount-1];
 Range:=sheet.Range[cell1,cell2];
 Range.value:=ArrData;
 Range.Borders.LineStyle:= xlContinuous;
 ArrData:=UnAssigned;
 for k:=1 to 12 do
  begin
  if arr[k]=0 then break;
  Sheet.cells[arr[k]+2,1].font.bold:=true;
  end;

finally
exl.Application.ActiveWorkBook.Save;
exl.Application.DisplayAlerts:=false;
exl.Application.Quit;
end;

а место где происходит пока не могу определить, нет машины с 98 и xp офисом



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

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
1-1110828527
Гость
2005-03-14 22:28
2005.03.27
Подскажите, как вставить данные из формы в Word?


1-1110904405
tazik
2005-03-15 19:33
2005.03.27
Как заглушить солиста в мр3


4-1106928237
Георгий Бедный
2005-01-28 19:03
2005.03.27
Форма для скринсейвера


14-1110281799
SergP
2005-03-08 14:36
2005.03.27
Ошибки при работе с сокетами. У кого Д5, напишите.


1-1110800372
tex
2005-03-14 14:39
2005.03.27
Как заставить TImage сжать bmp-файл сохраняя пропорции