如何自动将表中的数据传输到Excel或WORD的文件中

2002-04-14 06:32:15 434 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Excel数据一键批量生成Word文档：Sheet to Doc自动化方案在日常办公与业务流程中，批量生成合同、证书、报告等Word文档是高频需求，而传统的手动复制粘贴方式不仅耗时费力，还极易出错。这类文档自动化的核心在于打通数据源与输出模板之间的通道。Excel作为最通用的数据管理工具，负责结构化数据的维护与清洗；JSON作为轻量级数据传输层，能灵活表达复杂层级关系，为模板渲染提供标准输入；而基于docxtpl的Word模板引擎，则允许非技术人员专注排版，程序员只负责数据填充。通过Python脚本串联这三者，即可构建一条从Excel到JSON再到批量Word文档的自动化流水线。阅读详情

在BCB中用Query查询出某表中符合条件的记录后，如何自动将表中的数据传输到Excel或WORD的文件中，Excel和word文件在数据传过来的时候自动建立

...全文

Claude深度集成Excel：Office智能交互的底层重构 Excel作为企业最广泛使用的结构化数据处理工具，其智能化演进始终受限于AI对表格语义、行列关系与业务规则的理解能力。传统大模型常将表格视为纯文本流，难以精准识别列类型、字段约束与跨表关联逻辑，导致生成公式错误、工具调用脆弱、领域知识脱钩。Claude系列凭借长上下文结构化建模优势，在128K窗口内实现行列区块感知与数据契约推断，显著提升对非标格式、合并单元格、业务术语等真实场景的鲁棒性。结合微软Copilot的MaaS（模型即服务）架构升级，Excel首次实现自然语言指令到Power Query、VBA、阅读详情

libamboo

C++ Builder 13,871 成员 102,696 内容

+ 关注 + 加入社区

切换为时间正序

xiangdie 2002-05-14

打赏
举报

houzy123 2002-04-22

打赏
举报

CB6我没用过,我用的是cb5,我现在没cb6,也不能测试代码,sorry

chenjianboqq 2002-04-21

打赏
举报

以下的程序可以在cb6运行

//execel输出

//定义对象
Variant excel_app; //excel applicatian对象
Variant excel_book; //book
Variant excel_sheet; //工作簿
Variant excel_range; //范围
Variant my_worksheet; //当前页
Variant my_range; //当前范围
///***************输出****************
excel_app=Variant::CreateObject("excel.application"); //创建app对象
excel_book=excel_app.OlePropertyGet("workbooks"); //创建book
excel_app.OlePropertySet("SheetsInNewWorkbook",(Variant)1);
excel_sheet=excel_book.OleFunction("add"); //添加一页
my_worksheet=excel_sheet.OlePropertyGet("ActiveSheet");
excel_app.OlePropertySet("Visible",(Variant)true); //可见
//int j(1);
PropertyGet Range("Range");
PropertySet SetValue("Value");
PropertySet SetFormula("Formula");
PropertyGet GetValue("Value");
PropertyGet GetFormula("Formula");
AnsiString mytmp;
for(int j=1;j<=Table1->FieldCount;++j)
{
Range.ClearArgs();
SetValue.ClearArgs();
mytmp=String(char(64+j))+IntToStr(1);
//Range.ClearArgs();
// SetValue.ClearArgs();
my_range = my_worksheet.Exec(Range << mytmp );
my_range.Exec(SetValue << Table1->Fields->Fields[j-1]->FieldName);
Range.ClearArgs();
}
Table1->Bof;
for (int i=2;i<=Table1->RecordCount+1;++i)
{

for(int j=1;j<=Table1->FieldCount;++j)
{
Range.ClearArgs();
SetValue.ClearArgs();
mytmp=String(char(64+j))+IntToStr(i);
//Range.ClearArgs();
//SetValue.ClearArgs();
my_range = my_worksheet.Exec(Range << mytmp );
my_range.Exec(SetValue << Table1->Fields->Fields[j-1]->AsString);
Range.ClearArgs();
}
Table1->Next();
}
}

libamboo 2002-04-20

打赏
举报

:)老兄,我真不是向你想象的那么聪明，简直太笨，我不会用f1book，也很少用adoquery控件，多数用query控件，能告诉f1book的用法吗

caijitao 2002-04-20

打赏
举报

:)老兄，会用f1book吧。将adoquery的值利用循环可以非常方便的写入，而后再savetofile，：）呵呵，百试不爽。而且性能可比excelserver强啦。

chenjianboqq 2002-04-20

打赏
举报

楼上的朋友为什么你的程序在CB5可以而在CB6却出现类字
符串无效的提示呢急盼回答！！

houzy123 2002-04-20

打赏
举报

我有将table转到excel的原代码,word参考bcb例子即可
#include "ComObj.hpp"
#include <utilcls.h>
....
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(SaveDialog1->Execute())
{
AnsiString filenamex=SaveDialog1->FileName+".xls";
Variant Wb,Sh1;
Wb=CreateOleObject("Excel.Sheet");
int i=0;
int iFieldCount=Table1->FieldCount;
AnsiString cc;
Sh1=Wb.OlePropertyGet("ActiveSheet");
for(int j=0;j<iFieldCount;j++)
{
cc=Table1->Fields->Fields[j]->FieldName;
Sh1.OlePropertyGet("Cells",1,j+1).OlePropertySet("Value",cc);
}
i=1;
Table1->First();

while (!Table1->Eof)
{
i++;
for(int j=0;j<iFieldCount;j++)
{
cc=Table1->Fields->Fields[j]->AsString;
Sh1.OlePropertyGet("Cells",i,j+1).OlePropertySet("Value",cc);
}
Table1->Next();
}
Wb.OleProcedure("SaveAs",filenamex);
Wb.OleProcedure("Close");
}
}
以上代码在bcb5测试通过

libamboo 2002-04-19

打赏
举报

zken:你好？

我试了您这次给我的代码是我想象的那样，但是我最终想要也是要与数据库相连接，我用Query查询从Table中得到的数据输出到WORD 或 EXECL中，按着你第一次给的代码行吗？请您指教，越快越好，非常感谢！

zken 2002-04-19

打赏
举报

不好意思，我的程序用了数据库，你没必要下边是一个例子，你new一个项目，然后再加上两个按钮就可以用了，记得包含文件#include <utilcls.h> 上次我忘了说了。

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <utilcls.h>
#include "wordtable.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//******************word输出×*********
//******************定义变量***********
Variant word_app; //application
Variant word_docs; //文档对象
Variant word_range; //range对象
Variant word_tables; //tables对象
Variant word_table; //table对象
Variant active_doc; //当前文档
Variant the_cell; //单元格对象
Variant cell_range; //单元格的范围
AnsiString showme; //要显示的东西
int cell_width ; //表格宽度
long cell_long ; //表格长度
//**************开始操作××××××××
word_app=Variant::CreateObject("Word.application"); //创建word。APPLICATION对象
word_docs=word_app.OlePropertyGet("documents"); //获得文档对象
word_docs.OleProcedure("add"); //添加新文档
word_app.OlePropertySet("Visible",true); //可见
active_doc=word_app.OlePropertyGet("ActiveDocument"); //当前文档
word_range=active_doc.OleFunction("Range"); //range对象
word_tables=word_range.OlePropertyGet("Tables"); //得到table对象
//word_table=word_tables.OleFunction("Add",word_range,100,10);
cell_width=6; //得到宽度
cell_long=8;
//*****画表格
word_table=word_tables.OleFunction("Add",word_range,cell_long,cell_width);
int j=1;
Procedure InsertAfter("InsertAfter");
for (int i=1;i<6 ;++i)
{
for(int j=1;j<4;++j)
{
the_cell=word_table.OleFunction("cell",j,i);
cell_range=the_cell.OlePropertyGet("range");
InsertAfter.ClearArgs();
cell_range.Exec(InsertAfter<<"easy");
}

}

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
//execel输出
//定义对象
Variant excel_app; //excel applicatian对象
Variant excel_book; //book
Variant excel_sheet; //工作步
Variant excel_range;
Variant my_worksheet; //当前页
Variant my_range; //当前范围

///***************输处****************
excel_app=Variant::CreateObject("excel.application"); //创建app对象
excel_book=excel_app.OlePropertyGet("workbooks"); //创建book
excel_app.OlePropertySet("SheetsInNewWorkbook",(Variant)1);
excel_sheet=excel_book.OleFunction("add"); //添加一页
my_worksheet=excel_sheet.OlePropertyGet("ActiveSheet");
excel_app.OlePropertySet("Visible",(Variant)true); //可见
int j(1);
PropertyGet Range("Range");
PropertySet SetValue("Value");
PropertySet SetFormula("Formula");
PropertyGet GetValue("Value");
PropertyGet GetFormula("Formula");
AnsiString mytmp;
for (int i=1;i<5;++i)
{

for(int j=1;j<8;++j)
{
Range.ClearArgs();
SetValue.ClearArgs();
mytmp=String(char(64+i))+IntToStr(j);
Range.ClearArgs();
SetValue.ClearArgs();
my_range = my_worksheet.Exec(Range << mytmp );
my_range.Exec(SetValue << "excel");
Range.ClearArgs();
}

}

}
//---------------------------------------------------------------------------

WeiXuBin 2002-04-18

打赏
举报

你们可以把5张图片放在WOrd中吗？高难度哦！

libamboo 2002-04-17

打赏
举报

若将某个固定表中的数据用Query查询直接输出到word或excel中与由某个固定表中的数据直接输出到word或excel中有何不同，请指教，我非常急需

libamboo 2002-04-17

打赏
举报

zken(乱码) :您好，我这两天看了您的解答代码，我在BCB下运行了一下，编译时出现了几个错误，我只运行了第二部分excel，我将代码和错误写出，请您在给我修改一下，我急想得到正确的答案。

在您给的代码基础上该了一点：
Variant excel_app; //excel applicatian对象
Variant excel_book; //book
Variant excel_sheet; //工作步
Variant excel_range;
Variant my_worksheet; //当前页
Variant my_range; //当前范围

///***************输入****************
excel_app=Variant::CreateObject("excel.application"); //创建app对象
excel_book=excel_app.OlePropertyGet("workbooks"); //创建book
excel_app.OlePropertySet("SheetsInNewWorkbook",(Variant)1);
excel_sheet=excel_book.OleFunction("add"); //添加一页
my_worksheet=excel_sheet.OlePropertyGet("ActiveSheet");
excel_app.OlePropertySet("Visible",(Variant)true); //可见
int j(1);
// ADOQuery1->Bof;
Table1->Bof;
PropertyGet Range("Range");
PropertySet SetValue("Value");
PropertySet SetFormula("Formula");
PropertyGet GetValue("Value");
PropertyGet GetFormula("Formula");
AnsiString mytmp;
while (!Table1->Eof)
{
int i;
// for(int i(1);i<=check_count;++i)
for(i=0;i<Table1->FieldCount;i++)
{
Range.ClearArgs();
SetValue.ClearArgs();
mytmp=IntToStr(i)+IntToStr(j);
//excel_range=excel_sheet_now.OlePropertyGet(Range << "A1");
//excel_range.Exec(SetValue << "fdFDFD");
mytmp=Intstrexcel(j,i);
Range.ClearArgs();
SetValue.ClearArgs();
my_range = my_worksheet.Exec(Range << Intstrexcel(j,i) );
my_range.Exec(SetValue << Table1->Fields->Fields[i-1]->AsString.Trim());
Range.ClearArgs();
}
Table1->Next();
++j;
}

错误信息：
[C++ Error] Unit1.cpp(120): E2268 Call to undefined function 'Intstrexcel'
[C++ Error] sysvari.h(2561): E2450 Undefined structure 'TAutoArgs<1>'
[C++ Error] sysvari.h(2561): E2449 Size of 'args' is unknown or zero
[C++ Error] sysvari.h(2561): E2450 Undefined structure 'TAutoArgs<1>'
[C++ Error] sysvari.h(2562): E2094 'operator+' not implemented in type 'TAutoArgs<1>' for arguments of type 'int'
[C++ Error] sysvari.h(2563): E2450 Undefined structure 'TAutoArgs<1>'
[C++ Error] sysvari.h(2563): E2285 Could not find a match for 'Variant::OlePropertySet(const AnsiString,undefined)'
表的数据源也设置好了

TR@SOE 2002-04-16

打赏
举报

www.trackon.net/bcblist/resource.asp里有两篇文章可以参考。

libamboo 2002-04-16

打赏
举报

zken(乱码) 你好？我还想请教一下，你用的ADOQuery和通过ODBC数据源连接的Query的用法一样吗？我是一个初学，里面还有很多不明白的，你定义的变量不用在头文件中写吗，

zken 2002-04-15

打赏
举报

下边是我的程序中的一部分，你应该能用的上，别忘了给分！
//开始输出
//1)word输出
if (out_type==1 )
{
//******************word输出×*********
//******************定义变量***********
Variant word_app; //application
Variant word_docs; //文档对象
Variant word_range; //range对象
Variant word_tables; //tables对象
Variant word_table; //table对象
Variant active_doc; //当前文档
Variant the_cell; //单元格对象
Variant cell_range; //单元格的范围
AnsiString showme; //要显示的东西
int cell_width ; //表格宽度
long cell_long ; //表格长度
//**************开始操作××××××××
word_app=Variant::CreateObject("Word.application"); //创建word。APPLICATION对象
word_docs=word_app.OlePropertyGet("documents"); //获得文档对象
word_docs.OleProcedure("add"); //添加新文档
word_app.OlePropertySet("Visible",true); //可见
active_doc=word_app.OlePropertyGet("ActiveDocument"); //当前文档
word_range=active_doc.OleFunction("Range"); //range对象
word_tables=word_range.OlePropertyGet("Tables"); //得到table对象
//word_table=word_tables.OleFunction("Add",word_range,100,10);
cell_width=check_count; //得到宽度
cell_long=ADOQuery1->RecordCount;
//*****画表格
word_table=word_tables.OleFunction("Add",word_range,cell_long,cell_width);
int j=1;
Procedure InsertAfter("InsertAfter");
while (!ADOQuery1->Eof)
{

for(int i(1);i<=cell_width;++i)
{
the_cell=word_table.OleFunction("cell",j,i);
cell_range=the_cell.OlePropertyGet("range");
cell_range.OleProcedure("insertbefore",ADOQuery1->Fields->Fields[i-1]->AsString.Trim());
//cell_range.OleProcedure("insertafter","a");
}
ADOQuery1->Next();
++j;
}
}

if (out_type==2)
{ //execel输出
//定义对象
Variant excel_app; //excel applicatian对象
Variant excel_book; //book
Variant excel_sheet; //工作步
Variant excel_range;
Variant my_worksheet; //当前页
Variant my_range; //当前范围

///***************输入****************
excel_app=Variant::CreateObject("excel.application"); //创建app对象
excel_book=excel_app.OlePropertyGet("workbooks"); //创建book
excel_app.OlePropertySet("SheetsInNewWorkbook",(Variant)1);
excel_sheet=excel_book.OleFunction("add"); //添加一页
my_worksheet=excel_sheet.OlePropertyGet("ActiveSheet");
excel_app.OlePropertySet("Visible",(Variant)true); //可见
int j(1);
ADOQuery1->Bof;
PropertyGet Range("Range");
PropertySet SetValue("Value");
PropertySet SetFormula("Formula");
PropertyGet GetValue("Value");
PropertyGet GetFormula("Formula");
AnsiString mytmp;
while (!ADOQuery1->Eof)
{

for(int i(1);i<=check_count;++i)
{
Range.ClearArgs();
SetValue.ClearArgs();
mytmp=IntToStr(i)+IntToStr(j);
//excel_range=excel_sheet_now.OlePropertyGet(Range << "A1");
//excel_range.Exec(SetValue << "fdFDFD");
mytmp=Intstrexcel(j,i);
Range.ClearArgs();
SetValue.ClearArgs();
my_range = my_worksheet.Exec(Range << Intstrexcel(j,i) );
my_range.Exec(SetValue << ADOQuery1->Fields->Fields[i-1]->AsString.Trim());
Range.ClearArgs();
}
ADOQuery1->Next();
++j;
}
}

leonpard 2002-04-14

打赏
举报

关注

libamboo 2002-04-14

打赏
举报

在那里能找到

binbin 2002-04-14

打赏
举报

有专门的控件。
mxExports

libamboo 2002-04-14

打赏
举报

我用的是SQLServer 和DBF表，请大家帮忙多谢了

如何自动将表中的数据传输到Excel或WORD的文件中

相关推荐