使用OLEQAxObject导出Log日志文件

头文件<QAxObject>

Qt project settings需要支持QtActivex container

 

具体导出如下：（单列这里）

QString filepath=QFileDialog::getSaveFileName(parent,tr("Save orbit"),".",tr("Microsoft Office 2007 (*.xlsx)"));//获取保存路径
if(!filepath.isEmpty()){
QAxObject *excel = new QAxObject(parent);
excel->setControl("Excel.Application");//连接Excel控件
excel->dynamicCall("SetVisible (bool Visible)","false");//不显示窗体
excel->setProperty("DisplayAlerts", false);//不显示任何警告信息。如果为true那么在关闭是会出现类似“文件已修改，是否保存”的提示

QAxObject *workbooks = excel->querySubObject("WorkBooks");//获取工作簿集合
workbooks->dynamicCall("Add");//新建一个工作簿
QAxObject *workbook = excel->querySubObject("ActiveWorkBook");//获取当前工作簿
QAxObject *worksheets = workbook->querySubObject("Sheets");//获取工作表集合
QAxObject *worksheet = worksheets->querySubObject("Item(int)",1);//获取工作表集合的工作表1，即sheet1
QAxObject *cellX,*cellY;
for(int i=0;i<sRecords.size();i++)
{
QString X="A"+QString::number(i+1);//设置要操作的单元格，如A1
//QString Y="B"+QString::number(nIndex+1);
cellX = worksheet->querySubObject("Range(QVariant, QVariant)",X);//获取单元格
//cellY = worksheet->querySubObject("Range(QVariant, QVariant)",Y);
cellX->dynamicCall("SetValue(const QVariant&)",sRecords.at(i));//设置单元格的值
//cellY->dynamicCall("SetValue(const QVariant&)",sRecord);
}

workbook->dynamicCall("SaveAs(const QString&)",QDir::toNativeSeparators(filepath));//保存至filepath，注意一定要用QDir::toNativeSeparators将路径中的"/"转换为"\"，不然一定保存不了。
workbook->dynamicCall("Close()");//关闭工作簿
excel->dynamicCall("Quit()");//关闭excel
delete excel;
excel=NULL;
}