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

将PB数据窗品导出到EXCEL模版

一、建立通信

OLEObject ExcelServer

Integer li_excelOK,li_rc

String ls_path, ls_file,ls_model

ExcelServer = CREATE OLEObject

li_ExcelOK = ExcelServer.ConnectToNewObject( "excel.application" )

二、输入新文件名

li_rc = GetFileSaveName ( "输入新的文件名", &

ls_path, ls_file, "XLS", &

"XLS Files (*.XLS),*.XLS" , "C:\My Documents", &

32770)

三、判断文件是否存在

If FileExists (ls_path ) Then

FileDelete(ls_path)

END IF

四、检查给定的文件路径是否可以写入

li_rc=FileOpen(ls_path,StreamMode!,Write!,LockWrite!,Replace!)

FileClose(li_rc)

filedelete(ls_path)

五、获到模版文件

if FileExists (ls_model ) then

li_rc = FileCopy (ls_model , ls_path, true)

if li_rc = 1 then

ExcelServer.Workbooks.Open(ls_path)

else

ExcelServer.workbooks.add

ExcelServer.Workbooks(1).SaveAs(ls_path)

ExcelServer.Workbooks.Open(ls_path)

end if

end if

六、写入数据窗品数据

ExcelServer.application.Sheets(“sheet1”).Select

ExcelServer.ActiveSheet.Cells(2,1).value = '制单编号'

七、保存EXCEL数据

//关闭警告消息对话框，防止退出Excel 时提示

ExcelServer.Application.DisplayAlerts = False

//保存数据

ExcelServer.Application.SaveWorkspace()

if f_messagebox('','已成功导出到EXCEL,是否要打开该文件:',2) = 1 then ExcelServer.Application.Visible = true

else

ExcelServer.Application.Visible = false

ExcelServer.quit()

end if

ExcelServer.disconnectobject()

destroy excelserver