获取QTextEdit 中的数据,保存到excel中

 Qt控件QTextEdit中显示数据如上图所示,现在需要功能:读出控件中的数据,保存到excel中。

bool MainWindow::exportToExcel()
{
    QStringList list;
    QString filepath=QFileDialog::getSaveFileName(this, QStringLiteral("文件保存"),"../",tr("Microsoft Office 2010 (*.xlsx)"));//获取保存路径
    if(!filepath.isEmpty())
    {
        QAxObject *excel = new QAxObject(this);
        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 *cellA,*cellB,*cellC,*cellD;

        //设置标题
        int cellrow=1;
        QString A="A"+QString::number(cellrow);//设置要操作的单元格,如A1
        QString B="B"+QString::number(cellrow);
        QString C="C"+QString::number(cellrow);
        QString D="D"+QString::number(cellrow);
        cellA = worksheet->querySubObject("Range(QVariant, QVariant)",A);//获取单元格
        cellB = worksheet->querySubObject("Range(QVariant, QVariant)",B);
        cellC=worksheet->querySubObject("Range(QVariant, QVariant)",C);
        cellD=worksheet->querySubObject("Range(QVariant, QVariant)",D);
        cellA->dynamicCall("SetValue(const QVariant&)",QVariant("yaw"));//设置单元格的值
        cellB->dynamicCall("SetValue(const QVariant&)",QVariant("pitch"));
        cellC->dynamicCall("SetValue(const QVariant&)",QVariant("roll"));
        cellD->dynamicCall("SetValue(const QVariant&)",QVariant("gro"));
        cellrow++;

        //读取textEdit      
        QTextDocument* doc=ui->textEdit->document() ; //文本对象
        int cnt=doc->blockCount() ;//回车符是一个 block
        for (int i=0; i<cnt;i++)
        {
            QTextBlock textLine=doc->findBlockByNumber(i) ; // 文本中的一段
            QString str=textLine.text();
            list=str.split(":");
            if(list.at(0)=="ch1")
            {
                QString A="A"+QString::number(cellrow);//设置要操作的单元格,如A1
                cellA = worksheet->querySubObject("Range(QVariant, QVariant)",A);//获取单元格
                cellA->dynamicCall("SetValue(const QVariant&)",QVariant(list.at(1)));//设置单元格的值
            }
            else if(list.at(0)=="ch2")
            {
                QString B="B"+QString::number(cellrow);
                cellB = worksheet->querySubObject("Range(QVariant, QVariant)",B);
                cellB->dynamicCall("SetValue(const QVariant&)",QVariant(list.at(1)));
            }
            else if(list.at(0)=="ch3")
            {
               QString C="C"+QString::number(cellrow);
               cellC=worksheet->querySubObject("Range(QVariant, QVariant)",C);
               cellC->dynamicCall("SetValue(const QVariant&)",QVariant(list.at(1)));
            }
            else
            {
                QString D="D"+QString::number(cellrow);
                cellD=worksheet->querySubObject("Range(QVariant, QVariant)",D);
                cellD->dynamicCall("SetValue(const QVariant&)",QVariant(list.at(1)));

            }
            if((i+1)%4==0)
            {
                cellrow++;
            }
        }

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

 

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值