PB6中把一条记录怎么导出并追加进相同格式的原XLS文件中

示例代码

 oleobject o_xls,o_sheet //ole对象
long ll_MaxRow //已使用的最大行号，用于在下一行添加数据
string ls_FileName //xls文件名
long ll_Ret

o_xls = Create oleobject
o_sheet = Create oleobject

ls_FileName = "d:\1.xls"

ll_Ret = o_xls.ConnectionToNewObject("EXCEL.Application")
if ll_Ret <0 then
  MessageBox("提示","连接Excel服务失败")
  Destroy o_xls
  Destroy o_sheet
  return
end if

o_xls.Workbooks.open(ls_FileName) //打开XLS文件
o_sheet = o_xls.ActiveWorkBook.Sheets[1] //对Sheets中的第一个表进行操作，一般为Sheet1

ll_MaxRow = o_sheet.UsedRange.Rows.Count //获取已使用的行号
ll_MaxRow++ //新行行号

//下面就是赋值操作
o_sheet.Cells(ll_MaxRow,1).Values="aaa" //新行，第一列值为aa

//保存、并退出，做清理
o_xls.ActiveWrokBook.Save()
o_xls.ActiveWrokBook.Close()
o_xls.Application.quit()
o_xls.DisConnectObject()