Тема Qt та Excel виявилася досить актуальною, тому спробую розвинути питання про доступ до даних .xls файлу використовуючи ActiveQt.
Оголошення змінних:
QAxObject *excel; //Excel
QAxObject *wbook; //Workbooks
QAxObject *book; // Активная книга
QAxObject *sheets; //Листы
QAxObject *activeSheet;//Активный лист
Запуск Excel:
excel = new QAxObject("Excel.Application",this);
excel->setProperty("Visible", 0);
excel->setProperty("DisplayAterts",0);
wbook = excel->querySubObject("Workbooks");
sheets = book->querySubObject("Sheets");
activeSheet = book->querySubObject("ActiveSheet");
Закриття Excel:
wbook->dynamicCall(“Close()”);
excel->dynamicCall(“Quit()”);
delete excel; // так напевно Excel не буде висіти в процесах.
Створення нової книги:
wbook->dynamicCall(Add());
Відкриття існуючої книги:
book = wbook->dynamicCall(“Open(const QString&)”, filename);
Збереження:
wbook->dynamicCall(“SaveAs(const QString&)”, filename);
wbook->dynamicCall(“Save()”);
Створення нових листів книги:
sheets->dynamicCall(Add());
Видаляємо лист:
int numList; // Номер аркуша, нумерація аркушів починається з 1.
sheets->querySubObject(“Item(int)”, numList)->dynamicCall(“Delete()”);
Визначаємо кількість листів:
int countSheets;
countSheets = sheets->dynamicCall(“Count()”).toInt();
Читаємо імена листів:
QStringList nameSheetsList;
for (int a = 1; a <= countSheets; a++){
nameSheetsList << sheets->querySubObject(“Item(int)”, a)
->dynamicCall(“Name()”).toString();
}
Змінити або дати ім'я новому листу:
QString name(“Имя листа”);
activeSheet->dynamicCall("Name", name);
Встановлюємо на лист захист по паролю:
QString password; // власне сам пароль
activeSheet->dynamicCall(“Protect(QVariant)”,password);