设了密码的excel文件保存时出错???

来源：百度知道 编辑：UC知道 时间：2024/05/15 15:14:47
设了密码的excel文件保存时出错 提示如下:"应用程序发生异常 未知的软件异常 (0xc0000409),位置为 0x30482eac。"

给你一段代码：

OleObject obj

obj=Create OleObject
obj.ConnectToNewObject('Excel.Application')
obj.Visible=False
obj.WorkBooks.Open('e:\test.xls') //e:\test.xls为源文件的位置

// do other Work
//下面这句是最重要的
obj.ActiveWorkbook.SaveAs('目的位置',-4143,'想要设置的打开密码') //-4143为正常格式

obj.Application.Quit()
obj.DisConnectObject()
Destroy obj