vba点击按钮添加微信

vba点击按钮添加微信

直接执行另一个按钮的程序名称：
Private Sub CommandButton1_Click()
MsgBox "我是按钮1"
End Sub
Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

同时按alt和f11进入宏界面，在左上窗口找到本工作簿的thisworkbook，双击它，在右边窗口粘贴如下代码： private sub workbook_beforeclose(cancel as boolean) if msgbox("是否关闭？", vbokcancel, "hi") = vbok then thisworkbook.save else thisworkbook.saved = true end if application.enableevents = false thisworkbook.close 0 application.enableevents = true end sub 回到excel，存盘即可。