概述
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 With
End Function
Sub 调用保存文件() '以EXCEL方式保存
FileToSelect = 保存文件()
If TypeName(FileToSelect) = "Boolean" Then MsgBox "未选中": Exit Sub
MsgBox FileToSelect
End Sub最后
以上就是等待鞋子为你收集整理的VBA自定义函数-保存文件对话框的全部内容，希望文章能够帮你解决VBA自定义函数-保存文件对话框所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复