小问题 , 但很急。 不知是不是 PB 的 BUG ！！！

[K999]

用以下语句实现 “另存”

dw_1.SaveAs('c:\aaa.xls',Excel5!, true)

问题来了：

在程序未退出以前 ， 打开该 aaa.xls 就没办法保存。 要退出后才行。

请问怎样才能让 PB 把这个文件的控制权“释放” ？ 很急的 ~

之所以说是 PB 的 BUG ，是应为如果我这样做用 dw_1.SaveAs() 这种方法，同样只有一条语句。 这样就没问题。

[佣工7001]

不会吧

[海洋‘s]

用另一种方法吧,很好用的，我就是这样用的：
/*****************************************************************
功能： 数据输出
逻辑： 将当前的数据记录备份
适用： 将数据表中的数据备份
编程： 海 洋
创建： 2002年4月25日
修改：
版本： 1.0
******************************************************************/
String ls_File, ls_Path, ls_Ext

GetFileSaveName("另存为", ls_Path, ls_File, "Excel", "Excel Files (*.xls),*.xls," + &
"Text Files (*.txt),*.txt,HTML Files (*.htm),*.htm")

If Trim(ls_Path) <> "" Then
ls_Ext = Lower(Right(ls_Path, 3))
Choose Case ls_Ext
Case "xls"
dw_master.SaveAs(ls_Path, Excel!,True)
Case "txt"
dw_master.SaveAs(ls_Path, Text!, True)
Case "htm"
dw_master.SaveAs(ls_Path, HTMLTable!, True)
Case Else
MessageBox("另存为...", "另存格式错误.格式应该" + & "是*.xls'为Excel!;'*.txt'为Text;'*.htm'为HTML Table", Exclamation!, OK!)
Return
End Choose
End if
去试试吧，应该没有问题的。

[nlpz]

先谢谢 oceanaut(海儿)
我的程序,本来是和你写得一样的. 为了方便提问，我才减掉了其它的代码。
所以问题依旧。
请问你用的是 PB 几 ？ 我用的是 6.51 。 试好多回了！

[nlpz]

创建： 2002年4月25日
修改：
版本： 1.0


???
专门写的吗 ？