双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

VC++中，怎样用代码把一组数据写入一个excel文件中？？请注意，是VC程序！

2006-12-15 03:52:06 416 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

zmx0506 墨衍会员 · AI 创作全网分发关注 + 加入社区

VC++通过COM接口高效操作Excel：从原理到实战封装组件对象模型（COM）是微软Windows平台的核心技术之一，它定义了一套二进制接口标准，允许不同编程语言和进程间的对象进行通信。其原理在于通过虚拟函数表（vtable）实现接口与实现的分离，确保了二进制级别的兼容性。这一技术为自动化操作提供了坚实基础，尤其在办公软件集成领域价值显著。Excel作为广泛使用的数据处理工具，其完整功能通过COM接口暴露，使得外部程序能够以编程方式驱动其实例，实现数据读写、格式调整、公式计算等复杂操作。在工业控制、数据分析及报表自动生成等应用场景中，VC++凭借其原生且强大的C 阅读详情

我的要求很简单，就是把一组数据，假如一个10个数字的数组，依次写入EXCEL中的10行。就是一个数据一行，依次往下写就是了，直到写完为止。至于从哪列开始，可以自己指定。
还有，如果指定了已存在的xls文件，则把该文件清空再写；如果没有指定文件，则默认创建一个文件写。

要求就这样。
我以前写过，可惜学习不认真，都忘了，现在时间紧，只好红着脸来问问兄弟们了，我记得那个时候是用excel9.h文件就够了，可现在我装的OFFICE2003，找不到那个头文件了，我记得像这样要求的写文件，代码不超过50行的，大家最好扔段代码上来，再顺便告诉我，头文件哪找？？
谢谢！

高手们，解决了这个问题再去看看
http://community.csdn.net/Expert/TopicView3.asp?id=5229308

...全文

Oracle Primavera P6实战手册：从入门到精通的企业项目管理秘籍本文详细介绍了Oracle Primavera P6在企业项目管理中的实战应用，从环境配置到高级进度控制技巧，帮助用户从入门到精通。通过WBS设计、资源优化和情景模拟等核心功能，提升项目管理效率。特别适合需要处理复杂项目和多团队协作的企业用户。阅读详情

zmx0506

VC.NET 7,538 成员 27,670 内容

+ 关注 + 加入社区

切换为时间正序

zmx0506 2006-12-16

打赏
举报

浮

zmx0506 2006-12-16

打赏
举报

把贴浮起来

看还有没有更优化的

zmx0506 2006-12-15

打赏
举报

需要特别包含说明文件么？
需要特别的工程设置么？

我去试下楼上说的，
不过我以前写过的那个不是这样的哦，好像没这么麻烦，就声明6个变量，Application/sheet/sheets/book/books/range，操作它们好像就可以搞定了。

呵呵，还是谢谢了，
我结贴会给分的，放心。

nogod2 2006-12-15

打赏
举报

//---------------------------------------------------------------------------
// 将DBGrid中的数据导出到Excel文档
//---------------------------------------------------------------------------
//
void __fastcall TFormTabulation::DBGrid2Excel(TDBGrid *dbg, AnsiString strXlsFile)
{
if(!dbg->DataSource->DataSet->Active) // 数据集没有打开就返回
return;
Variant vExcelApp, vSheet;
try
{
vExcelApp = Variant::CreateObject("Excel.Application");
}
catch(...)
{
MessageBox(0, "启动 Excel 出错, 可能是没有安装Excel.","DBGrid2Excel", MB_OK | MB_ICONERROR);
return;
}
// 隐藏Excel界面
vExcelApp.OlePropertySet("Visible", false);
// 新建一个工作表
vExcelApp.OlePropertyGet("Workbooks").OleFunction("Add", 1); // 工作表
// 操作这个工作表
vSheet = vExcelApp.OlePropertyGet("ActiveWorkbook").OlePropertyGet("Sheets", 1);
// 设置Excel文档的字体
vSheet.OleProcedure("Select");
vSheet.OlePropertyGet("Cells").OleProcedure("Select");
vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Size", dbg->Font->Size);
vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Name",dbg->Font->Name.c_str());
vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("FontStyle", "常规");
vSheet.OlePropertyGet("Cells", 1, 1).OleProcedure("Select");
// 表格的行数
int nRowCount(dbg->DataSource->DataSet->RecordCount + 1);
nRowCount = nRowCount < 2? 2: nRowCount;
// 表格的列数
int nColCount(dbg->Columns->Count);
nColCount = nColCount < 1? 1: nColCount;
// 设置单元格的宽度
for(int i=0; i<nColCount; i++)
{
int nColWidth = dbg->Columns->Items[i]->Width;
vExcelApp.OlePropertyGet("Columns", i + 1).OlePropertySet("ColumnWidth", nColWidth / 7);
}
// 先将列名写入Excel表格
for(int j=0; j<dbg->Columns->Count; j++)
{
// 标题行的行高
vExcelApp.OlePropertyGet("Rows", 1).OlePropertySet("RowHeight", 20);
vSheet.OlePropertyGet("Cells", 1, j + 1)
.OlePropertySet("Value", dbg->Columns->Items[j]->FieldName.c_str());
// 设置列名单元格的背景色
Variant vInter = vSheet.OlePropertyGet( "Cells", 1, j + 1).OlePropertyGet("Interior");
vInter.OlePropertySet("ColorIndex", 15); // 灰色
vInter.OlePropertySet("Pattern", 1); // xlSolid
vInter.OlePropertySet("PatternColorIndex", -4105); // xlAutomatic
}
// 将DBGrid中的数据写入Excel表格
dbg->DataSource->DataSet->First();
for(int i=0;i<nRowCount-1; i++)
{
// 普通数据行的行高16
vExcelApp.OlePropertyGet("Rows", i + 2).OlePropertySet("RowHeight", 16);
// 63 63 72 75 6E 2E 63 6F 6D
for(int j=0; j<dbg->Columns->Count; j++)
{
vSheet.OlePropertyGet("Cells", i + 2, j + 1).OlePropertySet("Value",
dbg->DataSource->DataSet->FieldByName(
dbg->Columns->Items[j]->FieldName)->AsString.c_str());
}
dbg->DataSource->DataSet->Next();
}
// 保存Excel文档并退出
vExcelApp.OlePropertyGet("ActiveWorkbook").OleFunction("SaveAs", strXlsFile.c_str());
vExcelApp.OleFunction("Quit");
vSheet = Unassigned;
vExcelApp = Unassigned;
// 工作结束
MessageBox(0, "转换结束!","DBGrid2Excel", MB_OK | MB_ICONINFORMATION);
}

请自己想办法改回数组去

真相重于对错 2006-12-15

打赏
举报

http://support.microsoft.com/kb/196776/

✦双11狂欢大促✦

VC++中，怎样用代码把一组数据写入一个excel文件中？？请注意，是VC程序！

相关推荐

双11狂欢大促