QT调用Excel时，设置自动调整列宽和所有单元格居中

楼主最近公司项目需要利用QT访问EXCEL库完成新建表、往表中填数据并直接打印出来的功能。

首先由于数据部分有的比较长，需要自动调整列宽才能直接打印，其次又因为不居中的话打印出来不太美观，所以楼主就开始研究自动调整列宽和单元格居中这两个问题。

经过网上搜索以及各种尝试，终于完成了，在这里稍作分享。

关于QT使用QAxObject调用EXCEL这部分楼主就不多说了，网上有很多类似的帖子，主要是记住最后要关闭了文档后再delete掉excel对象。

楼主先贴出来初始化调用excel创建一个表的代码，供大家参考。

//创建新的表格，清理了range 为写入做好了准备 下面开始写入文本

QAxObject *excel = new QAxObject("Excel.Application");
if (excel==NULL)
{
return false;
}
excel->setProperty("Visible", false);
QAxObject * workbooks = excel->querySubObject("WorkBooks");
if (workbooks==NULL)
{
return false;
}
workbooks->dynamicCall("Add");
QAxObject * workbook = excel->querySubObject("ActiveWorkBook");
if (workbook==NULL)
{
return false;
}
QAxObject * workSheet = workbook->querySubObject("Worksheets(int)",1);
if (workSheet==NULL)
{
return false;
}
QAxObject * range = workSheet->querySubObject("UsedRange");
if (range==NULL)
{
return false;
}
range->dynamicCall("Clear");

往单元格里面填数据的代码就不贴了，更多的是按照需求去填数据，主要方法是通过调用Cells函数得到一个单元格然后使用setValue函数把数据填进去即可。

现在贴上后面处理自动调整列宽和设置居中的代码:

range = workSheet->querySubObject("UsedRange");
QAxObject * cells = range->querySubObject("Columns");
cells->dynamicCall("AutoFit");

range->setProperty("HorizontalAlignment",-4108);
range->setProperty("VerticalAlignment",-4108);

workbook->dynamicCall("SaveAs(QString)", strFileName);
workbook->dynamicCall("Close(Boolean)", false);

excel->dynamicCall("Quit(void)");

这里重新用range得到所有的使用的单元格，调用colunms得到所有列，然后调用AutoFit函数直接设置为自动调整列宽。

下面两句直接设置range的水平对齐和垂直对齐的参数。这里-4108就是居中的枚举常数。

后面是另存excel文档名为strFileName，然后关闭文档，最后退出调用excel。

delete excle以及发送其他处理信号的代码没有贴出来。

楼主花的时间大部分是在于设置range对齐参数的时候，一直觉得可以直接写成”xlCenter“，后来才意识到这个是个枚举常数，才去网上查excel里的枚举常数，找到xlCenter对应的值。

最后附上excel枚举常数查阅网址：http://technet.microsoft.com/zh-cn/library/ff197824

range = workSheet->querySubObject("UsedRange");
QAxObject * cells = range->querySubObject("Columns");
cells->dynamicCall("AutoFit");

range->setProperty("HorizontalAlignment",-4108);
range->setProperty("VerticalAlignment",-4108);

workbook->dynamicCall("SaveAs(QString)", strFileName);
workbook->dynamicCall("Close(Boolean)", false);

excel->dynamicCall("Quit(void)");