QT excel [复制链接]

qt excel格式控制函数
如何控制单元格大小，居中，绘制边框等功能？

QAxObject *range = ...->querySubObject("Range(const QString&)", cell);
    range->setProperty("HorizontalAlignment", -4108);//xlCenter

居中

QAxObject *range = ...
    range->dynamicCall("BorderAround", Style, Width,ColorIndex);

//Style值：0- no line; 1-solid; 2-big dot;3-small dot;4-dash dot; 5-dash dot dot;
ColorIndex：1-black;2-white;3-red;4-green;5-blue; 6-yellow; 7-pink;8-dark blue;

QAxObject *cellX = worksheet->querySubObject("Range(QVariant, QVariant)",X);//获取单元格
             cellX->setProperty("HorizontalAlignment", -4108);//
            cellX->dynamicCall("SetValue(const QVariant&)",QVariant(“123”));//设置单元格的值没有居中。。这是为什么？

QAxObject *cellX = worksheet->querySubObject("Range(QVariant, QVariant)",X);//获取单元格
cellX->dynamicCall("SetValue(const QVariant&)",QVariant(“123”));            
cellX->setProperty("HorizontalAlignment", -4108);//也是不行的？
            

X=A1

QAxObject *cellX = worksheet->querySubObject("Range(QVariant, QVariant)",X);//获取单元格
这句不对
应该是（比如A1单元格）
QAxObject *cellX = worksheet->querySubObject("Range(const QString&)",  “A1”);

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
cellX = worksheet->querySubObject("Range(const QString&)","A1");
        cellX->setProperty("HorizontalAlignment", -4108);
        cellX->dynamicCall("SetValue(const QVariant&)",QVariant("123"));
还是不行啊。。。

这样呢
cellX = worksheet->querySubObject("Range(const QString&)","A1");
cellX->setProperty("NumberFormat", "@");
cellX->setProperty("HorizontalAlignment", -4108);
cellX->dynamicCall("SetValue(const QVariant&)",QString("123"));

....还是不行啊。。

能加个QQ交流下吗？。。。。1846951401

在公司，上不了QQ

你把这句
cellX->dynamicCall("SetValue(const QVariant&)",QString("123"));
改成
cellX->dynamicCall("SetValue(const QString&)",QString("123"));
再试试

换了几种赋值方式还是不行，估计还是
cellX = worksheet->querySubObject("Range(const QString&)","A1");
cellX->setProperty("NumberFormat", "@");
cellX->setProperty("HorizontalAlignment", -4108);
出问题了。。

再截个图

还有这部分的代码片段

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;

        //QAxObject *mergeRange = sheet->querySubObject("Range(QVariant)", tr("A%1:D%2").arg(1).arg(1));
        //mergeRange->dynamicCall("Merge(QVariant)", "true");
        

        cellX = worksheet->querySubObject("Range(const QString&)","A1");//获取单元格
        cellX->setProperty("HorizontalAlignment",  -4108);
        cellX->dynamicCall("SetValue(const QString&)","123");//*/
        /*cellX = worksheet->querySubObject("Range(const QString&)","A1");
        cellX->setProperty("NumberFormat", "@");
        cellX->setProperty("HorizontalAlignment", -4108);
        cellX->dynamicCall("SetValue(const QString&)",QString::fromLocal8Bit("能"));*/
        //cellX->setProperty("VerticalAlignment",  -4108);
        //cellX->setProperty("WrapText", true);
        //cellX->setProperty("MergeCells", true);

这是代码了。。

这段代码，在A1单元格居中填123，我已经试过了，肯定可以
    QAxObject * pExcel = new QAxObject("Excel.Application", this);
    QAxObject * pWorkBooks = pExcel->querySubObject("Workbooks");

    pWorkBooks->dynamicCall("Add");
    QAxObject * pWorkBook = pExcel->querySubObject("ActiveWorkBook");
    QAxObject * pSheet = pWorkBook->querySubObject("Worksheets(int)", 1);
    pExcel->setProperty("Visible", true);

    QAxObject *range = pSheet->querySubObject("Cells(int,int)", 1, 1);
    range->setProperty("NumberFormat", "@");
    range->setProperty("HorizontalAlignment", -4108);
    range->dynamicCall("SetValue(const QString&)", "123");

untitled1234.zip (2 K) 下载次数:14
这是我测试的代码工程，你可以试试

是不是QT版本问题啊，我是4.7的，运行你的代码还是不能居中
是不是excel版本也有关系，我的excel是03的？。。。。。。

原因很奇怪是不是和电脑系统也有关，我的是XP的

。。。头疼的现象

我是Win7  Qt4.8.4 MSOffice2010
按理说应该与Qt没关系。最可能是与Excel版本有关。
你可以查一下Excel2003居中，用什么参数。录个宏，从VBA代码就可以看到。

之前试过4.8也是不行，现在正在虚拟机上试。。。可能还是和系统或者excel版本有关。。。03的有这个参数，还有个现象就是Win7 2010的excel导出我的程序时报错。。这是什么原因？在自己的电脑上可以运行的。。

我找了台XP电脑，Office2003，也是好的呀。不知道你那是怎么回事了

我在虚拟机上装了个win7然后装了个2010的office，运行你给的程序还是不行。。估计是qt的版本问题吧。。是不是那个excel的组件库的问题啊？

那几个excel的库，是不是也有版本啊？我装4.7的时候自带的。4.8上面就没有这几个库的

搞定了。。果然是库的问题，我的库不支持这些操作~~~~

如何在合并单元格之后让写入的内容自适应宽度？
我现在合并单元格后将值写入A单元格，但是值超出单元格了，宽度没有自适应了。。
改怎么解决？