Question

我正在寻找一个宏来保存当前打开的XLSM文件，而不是具有以下条件的XLSM文件。

我希望能够将文件保存为任何名称。
我希望能够以任何格式保存文件。
我希望能够选择保存的目录。

所以基本上我希望能够保存文件，就像我在不使用宏的情况下执行普通的“另存为”文件一样。

我已经看到了许多不同的宏来处理我的部分请求但没有任何条件。

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

将XLSM文件保存为任何文件名，格式和目录

1 个答案: