excel - 另存为提示位置但使用单元格中的文件名
问题描述
我从论坛获得了这段代码,它可以工作,但我需要调整它以显示“另存为”框,但我的名称已经填充了我的变量 FName。
有人可以帮我弄这个吗?
Sub Save_New()
Dim FName As String
Dim FPath As String
'FPath = "C:"
FName = Sheets("Sheet1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FName
End Sub
解决方案
您可以为此使用Application.GetSaveAsFilename 方法……</p>
Option Explicit
Sub Save_New()
Dim FName As String
FName = Sheets("Sheet1").Range("A1").Text
Dim DialogResult As Variant 'variant is needed because the dialog returns FALSE if users presses cancel.
DialogResult = Application.GetSaveAsFilename(InitialFilename:=FName)
If Not DialogResult = False Then
ThisWorkbook.SaveAs Filename:=DialogResult
Else
'user clicked cancel
End If
End Sub
推荐阅读
- android - ANR - 输入调度超时 - Android 11
- javascript - 数组中最大连续数字项+1差
- flutter - 在颤振中,如何在已安装的本机应用程序中播放流式视频
- android - 为什么当我从我的应用程序中删除视频文件时会出现这种情况
- xcode - Alamofire/Postman [错误] 此服务器的证书无效(Xcode)
- linux - 在编写 bash 脚本时给用户输入
- cmd - PuTTY:如何自动以 sudo 身份登录,然后传递我的密码
- ruby-on-rails - Rails - n+1 查询,即使关联已预加载
- pandas - 在 Seaborn/其他库中聚合的 FacetGrid 图
- javascript - 脚本无法在 Internet Explorer 11 (ie11) 上运行