如何用pb导出excel并加上密码！

[growroad]

单位需要做报表，需要用pb导出excel并加上密码，导出excel小弟会，但如何加上密码请教各位大侠！

[dyf0130]

Excel 开发人员参考 Workbook.SaveAs 方法 全部显示 全部隐藏 在另一不同文件中保存对工作簿所做的更改。 语法 表达式.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

[dyf0130]

这个不是PB 的dw方法,是 Excel Workbook.SaveAs 的方法!!!!

[WorldMobile]

测试了一下，以下代码可以，测试环境pb12.5 + office2016 string ls_file = "d:\111.xls" dw_list.saveas(ls_file, excel8!, true) //ActiveSheet.ProtectPassword:=641112' integer li_value oleobject ole_excel ole_excel = create oleobject li_value = ole_excel.connecttonewobject("excel.application") if li_value <> 0 then gnv_base.of_message("连接EXCEL失败，请检查") return -1 end if ole_excel.workbooks.open(ls_file) string ls_file2 = "d:\222.xls" ole_excel.ActiveWorkbook.SaveAs(ls_file2, 56, '1234') ole_excel.quit() ole_excel.disconnectobject() destroy ole_excel

[www_huabo]

引用 2 楼 di74jun 的回复:

这个不是PB 的dw方法,是 Excel Workbook.SaveAs 的方法!!!!

好用