PB导出导入EXCEL

保存到指定文件

string str_savename,named

int  excelok,li_net

oleobject excelserver

excelserver=create oleobject 

excelok=excelserver.connecttonewobject("excel.application") 

//检查返回值，以确保已成功地连接到了Excel

if excelok <> 0 then

 messagebox("信息提示连接EXCEL失败，请检查计算机中是否安装了EXCEL!") 

  return

end if    可以没有

if GetFilesaveName("选择文件", str_savename,named,"xls文件(*.xls),*.xls") = 1 then

dw_main.saveas(str_savename,excel!,true)

else 

messagebox("保存失败")

end if

打开指定文件

string str_savename,named

int  excelok,li_net

oleobject excelserver

excelserver=create oleobject 

excelok=excelserver.connecttonewobject("excel.application") 

//检查返回值，以确保已成功地连接到了Excel

if excelok <> 0 then

 messagebox("信息提示连接EXCEL失败，请检查计算机中是否安装了EXCEL!") 

  return

end if 

li_net = GetFileopenName("选择文件", str_savename,named,"xls文件(*.xls),*.xls") 

if li_net > 0 then

  if str_savename = "" then  return 

  excelserver.workbooks.open(str_savename) 

  excelserver.activesheet.cells.copy

  dw_main.importclipboard(2)  //导入数据 dw_1是数据窗口名字，改成你的名字

 clipboard("") 

  excelserver.quit() 

  excelserver.disconnectobject() 

  destroy excelserver 

end if