Excel 用户表单，保存到桌面

Question

我有一个用户表单，很多不同的用户都会打开并填写它。我希望用户表单在每个用户提交答案后保存到他们的桌面。

弹出消息框后，工作簿最好保存到用户桌面并关闭。这是我到目前为止所拥有的，尽管它似乎不起作用：

answer3 = MsgBox("Please transfer $" & variable & " to:" & vbCr & "BSB: XXX-XXX" & vbCr & "Account Number: XXXX XXXX" & vbCr & "Account Name: XXX XXX")
ThisWorkbook.SaveAs((CreateObject("WScript.Shell").specialfolders("Desktop"))
ThisWorkbook.Close

任何想法，如何实现这一目标？

谢谢

Answer 1

好吧，我不想告诉你这个，但你实际上在那里，除了几个额外的括号......这一行应该是这样的

ThisWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop")

当您像对 answer3 所做的那样将对象设置为已声明的变量对象时，您只需在对象的参数周围加上括号。

Excel 用户表单，保存到桌面

Excel Userform, Save to Desktop

excel

vba

userform