VBA自定义函数-保存文件对话框

Function 保存文件(Optional Title As String = "保存文件") As Variant    With Application.FileDialog(msoFileDialogSaveAs) '2        .Title = Title        .InitialFileName = Environ("userprofile") & "\Desktop\"        If .Show = -1 Then            保存文件 = .SelectedItems(1)            .Execute        Else            保存文件 = False        End If    End WithEnd FunctionSub 调用保存文件() '以EXCEL方式保存    FileToSelect = 保存文件()    If TypeName(FileToSelect) = "Boolean" Then MsgBox "未选中": Exit Sub    MsgBox FileToSelectEnd Sub