Qt-Excel-vba笔记

最新推荐文章于 2023-09-04 21:02:53 发布
最新推荐文章于 2023-09-04 21:02:53 发布
阅读量4.3k 收藏 14
点赞数 1
分类专栏： QT学习笔记


VBA简介

VBA是Visual Basic for Application的缩写，是一种应用程序自动化语音。所谓应用程序自动化，是指通过程序或者脚本让应用程序，例如让Microsoft Excel、Word自动化完成一些工作。

VBA具有VB语言的大多数特征和易用性，它最大特点就是将Excel作为开发平台来开发应用程序，可以应用Excel的所有已有功能，例如数据处理、图表绘制、数据库连接、内置函数等等。

VBA开发环境

VBA集成开发环境（IDE，Integrated Development Environment）是进行VBA程序设计和代码编写的地方，同一版本的Office共享同一IDE。VBA代码和Excel文件是保存在一起的，可以通过点击“工具——宏——Visual Basic编辑器”打开VBA的IDE环境，进行程序设计和代码编写。

Excel对象的主要层次结构

Application对象->Workbook对象->Worksheet对象->Range对象

QT操作Excel

使用QAxObject组件可以方便的使用Office套件的API,QAxObject对COM对象进行了封装，QAxObject派生自QAxBase，而QAxBase提供了一组API，该API通过IUnknown指针直接访问COM对象，我们这里讲的Excel也是一个COM对象，可以通过QAxObject来操作它。

新建一个excel

QAxObject *pApplication = NULL;

QAxObject *pWorkBooks = NULL;

QAxObject *pWorkBook = NULL;

QAxObject *pSheets = NULL;

QAxObject *pSheet = NULL;

void newExcel(const QString &fileName)

{

    pApplication = new QAxObject();

    pApplication->setControl("Excel.Application");//连接Excel控件

    pApplication->dynamicCall("SetVisible(bool)", false);//false不显示窗体

    pApplication->setProperty("DisplayAlerts", false);//不显示任何警告信息。

    pWorkBooks = pApplication->querySubObject("Workbooks");

    QFile file(fileName);

    if (file.exists())

{

        pWorkBook = pWorkBooks->querySubObject("Open(const QString &)", fileName);

    }

    else

    {

        pWorkBooks->dynamicCall("Add");

        pWorkBook = pApplication->querySubObject("ActiveWorkBook");

    }

    pSheets = pWorkBook->querySubObject("Sheets");// 得到Sheets对象的指针

pSheet = pSheets->querySubObject("Item(int)", 1);// 得到第一个sheet对象的指针

//pSheet = pSheets->querySubObject("Item(const QVariant)", QVariant(“AAA”));// 得到第一个sheet对象的指针}

}

 

增加1个Worksheet（插入至最后一行）

void appendSheet(const QString &sheetName)
{
    int cnt = pSheets->querySubObject(“Item(int)”).toInt();// 获取工作表数目
    QAxObject *pLastSheet = pSheets->querySubObject("Item(int)", cnt);
    pSheets->querySubObject("Add(QVariant)", pLastSheet->asVariant());
    pSheet = pSheets->querySubObject("Item(int)", cnt);
    pLastSheet->dynamicCall("Move(QVariant)", pSheet->asVariant());
    pSheet->setProperty("Name", sheetName);
}
 

删除1个Worksheet

void deletedSheet(const QString &sheetName)
{

pSheet = pSheets->querySubObject("Item(const QVariant)", QVariant(sheetName));

pSheet->dynamicCall(“Delete”);

}
 

向Excel单元格中写入数据

void setCellValue(int row, int column, const QString &value)
{
    QAxObject *pRange = pSheet->querySubObject("Cells(int,int)", row, column);
    pRange->dynamicCall("Value", value);
}

 

释放Excel

void  freeExcel()

{
    if (pApplication != NULL)
    {
        pApplication->dynamicCall("Quit()");
        delete pApplication;
        pApplication = NULL;
    }
}

 

 

 

 

 

 

 

 //获取标题

QVarianttitle_value = excel.property("Caption");

//操作单元格（第2行第2列）

QAxObject *cell =work_sheet->querySubObject("Cells(int,int)", 2, 2);

//设置单元格值

cell->setProperty("Value","ABC");  

//设置单元格行高

cell->setProperty("RowHeight",50);

//设置单元格列宽 

cell->setProperty("ColumnWidth",30);  

//左对齐（xlLeft）：-4131  居中（xlCenter）：-4108  右对齐（xlRight）：-4152

cell->setProperty("HorizontalAlignment",-4108);

//上对齐（xlTop）-4160 居中（xlCenter）：-4108  下对齐（xlBottom）：-4107

cell->setProperty("VerticalAlignment",-4108);  

 //内容过多，自动换行

 cell->setProperty("WrapText",true);

//清空单元格内容

cell->dynamicCall("ClearContents()"); 

//设置单元格背景色（绿色）

QAxObject* interior =cell->querySubObject("Interior");

interior->setProperty("Color",QColor(0, 255, 0));  

//设置单元格边框色（蓝色）

QAxObject* border =cell->querySubObject("Borders"); 

border->setProperty("Color",QColor(0, 0, 255));  

//获取单元格字体

QAxObject *font =cell->querySubObject("Font");

 //设置单元格字体

font->setProperty("Name",QStringLiteral("华文彩云"));

//设置单元格字体加粗

font->setProperty("Bold",true);

//设置单元格字体大小

font->setProperty("Size", 20);

//设置单元格字体斜体

font->setProperty("Italic",true);

//设置单元格下划线

font->setProperty("Underline",2);

//设置单元格字体颜色（红色）

font->setProperty("Color",QColor(255, 0, 0));

//自动保存文件

work_book->dynamicCall("Save()");

 //另存为另一个文件 

 work_book->dynamicCall("SaveAs(constQString&)", "E:\\test2.xlsx");

 //关闭文件

work_book->dynamicCall("Close(Boolean)",false);

//退出

excel.dynamicCall("Quit(void)");  

//合并单元格
//mergeRange = sheet->querySubObject("Rows(int)", iRowCount);
mergeRange = sheet->querySubObject("Range(QVariant)",tr("A%1:L%2").arg(iRowCount).arg(iRowCount));
mergeRange->dynamicCall("Merge(QVariant)", "false");
//自动展开到合适宽度
QAxObject *autoFitRange = sheet->querySubObject("Columns(A:I)");
autoFitRange->dynamicCall("AutoFit");

 

 

void EvaExcel::ToExcel(char* strPath,const Result* pResult)

{

       try

       {

              // 获取一个Excel对象

              //QAxWidget excel("Excel.Application");     //Widgets must be created in the GUIthread

              QAxObject excel("Excel.Application");

              if(excel.isNull()) return;

 

              // 得到Workbooks集合的指针

              QAxObject* workbooks= excel.querySubObject("Workbooks");

              if(workbooks == NULL ) return;

 

              workbooks->dynamicCall(("Open(const QString&"),strPath);

 

              excel.setProperty("Caption","QtExcel");

              添加一个新的工作簿

              //workbooks->dynamicCall("Add");

 

              //获取当前工作簿

              QAxObject* workbook= excel.querySubObject("ActiveWorkBook");

              if(workbook == NULL ) return;

 

              //得到Sheets对象的指针

              QAxObject* sheets= workbook->querySubObject("Sheets");

              if(sheets == NULL ) return;

 

              //获取工作表集合中的工作表，即sheet1

              QAxObject* worksheet= sheets->querySubObject("Item(const QVariant &)",QVariant("Sheet1"));

              if(worksheet == NULL ) return;

 

              //设置sheet1工作为选中状态

              worksheet->dynamicCall("Select()");

 

              //获取起始行

              QAxObject *used_range= worksheet->querySubObject("UsedRange");

              QAxObject *rows= used_range->querySubObject("Rows");

              int row_start = used_range->property("Row").toInt();

              //获取行数

              int row_count = rows->property("Count").toInt();

             

              worksheet->querySubObject("Rows(int)",1)->querySubObject("insert()");

              worksheet->querySubObject("Rows(int)",2)->querySubObject("insert()");

              worksheet->querySubObject("Rows(int)",3)->querySubObject("insert()");

              worksheet->querySubObject("Rows(int)",4)->querySubObject("insert()");

              worksheet->querySubObject("Range(const QVariant&)",QVariant("A4:H4"))->querySubObject("Merge()");

 

              QString qstrTemp;

              qstrTemp = pResult->GetTestDate();

              qstrTemp +="            ";

              qstrTemp += pResult->GetTestTime();

              qstrTemp +="            ";

              qstrTemp += pResult->GetSampleName();

 

              QAxObject *cellX= worksheet->querySubObject("Cells(int,int)",1,1);  // x,y

              if(cellX == NULL)

              {

                     workbook->dynamicCall("Close()");

                     excel.dynamicCall("Quit()");

                     return;

              }

              QAxObject *fontX= cellX->querySubObject("Font");

              fontX->setProperty("Name",QString("Microsoft YaHei"));

              fontX->setProperty("Size",14);

              //cellX->setProperty("HorizontalAlignment",-4108);//xlCenter

              cellX->setProperty("ColumnWidth",12);

              cellX->dynamicCall("SetValue(const QVariant&)",QVariant(qstrTemp));

              worksheet->querySubObject("Range(const QVariant&)",QVariant("A1:H1"))->querySubObject("Merge()");

 

              QString qstrContent= pResult->GetContent();

              SplitResultToList(qstrContent);

 

              QVector<ResultTable*>::iterator iter;

              int i = 1;

              for(iter = m_ResultExcel.begin();iter != m_ResultExcel.end();++iter)

              {

                     QString strName= (*iter)->GetEleName();

                     QString strContent= (*iter)->GetEleContent();

 

                     QAxObject *cell2= worksheet->querySubObject("Cells(int,int)",2,i); // x,y

                     if(cell2 == NULL)

                     {

                            workbook->dynamicCall("Close()");

                            excel.dynamicCall("Quit()");

                            return;

                     }

                     QAxObject *font2= cell2->querySubObject("Font");

                     font2->setProperty("Name",QString("Microsoft YaHei"));

                     font2->setProperty("Size",14);

                     cell2->setProperty("HorizontalAlignment", -4108);//xlCenter

                     cell2->setProperty("ColumnWidth",12);

                     cell2->dynamicCall("SetValue(const QVariant&)",QVariant(strName));

 

                     QAxObject *cell3= worksheet->querySubObject("Cells(int,int)",3,i); // x,y

                     if(cell3 == NULL)

                     {

                            workbook->dynamicCall("Close()");

                            excel.dynamicCall("Quit()");

                            return;

                     }

                     QAxObject *font3= cell3->querySubObject("Font");

                     font3->setProperty("Name",QString("Microsoft YaHei"));

                     font3->setProperty("Size",14);

                     cell3->setProperty("HorizontalAlignment", -4108);//xlCenter

                     cell3->setProperty("ColumnWidth",12);

                     cell3->dynamicCall("SetValue(const QVariant&)",QVariant(strContent));

 

                     i++;

              }

              workbook->querySubObject("Save()");

 

              //关闭工作簿

              workbook->dynamicCall("Close()");

              //关闭excel

              excel.dynamicCall("Quit()");

 

       }

       catch(...)

       {

              return ;

       }

}

 

CPeasant_Eva
关注
  • 1
    点赞
  • 踩
  • 14
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
QT加载office文件简单方法
ITFramer的专栏
02-24 1万+
记录下：    QT 使用COM组件加载office的文件，使用需要安装MS office。WORD,EXCEL文件可以直接嵌入；PPT文件无法直接嵌入。能嵌入的同志望回复告知。下面描述了 加载;*.doc;*.docx;*.docm;*.xls;*.xlsx;*.xlsm;*.xlsb,*.ppt;*.pptx;*.pptm;*.txt;*.xml;这几种文件。源代码如下： 一：组件
Qt之操作Excel
热门推荐
Sagittarius_Warrior的博客
11-25 1万+
本文主要参考博客：Qt之操作Excel和EXCEL_VBA完全手册，为公司项目设计了一个”Report to Excel“的功能。本文浅谈了几点我对Qt操作Excel编程的一些体会。 一、什么是VBA Visual Basic Application是一种自动化语言（过去称为“宏语言”），可以用它是常用的过程或进程自动化，可以创建自定义的解决方案。目前，主要用它来扩展Window office的功
QT导出文件到EXCEL代码（包括导出图片）以及VBA操作手册
05-05
用QT调用VBA函数实现文件导出到Excel功能
Qt excel VBA findNext及find使用
happy_hsf的博客
04-15 3125
QAxObject *range = pWorksheet->querySubObject("UsedRange");//获得表格范围 if ( range ) { QAxObject *find = range->querySubObject("Find(QVariant)",target); int row，col; ...
Qt 操作 Excel
wqs880527的博客
01-13 810
Qt之操作Excel  (2013-12-0613:57:20)     在VBA的参考手册中就可以看到具体函数、属性的用法，Qt操作Excel主要通过 QAxObject + Excel VBA来实现！    VisualBasic for Applications（VBA）是一种Visual Basic的一种宏语言，主要能用来扩展Windows的应用程式功能，特别是Mi
Excel Vba编程初探一
QT_CL的博客
04-06 1206
【场景】对EXCEL表格批量添加公式【分析】1、如何给单元格写值/公式2、公式如何带变量【Excel设置】【实现】0）代码书写的地方1）代码'Sheet1被激活时触发 Private Sub Worksheet_Activate() Call SetFormula Call TestSetA1ToA10 End Sub '函数定义  设置A1至A10的单元格的值 Private Sub Tes...
QT-EXCEL.zip
07-09
Qt4.8.6实现Excel的读写操作
qt-opensource-windows-x86-mingw482-4.8.7 Qt4.8.7是Qt4的终结版本，是Qt4系
06-17
参考链接 https://www.qt.io/blog/2015/05/26/qt-4-8-7-released https://blog.qt.io/blog/2015/07/01/qt-5-5-released/ 著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。
qt-opensource-linux-x64-5.12.12.run
07-12
qt-opensource-linux-x64-5.12.12.run Qt（官方发音 [kju:t]，音同 cute）是一个跨平台的 C++ 开发库，主要用来开发图形用户界面（Graphical User Interface，GUI）程序，当然也可以开发不带界面的命令行（Command ...
qt-vsaddin-msvc2017
07-19
兼容Qt5.14.2与VS2017
使用QT操作Excel 表格的常用方法
hulinhulin的专栏
09-04 2477
使用QT操作excel的常用方法
VB操作EXCEL文件大全
月亮哥的专栏
12-23 2513
Private Sub writeToExcel(strTmp1() As String, colTmp1 As Collection) ' '    Dim tmp1     Dim i1 As Integer, intCol As Integer, intRow As Integer     Dim xlApp As New Excel.Application     Dim xlB
vb qt 开发应用程序小结
HicomXiaoHao的博客
11-18 2392
1.路径中使用斜杠/和反斜杠\的区别到底是什么。查阅了一些资料后可知。 （1）浏览器地址栏网址使用 斜杆/ ;（2）windows文件浏览器上使用 反斜杠\ ;（3）出现在html url() 属性中的路径，指定的路径是网络路径，所以必须用 斜杆/ ;（4）出现在普通字符串中的路径，如果代表的是windows文件路径，则使用 斜杆/ 和 反斜杠\ 是一样的；如果代表的是网络文件路径，则必须使用
Qt 使用QAxObject增删改excel
qq_24127015的博客
03-02 2160
示例： void TestExcel::on_writeBtn_clicked() { QAxObject excel("Excel.Application"); excel.setProperty("Visible",true); QAxObject *work_books = excel.querySubObject("WorkBooks"); work_b...
【Qt】有一种Bug叫“麻烦制造者——福昕PDF阅读器”
梦想博客
08-21 2975
使用Qt的QAxObject类基于“Microsoft Excel 2007”和“WPS表格”做二次开发(以下将两者称为Excel)。以下代码在基于“WPS表格”二次开发下工作正常，et.exe进程(WPS表格进程)能正常退出。在我开发电脑上，以下代码基于“Microsoft Excel 2007”也工作正常，能到达预期效果。 但是，提交到测试人员处却发现，以下代码基于“Microsoft Ex...
QT之使用QAxObject操作excel
houxiaoliwang的博客
02-28 5728
Visual Basic for Applications（VBA）是一种Visual Basic的一种宏语言，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic Script。1994年发行的Excel 5.0版本中，即具备了VBA的宏功能。 在VBA的参考手册中就可以看到具体函数、属性的用法，Qt操作E...
qt笔记-aes解密
最新发布
01-13
qt笔记是一款用于记录和管理个人资料的应用程序，其中可能包含一些加密的文档或笔记。如果需要对这些加密的文档进行解密，可以使用AES（高级加密标准）解密算法来完成。 首先，需要获取加密的文档，并确定使用的AES...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值