2015-09-04 43 views
1

我有一个用户窗体,许多不同的用户将打开并完成。我希望用户表单在提交答案后保存到每个用户的桌面。Excel用户窗体,保存到桌面

弹出消息框后,工作簿应理想地保存到用户的桌面并关闭。这是我迄今为止虽然它似乎没有工作:

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 

任何想法,如何实现这一目标?

感谢

回答

1

嗯,我不想告诉你这一点,但你实际上除了有一对夫妇额外的括号......这条线应该是这样的

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

你只把括号围绕你的参数当你将它们设置为一个声明的变量对象时,就像你为answer3所做的那样。