VBA excel Application.getsaveasfilename error 13

Question

ユーザーがブックのバックアップを特定の場所に保存するようにマクロを作成しようとしています。私は以下のコードを試しましたが、エラー13のメッセージがあります。マクロ対応のブックとして保存する必要はありませんが、もっと簡単にできると思いました。

Sub openSaveDialog() 
' 
' gives error 13 message when clicking save 
' 
Dim saveSuccess As Boolean 
Dim fNameRec As String 
Dim dateNow As String 
Dim saveToDir As String 
saveToDir = "Z:\location of save\Old Archive spreadsheets\" 
dateNow = Format(Now(), "mmddyyyy") 
fNameRec = saveToDir & "BinderArchiveBackup_" & dateNow 
Sheets(3).Range("E25") = fNameRec 
'check if backed up today 
If (Sheets(3).Range("E22") = Date) Then 
    MsgBox "backup already saved today no need to save again" 
    Exit Sub 
End If 

'open save as window 
saveSuccess = Application.GetSaveAsFilename(InitialFileName:=fNameRec, FileFilter:= _ 
"Excel Files (*.xlsx)," & "*.xlsx, Macro Enabled" & _ 
"Workbook (*.xlsm), *xlsm") 
'if backup saved, update date of last backup 
If saveSuccess Then 
    Sheets(3).Range "E22" = Date 
    MsgBox "save successful" 
End If 
'if backup not saved, inform user 
If Not saveSuccess Then 
    MsgBox "save canceled, please save backup before adding new items to the archive today" 
End If 
End Sub 

私はちょうどマクロに

• ファイルフィルタを微調整しようとした事は、ちょうどすべてのファイル
• と空のファイルフィルタを型として保存ワークブック
• ブランクファイルフィルタを得意とする
• ファイルフィルタを有効に.xlsxという名前の末尾に
• ディレクトリがない初期のファイル名ですが、ChDirがあるので、右のsavで開きますどこにでも位置しています

助けがあれば助かります。

Answer 1

GetSaveAsFilenameを開き

---

ウィンドウとして保存は、ユーザーが名前を付けて保存]ダイアログボックスをキャンセルした場合、または、彼らが選択したファイル名を含む文字列ならば、ブールFalseなりますVariantを返します彼らはダイアログをキャンセルしませんでした。

非ブール値が返された場合

Dim saveSuccess As Boolean 

は問題が発生しますと言ってあなたのライン。代わりに

Dim saveSuccess As Variant 

を代わりに使用してください。

---

これはまだかかわらず、他の問題であなたを残します：

1. Sheets(3).Range "E22" = Dateが無効で、おそらくいない時点でSheets(3).Range("E22") = Date
2. *xlsmおそらくあるべき*.xlsm

3. されていることを意味しています実際にファイルを保存しています。助けのための

   If saveSuccess = False Then 
       'if backup not saved, inform user 
       MsgBox "save canceled, please save backup before adding new items to the archive today" 
   Else 
       If UCase(Right(saveSuccess, 5)) = ".XLSM" Then 
        ActiveWorkbook.SaveAs saveSuccess, xlOpenXMLWorkbookMacroEnabled 
        'if backup saved, update date of last backup 
        Sheets(3).Range("E22") = Date 
        MsgBox "save successful" 
       ElseIf UCase(Right(saveSuccess, 5)) = ".XLSX" Then 
        ActiveWorkbook.SaveAs saveSuccess, xlOpenXMLWorkbook 
        'if backup saved, update date of last backup 
        Sheets(3).Range("E22") = Date 
        MsgBox "save successful" 
       Else 
        MsgBox "Unrecognised file extension chosen - backup not created" 
       End If 
   End If