Главная страница
    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.036 c
14-1081735795
RealRascal
2004-04-12 06:09
2004.05.02
Открытое плавание


3-1081167723
Ivan
2004-04-05 16:22
2004.05.02
Информация в PageFooter


1-1082195232
Leviathan
2004-04-17 13:47
2004.05.02
Выделение синим в StringGrid


14-1081614216
Yozh_Programmer
2004-04-10 20:23
2004.05.02
Нет ли у кого ссылки на программинг для начинающих???


11-1064416393
Revolter
2003-09-24 19:13
2004.05.02
ComboBox... устал с ним бороться... помогите, plz





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский