怎样将多个dw导出到同一个excel文件的不同sheet中，并为各个sheet命名为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.****.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)