將XLSM文件保存爲任何文件名，格式和目錄

Question

我正在尋找一個宏來將當前打開的XLSM文件保存爲除XLSM文件之外的其他條件。

1. 我希望能夠將文件保存爲任何名稱。

2. 我希望能夠以任何格式保存文件。

3. 我希望能夠選擇保存的目錄。

所以基本上我想能夠保存文件就像我會做一個普通的另存爲文件而不使用宏。

我已經看到了一些不同的宏，這些宏執行我的請求的一部分，但沒有任何條件。

Answer 1

使用FileDialog的：

Sub Example1() 
Dim intChoice As Integer 
Dim strPath As String 

'make the file dialog visible to the user 
intChoice = Application.FileDialog(msoFileDialogSaveAs).Show 
'determine what choice the user made 
If intChoice <> 0 Then 
    'get the file path selected by the user 
    strPath = _ 
     Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1) 
    'displays the result in a message box 
Call MsgBox(strPath, vbInformation, "Save Path") 
End If 
End Sub 

要使用SaveAs，一起來看看：http://www.rondebruin.nl/win/s5/win001.htm和https://msdn.microsoft.com/fr-fr/library/office/ff841185.aspx