复制代码
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17Function 保存文件(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 With End Function Sub 调用保存文件() '以EXCEL方式保存 FileToSelect = 保存文件() If TypeName(FileToSelect) = "Boolean" Then MsgBox "未选中": Exit Sub MsgBox FileToSelect End Sub
最后
以上就是等待鞋子最近收集整理的关于VBA自定义函数-保存文件对话框的全部内容，更多相关VBA自定义函数-保存文件对话框内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复