Question

我有VBA将数据从一张纸复制到另一张。复制完成后会弹出一条消息，询问是否“还有其他东西？”。应该发生的是，当你说不，它会保存并关闭。如果你说是，它应该保存＆amp;转到特定的表格。发生的事情是它节省了＆amp;关闭两个选择。我知道缺少一些东西，但我不确定是什么。

我的代码

Msg = "Hey!!! Copying complete!! Any Thing Else?"

Ans = MsgBox(Msg, vbYesNo)

Select Case Ans

    Case vbYes             
        Sheets("Referrals").Select

    Case vbNo
        GoTo Quit:

End Select

Quit:         
ActiveWorkbook.Close

End Function

Answer 1

将close事件移动到vbNo，无论在案例中选择什么，它现在的运行方式都会使它运行。

Msg = "Hey!!! Copying complete!! Any Thing Else?"

Ans = MsgBox(Msg, vbYesNo)

Select Case Ans

    Case vbYes             
        Sheets("Referrals").Select

    Case vbNo
        ActiveWorkbook.Close SaveChanges:=True

End Select

End Function

防止工作簿关闭

1 个答案: