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 Userform，保存到桌面

1 个答案: