QAxBase
と を使用してExcelファイルを読み取りますQAxObject
。
ワークブックへのポインターを格納するグローバル変数を取得QAxObject* db_workbook;
しました(なぜそのように呼び出されたのかわかりませんが、なんでも)。1つだけでなく、いくつかの関数でExcelファイルデータを取得する必要があるため、必要です。
readExcelFile
メソッドが正常に実行されると、test_function()
例外が発生します
この行に表示されますsheet_N = db_workbook->querySubObject("Worksheets(int)", 1);
なぜそれが起こり、どのように修正するのですか?
コード部分はこちら
//
QAxObject* db_workbook;
//for read what we need to
void importdb_module::readExcelFile(QAxObject* excel, QString& file_path){
if(initExcel(excel)){
QAxObject* workbooks = excel->querySubObject("WorkBooks");
workbooks->dynamicCall("Open (const QString&)", file_path);
QAxObject* workbook = excel->querySubObject("ActiveWorkBook");
db_workbook = workbook;//global ptr points same adress now
QAxObject* worksheets = workbook->querySubObject("WorkSheets");
//test getting sheet num 1 name
QAxObject* sheet_hh = workbook->querySubObject("Worksheets(int)", 1);
QString sheet_name = sheet_hh->property("Name").toString();
qDebug()<<sheet_name<<"TEST!";//here everything works fine
}
}
void importdb_module::test_function(){
QAxObject* sheet_N;
//ERROR IS HERE!
sheet_N = db_workbook->querySubObject("Worksheets(int)", 1);
QString sheet_name = sheet_N->property("Name").toString();
qDebug()<<sheet_name;
}
//executes on button click
void importdb_module::testExlOp(QString &_path){
QAxObject* excel;
QStringList spreadsheet_list; //get spreadsheet list when opening file
QString path = _path;//gonna use GUI choose
if(initExcel(excel)){
if (readExcelFile(excel, path)){
//
test_function();
excel->dynamicCall("Quit(void)");
}else{
//error output
QMessageBox::information(0, "", "Error");
}
}
delete excel;
}
ありがとうございました!