Question

pb 导出excel

有没有方法累加在以前导出的后面
若能解决定当重谢
long numcols , numrows , c, r ,cnt,b
OLEObject xlapp , xlsub
int ret
numcols = long(dw_1.Object.DataWindow.Column.Count)
numrows = dw_1.RowCount()
xlApp = Create OLEObject
ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
if ret < 0 then
MessageBox("Connect to Excel Failed !",string(ret))
return
end if
xlApp.Application.Workbooks.Open("d:\yjvaps.xls") //,false,true//打开EXCEL文件

xlApp.Application.Visible = true
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
cnt = long(xlapp.Application.ActiveWorkbook.Worksheets[1].UsedRange.Rows.Count) //获得最大行
For c = 1 to numcols
For r = 1 to numrows
for b = 1 to cnt
xlsub.cells[cnt+r,c] = dw_1.object.data[r,c]
Next
Next
next
xlApp.DisConnectObject()
Destroy xlapp

这样就可以了, 谢谢你给我感觉

Answer 1

不用重谢。

累加到前面导出的后面关键是找到上次导出的最大行数。
具体代码如下：

OLEObject xlapp , xlsub //定义对象名
integer cnt
xlApp = Create OLEObject //创建对象
xlApp.ConnectToNewObject( "Excel.Sheet" ) //连接到EXCEL
xlApp.Application.Workbooks.Open("XXX.xls") //打开EXCEL文件
cnt=xlapp.Application.ActiveWorkbook.Worksheets[2].UsedRange.Rows.Count //获得最大行
integer numcols,numrows,c,r
numcols = dw_1.Object.DataWindow.Column.Count //获得当前数据窗口的最大列数
numrows = dw_1.RowCount() //获得当前数据窗口的最大行数
For c = 1 to numcols
For r = 1 to numrows
xlsub.cells[cnt+1,c] = dw_1.object.data[r,c] //从cnt+1行开始粘贴数据窗口的数据

Next
Next