ccrun及EXCEL行家请进

[netsys2]

从网上搜索到CCRUN的LISTVIEW2EXCEL代码，很好用，谢谢。

但我还需要创建如下EXCEL表格，

该咋办？


某某系统销售标
2010.1.1 张无忌
部门 数量 金额
销售1 100 1000
销售2 200 2000

后面那3行很简单，照你的代码改下就知道了，
关键是前面那2行，该咋弄？

[宝龙哥]

合并单元格：
sh.OlePropertyGet("Range", "A2:A3:C3").OleFunction("Merge", false);//将指定的单元格合并

[纯冰糖]

嗯，合并单元格

[mrzhjy]

合并单元格/居中，等等这些，通通可以实现，有一个很好的办法，到EXCEL中录制宏，把你操作的步骤全记录下来，直到你最终的效果，然后，编辑宏，这时候，你就可以看到VB的代码，把它转成Delphi很容易，转为C++稍微麻烦一点点，我曾经做很多特殊的EXCEL表格，都是这么弄出来的，只要能在EXCEL中手工做到的效果，代码一样能实现。

[ccrun.com]

很久不见来电了。最近忙什么呢。

你这个表格不算复杂，用单元格的合并可以搞定，只需计算好需要合并的行和列就行了。

[宝龙哥]

BCB操作excel的速度远远不及access操作EXCEL的十分之一，我曾经做过一个项目，应客户要求用的Access，先把数据按格式放到excel的工作簿里面，然后按页面大小画表格和图表，然后复制这些页面，Access的速度简直是太快了

[netsys2]

[Quote=引用 1 楼 kfrght 的回复:]

合并单元格：
sh.OlePropertyGet("Range", "A2:A3:C3").OleFunction("Merge", false);//将指定的单元格合并
[/Quote]

谢谢，
我成功合并了。
但咋让它居中？

vExcelApp.OlePropertyGet("Range", "A1:B1:C1").OleFunction("Merge", false);
vSheet.OlePropertyGet("Cells", 1, 1)
.OlePropertySet("Value",
"测试大标题");

同志们，我EXCEL都不大会用，
所有原谅了。

[netsys2]

[Quote=引用 4 楼 ccrun 的回复:]

很久不见来电了。最近忙什么呢。

你这个表格不算复杂，用单元格的合并可以搞定，只需计算好需要合并的行和列就行了。
[/Quote]

兄弟，俺一把年纪了。
编程第一线的工作少做了
但是这玩意也不想丢，
所以时不时做点编程工作。

你还在山西？

我们公司在山西还有不少客户

http://www.sunnysec.com.cn/

成都玩VC,BCB的朋友，愿意来我们公司参观的，
可与我联系。

[netsys2]

[Quote=引用 5 楼 kfrght 的回复:]

BCB操作excel的速度远远不及access操作EXCEL的十分之一，我曾经做过一个项目，应客户要求用的Access，先把数据按格式放到excel的工作簿里面，然后按页面大小画表格和图表，然后复制这些页面，Access的速度简直是太快了
[/Quote]

其实最快的是CSV格式！
我以前一直用。
产生的文件很小，通用性强。
但客户不乐意！

[宝龙哥]

[Quote=引用 6 楼 netsys2 的回复:]
引用 1 楼 kfrght 的回复:

合并单元格：
sh.OlePropertyGet("Range", "A2:A3:C3").OleFunction("Merge", false);//将指定的单元格合并


谢谢，
我成功合并了。
但咋让它居中？

vExcelApp.OlePropertyGet("Range", "A1:B1:C1").OleFunction("Me……
[/Quote]

sh.OlePropertyGet("Range",str1).OlePropertySet("HorizontalAlignment",3);//居中

[宝龙哥]

str1="A1:B1";

[Behard]

最快的处理方法请百度 彻底抛弃用OLE做EXCEL

[netsys2]

[Quote=引用 11 楼 behard 的回复:]

最快的处理方法请百度 彻底抛弃用OLE做EXCEL
[/Quote]

愿闻其详。