QAxBase: Error calling IDispatch member SaveAs: Exception thrown by server Code : 1004

最新推荐文章于 2024-04-21 22:57:00 发布

caimo

最新推荐文章于 2024-04-21 22:57:00 发布

阅读量1.7w

点赞数

分类专栏： C/C++ 文章标签： exception server excel microsoft 工作 signal

本文链接：https://blog.csdn.net/caimo/article/details/7942708

版权

C/C++ 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

Qt操作Excel还真是不简单啊。网上看到一段代码可以复制excel，拿来一试。

新建Qt gui应用程序桌面版。main.cpp代码为：

#include <QtGui/QApplication>
#include "mainwindow.h"
#include <QAxObject>
#include <QAxWidget>
#include <QTextCodec>
#include <QtDebug>
int main(int argc, char *argv[])
{
    QApplication a(argc, argv);


    QTextCodec::setCodecForCStrings(QTextCodec::codecForName("GB18030"));
    QTextCodec::setCodecForLocale(QTextCodec::codecForName("GB18030"));
    QTextCodec::setCodecForTr(QTextCodec::codecForName("GB18030"));

    QAxWidget excel("Excel.Application");
    excel.setProperty("Visible", true);
    QAxObject * workbooks = excel.querySubObject("WorkBooks");
    if (!workbooks)  return 1;    //错误返回,用 if(!excel)则不行
    workbooks->dynamicCall("Open (const QString&)", QString("d:/kkk.xls"));
    QAxObject * workbook = excel.querySubObject("ActiveWorkBook");      //5) 获取活动工作簿：
    QAxObject * worksheets = workbook->querySubObject("WorkSheets");    //获取所有的工作表：
    int intCount = worksheets->property("Count").toInt();               //获取工作表数量：
    for (int i = 1; i <= intCount; i++)
    {
       int intVal;
       QAxObject * worksheet = workbook->querySubObject("Worksheets(int)", i);     //获取第i个工作表：
       qDebug() << i << worksheet->property("Name").toString();
       QAxObject * range = worksheet->querySubObject("Cells(1,1)");    //获取cell的值：
       intVal = range->property("Value").toInt();
       range->setProperty("Value", QVariant(intVal+1));
       QAxObject * range2 = worksheet->querySubObject("Range(C1)");
       intVal = range2->property("Value").toInt();
       range2->setProperty("Value", QVariant(intVal+1));
    }

    QAxObject * worksheet = workbook->querySubObject("Worksheets(int)", 1);
    QAxObject * usedrange = worksheet->querySubObject("UsedRange");
    QAxObject * rows = usedrange->querySubObject("Rows");
    QAxObject * columns = usedrange->querySubObject("Columns");
    int intRowStart = usedrange->property("Row").toInt();
    int intColStart = usedrange->property("Column").toInt();
    int intCols = columns->property("Count").toInt();
    int intRows = rows->property("Count").toInt();
    for (int i = intRowStart; i < intRowStart + intRows; i++)
    {
       for (int j = intColStart; j <= intColStart + intCols; j++)
       {
           QAxObject * range = worksheet->querySubObject("Cells(int,int)", i, j );
           qDebug() << i << j << range->dynamicCall("Value2()").toString();  //property("Value");不行
       }
    }

    excel.setProperty("DisplayAlerts", 0);qDebug("here?");
    workbook->dynamicCall("SaveAs (const QString&)", QString("./sss.xls"));//这里只能用相对路径！！！用绝对路径就报下面的错误。
    excel.setProperty("DisplayAlerts", 1);
    workbook->dynamicCall("Close (Boolean)", false);
    excel.dynamicCall("Quit (void)");

    MainWindow w;
    w.show();
    return a.exec();
}

上述代码保存部分如果用绝对路径会出现：

QAxBase: Error calling IDispatch member SaveAs: Exception thrown by server

Code : 1004

Source : Microsoft Excel

Description: ?????C:\//????????????????????????????????????

Help : xlmain11.chm

Connect to the exception(int,QString,QString,QString) signal to catch this exception

用相对路径./就可以了。

然而./的路径却在C:\Users\Administrator\Documents （windows7）