首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

怎的将多个dw导出到同一个excel文件的不同sheet中,并为各个sheet命名为dw的名字

2012-12-31 
怎样将多个dw导出到同一个excel文件的不同sheet中,并为各个sheet命名为dw的名字如题:怎样将多个dw导出到同

怎样将多个dw导出到同一个excel文件的不同sheet中,并为各个sheet命名为dw的名字
如题:怎样将多个dw导出到同一个excel文件的不同sheet中,并把各个sheet命名为dw的名字
[解决办法]
可以参考以下方法

1.速度最快,把数据窗口用saveas存到不同的excel文件中,然后通过com控制excel打开这些文件,然后复制到一个文件中,通过代码来实现

2.把excel文件,把数据逐个写到不同的sheet中,然后保存,这个实现起来简单,如果数据量大,速度比较慢
[解决办法]
1、分别saveas成xls文件
2、将多个xls文件合并到1个xls文件中,合并方法,参考这个
pb9实现在两个工作簿之间进行工作表复制
http://blog.csdn.net/yyoinge/article/details/6942254
[解决办法]
OLEObject xlapp , xlsub
Int ret


SetPointer(HourGlass!)
//-----------------------------------------
//创建 Excel文件.
//-----------------------------------------
// 创建 oleobject 变量 xlapp
//-----------------------------------------
xlapp = CREATE OLEObject
// 连接到EXCEL并检查返回值
ret = xlapp.ConnectToNewObject( "Excel.Sheet" )
IF ret < 0 THEN
MessageBox("未能创建与EXCEL的链接,请重试 !",String(ret))
RETURN
END IF

// 增加一个excel文件于内存中
xlapp.Application.Workbooks.add()

//新增活动工作簿的
xlapp.Application.Workbooks(1).sheets.add()

//取得刚添加的工作簿的引用
xlsub = xlapp.Application.Workbooks(1).worksheets(1)
//工作簿命名
xlsub.Name = '名字'

如果要多个sheet,多次xlapp.Application.Workbooks(1).sheets.add() ,新增的总是sheet(1)

热点排行