将数据库中读取的文件写入Excel文件

最新推荐文章于 2022-03-13 19:27:47 发布
最新推荐文章于 2022-03-13 19:27:47 发布
阅读量708 收藏
点赞数
分类专栏： C++ Builder 文章标签： excel 数据库 buffer merge join 报表
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/o0Linda0o/article/details/4794125
版权

1.使用SaveDialog控件，选中要导入的文件，得到用户要导入的文件路径。

2.再打开Excel，得到对应的对象

            Variant Ex = Variant::CreateObject("Excel.Application");
            //file://设置Excel为不可见
            Ex.OlePropertySet("Visible",false);
             //file://打开指定的Excel报表文件。
            Ex.OlePropertyGet("WorkBooks").OleProcedure("Open",StrApp.c_str());
            Variant Wb = Ex.OlePropertyGet("ActiveWorkBook");
            Variant Sheet = Wb.OlePropertyGet("ActiveSheet");//获得当前默认的Sheet

3.得到Sheet之后就可以对表开始操作了。

           //合并单元格，从A1到C3

          Sheet.OlePropertyGet("Range","A1:C3").OleFunction("Merge" , false);

          //给单元格赋值

          Sheet.OlePropertyGet("Cells",1,1).OlePropertySet("Value","项目计划书");

          //通过数据集给表格赋值。循环数据集，得到每行数据

         for(CDS_GX->First(); !CDS_GX->Eof; CDS_GX->Next())
        {

            //将得到的对应表格中的单元格由AnsiString类型转换成为char数组。
            AAA=CDS_GX->FieldByName("Size")->AsString;
            Sheet.OlePropertyGet("Cells",3,4).OlePropertySet("Value",AAA.c_str());
        }   

//表中的文字都可以用字符串拼接，但是都需要转换成char的数组///

 

4.关闭Excel文件，并且将资源释放。

      Wb.OleProcedure("SaveAs",StrApp.c_str());//保存表格
      Wb.OleProcedure("Close");//关闭表格

      Ex.OleFunction("Quit");//退出Excel
      Ex = Unassigned;
      Wb = Unassigned;
      Sheet = Unassigned;

 


 

------------------------------------------------------------------------------------------------------------------------------------------

------------------------------------------------------------------------------------------------------------------------------------------

------------------------------------------------------------------------------------------------------------------------------------------

 if(SaveDialog1->Execute())
        {
            AnsiString StrApp=SaveDialog1->FileName;
             try
            {
           Variant Ex = Variant::CreateObject("Excel.Application");
            //file://设置Excel为不可见
            Ex.OlePropertySet("Visible",false);
            //file://打开指定的Excel报表文件。
        //Ex.OlePropertyGet("WorkBooks").OleProcedure("Create",StrApp.c_str());
        Ex.OlePropertyGet("WorkBooks").OleProcedure("Open",StrApp.c_str());
        //("Open",str_ExcelFileName,NULL,IfReadOnly);
        Variant Wb = Ex.OlePropertyGet("ActiveWorkBook");
        Variant Sheet = Wb.OlePropertyGet("ActiveSheet");//获得当前默认的Sheet
        //标题
        Sheet.OlePropertyGet("Range","A1:K1").OleFunction("Merge" , false);
        Sheet.OlePropertyGet("Cells",1,1).OlePropertySet("Value","项目计划书");

        Sheet.OlePropertyGet("Cells",2,1).OlePropertySet("Value","序号");
        Sheet.OlePropertyGet("Cells",2,2).OlePropertySet("Value","项目编号");
        Sheet.OlePropertyGet("Cells",2,3).OlePropertySet("Value","名称");
        Sheet.OlePropertyGet("Cells",2,4).OlePropertySet("Value","规格");
        Sheet.OlePropertyGet("Cells",2,5).OlePropertySet("Value","数量");
        Sheet.OlePropertyGet("Cells",2,6).OlePropertySet("Value","单位");
        Sheet.OlePropertyGet("Cells",2,7).OlePropertySet("Value","工序");
        Sheet.OlePropertyGet("Cells",2,8).OlePropertySet("Value","操作人");
        Sheet.OlePropertyGet("Cells",2,9).OlePropertySet("Value","工时(h)");
        Sheet.OlePropertyGet("Cells",2,10).OlePropertySet("Value","单价(元)");
        Sheet.OlePropertyGet("Cells",2,11).OlePropertySet("Value","完工时间");

        CDS_GX->CommandText="select ROW_NUMBER() OVER(ORDER BY a.[PreID] DESC) AS 'ID',b.ItemNo,b.ItemName,a.[Size],a.Number,a.Unit from dbo.t_PreMaterial as a right JOIN t_AppItem as b on a.ProductID=b.ProductID where b.ItemID="+IntToStr(CurItemID);
        pDBAgent->GetDataSet(CDS_GX->CommandText,CDS_GX);

        AnsiString  strItemNo="";
        AnsiString  strItemName="";
        AnsiString AAA="";
        for(CDS_GX->First(); !CDS_GX->Eof; CDS_GX->Next())
        {
            Sheet.OlePropertyGet("Cells",3,1).OlePropertySet("Value","1");
            AAA=CDS_GX->FieldByName("Size")->AsString;
            Sheet.OlePropertyGet("Cells",3,4).OlePropertySet("Value",AAA.c_str());
            AAA=CDS_GX->FieldByName("Number")->AsString;
            Sheet.OlePropertyGet("Cells",3,5).OlePropertySet("Value",AAA.c_str());
            AAA=CDS_GX->FieldByName("Unit")->AsString;
            Sheet.OlePropertyGet("Cells",3,6).OlePropertySet("Value",AAA.c_str());
            strItemNo=CDS_GX->FieldByName("ItemNo")->AsString;
            strItemName=CDS_GX->FieldByName("ItemName")->AsString;
        }
        CDS_GX->CommandText="select B.Spec,B.Number,B.Unit,E.UserName,D.ProcessName,B.TimeNum,B.UnitPrice,convert(varchar,B.EndTime,23) as EndTime from t_Plan AS A right JOIN t_Planentry as B On A.ID=B.PlanID left join t_ProProcess as C on A.ProProcessID=C.ProProcessID left join t_Process as D On C.ProcessID=D.ProcessID left join t_User as E ON B.UserID=E.UserID where A.ItemID="+IntToStr(CurItemID);
        pDBAgent->GetDataSet(CDS_GX->CommandText,CDS_GX);

        int i=0;
        for(CDS_GX->First(); !CDS_GX->Eof; CDS_GX->Next())
        {
            i++;
            Sheet.OlePropertyGet("Cells",3+i,1).OlePropertySet("Value",IntToStr(3+i).c_str());
            AAA=CDS_GX->FieldByName("Spec")->AsString;
            Sheet.OlePropertyGet("Cells",3+i,4).OlePropertySet("Value",AAA.c_str());
            AAA=CDS_GX->FieldByName("Number")->AsString;
            Sheet.OlePropertyGet("Cells",3+i,5).OlePropertySet("Value",AAA.c_str());
            AAA=CDS_GX->FieldByName("Unit")->AsString;
            Sheet.OlePropertyGet("Cells",3+i,6).OlePropertySet("Value",AAA.c_str());
            AAA=CDS_GX->FieldByName("ProcessName")->AsString;
            Sheet.OlePropertyGet("Cells",3+i,7).OlePropertySet("Value",AAA.c_str());
            AAA=CDS_GX->FieldByName("UserName")->AsString;
            Sheet.OlePropertyGet("Cells",3+i,8).OlePropertySet("Value",AAA.c_str());
            AAA=CDS_GX->FieldByName("TimeNum")->AsString;
            Sheet.OlePropertyGet("Cells",3+i,9).OlePropertySet("Value",AAA.c_str());
            AAA=CDS_GX->FieldByName("UnitPrice")->AsString;
            Sheet.OlePropertyGet("Cells",3+i,10).OlePropertySet("Value",AAA.c_str());
            AAA=CDS_GX->FieldByName("EndTime")->AsString;
            Sheet.OlePropertyGet("Cells",3+i,11).OlePropertySet("Value",AAA.c_str());
        }
        AAA="B3:B"+IntToStr(3+i);
        Sheet.OlePropertyGet("Range",AAA.c_str()).OleFunction("Merge" , false);
        Sheet.OlePropertyGet("Cells",3,2).OlePropertySet("Value",strItemNo.c_str());
        AAA="C3:C"+IntToStr(3+i);
        Sheet.OlePropertyGet("Range",AAA.c_str()).OleFunction("Merge" , false);
        Sheet.OlePropertyGet("Cells",3,3).OlePropertySet("Value",strItemName.c_str());


      Wb.OleProcedure("SaveAs",StrApp.c_str());//保存表格
      Wb.OleProcedure("Close");//关闭表格

      Ex.OleFunction("Quit");//退出Excel
      Ex = Unassigned;
      Wb = Unassigned;
      Sheet = Unassigned;
      }
            catch(...)
            {
                ShowMsg("启动Excel出错，可能由于Excel没有正确安装！");
                return;
            }
      }

AnsiString __fastcall TScheduleFrame::ReturnChar(char c,int n)
{
 const char end = 'Z';

 int _span = end - c;     //距离最后一个字母Z的距离

 int _buffer = (_span==0) ? 1 : n / _span;   //前缀 _buffer个A

 int _last = n - _buffer * _span;  //最后一个字母
 
 char *_return = new char[_buffer + 2];
 for(int i=0;i<_buffer;i++)
  _return[i]='A';
 _return[_buffer]=(char)(_last+64);
 _return[_buffer+1]='/0';
 return (AnsiString)_return;
}

o0Linda0o
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
使用POI解析excel文件并写入数据库
05-31
使用poi解析excel文件，并将数据写入到数据库 项目说明 这个项目实现的功能是读取excel文件中的数据，解析并写入数据库。 读取的excel文件位于项目目录下的 excel\0805.xlsx 使用IntelliJ IDEA开发此项目 使用MYSQL...
用OLE操作Excel（转）
baby4640的博客
08-30 216
用OLE操作Excel 关 键 字：Office,Excel,Sheet,Cell,OLE,CreateObject,Merge,工作簿,工作表,单元格,合并,自动化 要在应用程序中控制Excel的运行,首先必须在编制自动化客户程序时包含Comobj.hpp#include "Comobj.hpp" C++ Builder把Excel自动化对象的功能包装在下面的四个Ole...
C++ 操作EXCEL
lzwxyz的专栏
08-12 2万+
要在应用程序中控制Excel的运行,首先必须在编制自动化客户程序时包含Comobj.hpp #include "Comobj.hpp" C++ Builder把Excel自动化对象的功能包装在下面的四个Ole Object Class函数中,应用人员可以很方便地进行调用。
将从数据库中获取的数据写入到Excel表中
w13707470416的博客
01-04 2008
pom.xml文件写入代码，maven自动加载poi-3.1-beta2.jar &amp;lt;!-- https://mvnrepository.com/artifact/poi/poi --&amp;gt; &amp;lt;dependency&amp;gt; &amp;lt;groupId&amp;gt;poi&amp;lt;/groupId&a...
把数据库中的数据写出到excel表格中
weixin_61294560的博客
03-13 1975
上一篇写了excel数据导入到数据库，相应的，数据也能从数据库导出到表格中，一下为实现代码，欢迎各位大佬探讨。 第一步，数据库字段你要提前维护好，那些字段，什么类型等。 第二步，创建一个springboot项目，或者你在自己项目里面加入这么一个接口都是可以的。 第三步，添加依赖， <dependency> <groupId>org.apache.poi</groupId> <artifactId>poi</artifactId...
java解析Excel文件并把数据存入数据库和导出数据为excel文件SpringBoot代码示例
05-08
1、java解析读取excel文件中的数据，并写入数据库。 2、java读取数据库数据，并导出为excel文件。 3、README.md中有详细的操作步骤示例。 使用说明： 1. 先使用postman导入：other/excel相关.postman_collection....
Python将数据库中的内容写入Excel
11-20
Python使用xlwt、cx_oracle将数据库中的内容写入Excel表格
批量读取excel文件并利用dbcp连接池写入数据库
11-15
批量读取excel文件并利用dbcp连接池写入数据库
Python实现读写sqlite3数据库并将统计数据写入Excel的方法示例
09-09
主要介绍了Python实现读写sqlite3数据库并将统计数据写入Excel的方法,涉及Python针对sqlite3数据库的读取及Excel文件相关操作技巧,需要的朋友可以参考下
数据库数据写入Excel
05-06
把数据库查询出来的数据写入Excel文档可带图片
自动生成excel表，并将生成的数据以邮件的方式自动发送
04-23
1.定时自动生成excel文件， 2.定时发送邮件
python实现读取数据库生成Excel然后发送邮件
03-16
python3 实现读取数据库将结果生成Excel文件，然后将文件发送到指定邮件。
excel文件写入数据库
10-11
将excel文件 写入数据库
NCL学习笔记（1）——NCL读取nc文件一个变量存入一个新的nc文件
热门推荐
suncrx的博客
10-08 3万+
代码： load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl" load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl" load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl" begin ncfile
java实现从数据库读取数据写入excel，写入多个sheet，6万数据耗时100秒附近
ghost_9707的博客
11-24 5318
import java.io.File; import java.io.FileNotFoundException; import java.io.FileOutputStream; import java.io.IOException; import java.io.OutputStream; import java.sql.Connection; import java.sql.DriverM
第一篇 博客：java从数据库读取数据，并写入到excel表格中
qq_41282349的博客
04-03 6071
  今天，组长分配了查询数据库记录，并把这些记录写入到excel表格中，以前没有尝试过，借鉴了一些别人的代码，最终实现了功能，写一篇博客，总结一下这个过程。1.准备需要用到的jar包    1.jxl.jar     2.mysql-connector-java-5.1.30.jar     网上百度，这些jar包都可以下载的2.将下载的jar包，配置到项目当中    右击项目，选择Build P...
python读取excel文件写入数据库
最新发布
08-04
要将Python中的Excel文件数据写入数据库，可以按照以下步骤进行操作： 1. 首先，使用xlrd库来读取Excel文件的数据。可以使用open_workbook函数打开Excel文件，然后使用sheet_by_index函数获取指定索引的工作表。可以使用nrows属性获取总行数，然后使用循环遍历每一行的数据，并将其保存到一个列表中。 2. 接下来，使用pandas库的DataFrame对象来导出数据。可以使用read_excel函数读取Excel文件，并将其转换为DataFrame对象。然后，可以使用to_sql函数将DataFrame对象中的数据写入数据库表中。 下面是一个示例代码，演示了如何将Excel文件中的数据写入数据库： ```python import pandas as pd import xlrd import pymysql # 读取Excel文件 FilePath = 'E:/PDBC/StudentInfo.xls' wkb = xlrd.open_workbook(FilePath) sheet = wkb.sheet_by_index(0) rows_number = sheet.nrows # 将Excel数据保存到列表中 data = [] for i in range(rows_number): x = sheet.row_values(i) data.append(x) # 将数据转换为DataFrame对象 df = pd.DataFrame(data) # 连接数据库 conn = pymysql.connect(host='localhost', user='root', password='password', db='database_name') # 将DataFrame数据写入数据库表 df.to_sql('table_name', conn, if_exists='replace', index=False) # 关闭数据库连接 conn.close() ``` 请注意，上述代码中的`localhost`、`root`、`password`和`database_name`需要根据实际情况进行替换，以便连接到正确的数据库。同时，`table_name`也需要替换为要写入数据的目标表的名称。 希望这个示例能帮助到你！

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值