一个小小的出入库台帐

ya416 · 发表于 2011-4-14 07:57

还有一封呀，大哥，您看一下呗

zjdh · 发表于 2011-4-14 10:39

我不是都回复了吗。

ya416 · 发表于 2011-4-14 13:31

刚收到，好失望啊，大哥！

ya416 · 发表于 2011-4-15 09:22

大哥，我这不需要直接存盘退出，因为是网络共享办公，所以每次存盘退出都要更新，我如果改成不存盘退出是不是把存盘退出这个几个字删掉就行了？

Sub 退出()
' 存盘退出
With Sheets("权限设置")
.Cells(23, 2) = "无"
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

ya416 · 发表于 2011-4-15 09:28

还是把？ ActiveWorkbook.Save 这一行删了？

zjdh · 发表于 2011-4-16 09:01

当然可以啦。

ya416 · 发表于 2011-4-16 09:55

我删除以后老出错，送货记录一查询也出错。

zjdh · 发表于 2011-4-16 12:39

就删
ActiveWorkbook.Save
不会出错啊

[ 本帖最后由 zjdh 于 2011-4-16 12:42 编辑 ]

zjdh · 发表于 2011-4-16 12:44

' 存盘退出
With Sheets("权限设置")
.Cells(23, 2) = "无"
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
全部删了也不会出错的，但
Sub 退出()
End Sub
要留着，
或者将ThisWorkBook的BeforeClose事件中“退出”删掉。

[ 本帖最后由 zjdh 于 2011-4-16 12:49 编辑 ]

hpick_4563 · 发表于 2011-4-16 14:32

楼主太棒
做的如此完美
学习中

		自动登录	找回密码
密码			免费注册

一个小小的出入库台帐

回复 55楼 ya416 的帖子