Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];

Вниз

TExcelWorkSheet   Найти похожие ветки 

 
DimonNew ©   (2004-04-16 11:20) [0]

Подскажите пож-та, почему в следующем коде ошибка при работе с ячейками и что нужго сделать, чтобы заработало?
var
 FWorkSheet:TExcelWorkSheet;
...
  FWorkSheet.Cells.Item[1,1]:="gwe"; - интерфейс не поддерживается
 или
 FWorkSheet.Range["A1","A1"].Value:="qwe"; - OLE error


 
ASMiD   (2004-04-16 11:38) [1]

Поставь
FWorkSheet.Range["A1","A1"].Formula:="qwe";


 
DimonNew ©   (2004-04-16 11:44) [2]

Нет, такая же ошибка - OLE error. Может здесь дело в преобразовании типов : string в OLEVariant (Value и Formula)?


 
ASMiD   (2004-04-16 11:52) [3]

А

FWorkSheet.ConnectTo(ExcelWorkbook.WorkSheets[1] as _Worksheet);

делал?


 
DimonNew ©   (2004-04-16 11:54) [4]

Да!
FWorkBook.ConnectTo(FApplication.Workbooks[1]);
FWorkSheet.ConnectTo(_WorkSheet(FWorkBook.ActiveSheet));


 
ASMiD   (2004-04-16 12:05) [5]

А
FWorkSheet.Activate;

ставил?


 
DimonNew ©   (2004-04-16 12:27) [6]

Да сейчас поставил, но пишет уже одинаковую ошибку для обоих случаев : ошибка доступа к адресу ... в модуле ole32.dll


 
DimonNew ©   (2004-04-16 12:38) [7]

Эту ошибку он пишет только на FWorkSheet.Activate;


 
DimonNew ©   (2004-04-16 12:39) [8]

Хотя FWorkSheet.Name:="qwe" - работает нормально без FWorkSheet.Activate


 
ASMiD   (2004-04-16 12:43) [9]

Вот код, который у меня работает:

var
 ExAppl: TExcelApplication;
 ExWbk: TExcelWorkbook;
 ExWst: TExcelWorksheet;
 k1:integer;
begin
// Connect EXCEL
   try
     ExAppl.Connect;
   except
      on EOleSySError do begin
        MessageBox(0,""Error Open Microsoft Excel"," ",mb_IconStop or MB_OK);
        ExAppl.Disconnect;
      end;
      on EOleException do begin
        MessageBox(0,"Error open Microsoft Excel","  ",mb_IconStop or MB_OK);
        ExAppl.Disconnect;
      end;
   end;
   with ExAppl do begin
     k1:=Application.WorkBooks.count-1;
     Application.WorkBooks.Add(TemplName,k1);
     visible[0]:=TRUE;
     WindowState[0]:=xlMinimized;
   end;
   k1:=ExAppl.Workbooks.count; //возможно собака здесь порылась
   ExWbk.ConnectTo(ExAppl.Workbooks[k1]);
   ExWst.ConnectTo(ExWbk.WorkSheets[1] as _Worksheet);
   ExWst.Activate;
   ExWst.Range["A1","A1"].Formula:="Hello!;



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

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

Наверх




Память: 0.46 MB
Время: 0.035 c
14-1081848497
wHammer
2004-04-13 13:28
2004.05.02
Меч распаковать .cab


9-1069996387
Keeper_7K
2003-11-28 08:13
2004.05.02
Камера на кватернионах!


1-1082108875
msgipss
2004-04-16 13:47
2004.05.02
помогите ламеру добавить в свой класс событие


7-1079075427
smu
2004-03-12 10:10
2004.05.02
Как очистить кэш дисковода?


6-1078166800
pomashok
2004-03-01 21:46
2004.05.02
raise





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский