excel - 取消 GetSaveAsFilename

Question

我有代码，仅在用户选择“另存为”时运行。为此并获取我正在使用的文件的新名称 Application.GetSaveAsFilename功能。

我遇到的问题是类型不匹配，同时检查用户是否在他没有这样做时单击了取消。

未单击取消时引发错误的行:If saveName = False Then Exit Sub
我的工作代码:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If Not SaveAsUI Then Exit Sub
  Cancel = True

  'other variables
  Dim saveName As String

  saveName = Application.GetSaveAsFilename(filefilter:="Microsoft Excel Files (*.xlsm), *.xlsm", Title:="Save as Microsoft Excel Macro-Enabled Worksheet")
  On Error GoTo RunTime13
  If saveName <> False Then
  On Error GoTo 0

  'other code

  ThisWorkbook.SaveAs Filename:=saveName, FileFormat:=52
  End If
Exit Sub
RunTime13:
  If Err.Number = 13 Then Resume Next
End Sub

我做错了什么，我必须像这样解决“取消”按钮？

编辑:

我选择了 Dim saveName As Variant能够使用 If saveName = False Then Exit Sub
正如 Vityata 提到的我在德国，因此可能会遇到语言问题，幸运的是，Vityata 提醒了我这个问题，因为我实际上正在使用英语的 Excel，但并非我的所有同事都是，所以我接受的答案可能他们在使用工作簿时没有工作。

Answer 1

正如你所声明的 SaveName作为字符串，您需要检查 "False" ，而不是 False .

If saveName <> "False" Then