Russian Belarusian English German Japanese Ukrainian
  • Главная
  • FAQ
  • Как из Microsoft Excel считать определенную ячейку и вывести на форму?

Как из Microsoft Excel считать определенную ячейку и вывести на форму?

CuBook4.335

Разместите на форму компонент Label1, в который будет выводиться данные из заданной ячейки, и кнопку Button1 со следующим кодом:
String file = "E:\\Name.xls"; // путь указывать абсолютный
String col = "A"; int row = 1; // адрес ячейки, у нас A1
Variant App=Variant::CreateObject("Excel.application");
Variant Books=App.OlePropertyGet("Workbooks");
Procedure Open("Open");
Books.Exec(Open<<file);
Variant Book=App.OlePropertyGet("ActiveWorkBook");
Variant Sheet=Book.OlePropertyGet("ActiveSheet");
PropertyGet Range("Range");
Variant range=Sheet.Exec(Range<<Variant(col+row));
String val = range.OlePropertyGet("Value");
Label1->Caption = val;
Если заметили ошибку, выделите фрагмент текста и нажмите Ctrl+Enter

Добавить комментарий