2015-09-04 44 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所做的那樣。