将PB数据窗口数据导出到EXCEL模版.doc

《将PB数据窗口数据导出到EXCEL模版.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、将PB数据窗品导出到EXCEL模版一、建立通信OLEObjectExcelServerIntegerli_excelOK,li_rcStringls_path,ls_file,ls_modelExcelServer=CREATEOLEObjectli_ExcelOK=ExcelServer.ConnectToNewObject("excel.application")二、输入新文件名li_rc=GetFileSaveName("输入新的文件名",&ls_path,ls_file,"XLS",&"XLSFiles(*.XLS),*.

2、XLS","C:MyDocuments",&32770)三、判断文件是否存在IfFileExists(ls_path)ThenFileDelete(ls_path)ENDIF四、检查给定的文件路径是否可以写入li_rc=FileOpen(ls_path,StreamMode!,Write!,LockWrite!,Replace!)FileClose(li_rc)filedelete(ls_path)五、获到模版文件ifFileExists(ls_model)thenli_rc=FileCopy(ls_model,ls_path,

3、true)ifli_rc=1thenExcelServer.Workbooks.Open(ls_path)elseExcelServer.workbooks.addExcelServer.Workbooks(1).SaveAs(ls_path)ExcelServer.Workbooks.Open(ls_path)endifendif六、写入数据窗品数据ExcelServer.application.Sheets(“sheet1”).SelectExcelServer.ActiveSheet.Cells(2,1).value='制单

4、编号'七、保存EXCEL数据//关闭警告消息对话框，防止退出Excel时提示ExcelServer.Application.DisplayAlerts=False//保存数据ExcelServer.Application.SaveWorkspace()iff_messagebox('','已成功导出到EXCEL,是否要打开该文件:',2)=1thenExcelServer.Application.Visible=trueelseExcelServer.Application.Visible=falseExcelServer.qui

5、t()endifExcelServer.disconnectobject()destroyexcelserver