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

Вниз

Что случилось с Excel.Application?   Найти похожие ветки 

← →
Aleksandr.   (2004-10-12 16:33) [0]

У меня уже давно был написан экспортер в Excel, прекрасно работал, засасывая csv. А тут поставил Office 2003, и работать он перестал. Раньше код был:

var
 XLApp     : Variant;
 Sheet     : Variant;
 Range     : Variant;
 I         : integer;
 RangeStr  : string;
begin
 XLApp:=CreateOleObject("Excel.Application");
 if VarIsEmpty(XLApp) then begin
   RiMessage(0,h_Error,sNoExcel);
   FExcelExists:=false;
   Exit
 end;
 try
   XLApp.DisplayAlerts := False;
   if NOT FileExists(CheckDir(FTempDir)+ExtractFileName(FFileName)) then
     Exit;
   XLApp.WorkBooks.Open(CheckDir(FTempDir)+ExtractFileName(FFileName), , , 2, , , , , ,true);
   Sheet:=XLApp.Workbooks[1].Worksheets[1];
   Sheet.Cells.Font.Name:=FFont.Name;
   Sheet.Cells.Font.Size:=FFont.Size;
   Sheet.Cells.Font.Bold:=fsBold in FFont.Style;
   Sheet.Cells.Font.Italic:=fsItalic in FFont.Style;
   Sheet.Cells.Font.Underline := fsUnderline in FFont.Style;
   Range:=Sheet.Range["A1:"+TExcelLetters[eColCount]+"1"];
   Range.Font.Bold:=True;
   Range.Font.Italic:=false;
... и т.д.

При WorkBooks.Open в RT стал ругаться на неверное количество параметров. Убрал все, кроме имени файла - стал выдавать Range Check Error на Range.Font.Bold:=True;
Причем программы, скомпилянные с Office XP, продолжают нормально работать, а после новой компиляции перестают. RCE, разумеется, вырублен (разумеется, потому что новомодные контролы типа TActionMainMenuBar и т.д. и MIDAS со включенным вообще не работают).
Что с ним такое могло случиться и как это лечить?

---

← →
Amoeba ©   (2004-10-12 17:15) [1]

Наверное надо импортировать библиотеку типов Excel2003 и изрядно править код.

---

← →
П7   (2004-10-12 17:15) [2]

Нужно руки кое кому оторвать за 2003 OFF"ис. Более глючной проги я в жизни не видел!!! ): У меня постоянные проблемы с моей прогой из-за этого, мать его, офиса.

---

← →
Grrey   (2004-10-12 20:41) [3]

Для этих целей я использую vtkExport.
Он бесплатый и не зависит от версии. Для его работы даже сам Excel не нужен. Ну разве что потом прочитать его не сможешь.
Ссылку не дам. Искать неохота.

---

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

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

Наверх

Память: 0.45 MB
Время: 0.043 c