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

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

[解决办法]

VB code

示例代码 oleobject o_xls,o_sheet //ole对象long ll_MaxRow //已使用的最大行号，用于在下一行添加数据string ls_FileName //xls文件名long ll_Reto_xls = Create oleobjecto_sheet = Create oleobjectls_FileName = "d:\1.xls"ll_Ret = o_xls.ConnectionToNewObject("EXCEL.Application")if ll_Ret <0 then  MessageBox("提示","连接Excel服务失败")  Destroy o_xls  Destroy o_sheet  returnend ifo_xls.Workbooks.open(ls_FileName) //打开XLS文件o_sheet = o_xls.ActiveWorkBook.Sheets[1] //对Sheets中的第一个表进行操作，一般为Sheet1ll_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()