（Excel）ファイル形式またはファイル拡張子が正しくありません。

具体的に回答出来るように返信いただき誠に感謝いたします。

私の質問が至らないばかりにお手数をおかけしてしまい申し訳ございません。

コピー元となるブックはそのマクロを実行しているマクロ有効ブック自身になります。

現時点で特定のマクロ有効ブックでしか事象を確認出来ておりません。

また、同マクロを使用し同様の作業を行っても再現が確認出来ません。

現状この一件のみ発生した事象となっております。

> SaveCopyAsのためFormatは指定無で「.xlsm」です。ファイルパスも「.xlsm」です。

コピー元となるブックはそのマクロを実行しているマクロ有効ブック自身でしょうか。
それとも別のマクロ有効ブックでしょうか。

（標準モジュール）

Sub Test_SaveCopyAs()

    Dim wbkTarget As Workbook
    Dim strNewFilePath As String
    
    'コピー元ブックの参照（この例ではこのモジュールを含むブック自身とする）
    Set wbkTarget = ThisWorkbook
    
    With wbkTarget
        
        'ファイル保存形式チェック
        If .FileFormat <> xlOpenXMLWorkbookMacroEnabled Then
            MsgBox .Name & " はマクロ有効ブック（.xlsm形式）ではありません。", _
                   vbExclamation, _
                   "ファイル形式エラー"
            Debug.Print "FileFormat:" & .FileFormat
            Set wbkTarget = Nothing
            Exit Sub
        End If
        
        'コピーの保存先ファイルパスの生成
        strNewFilePath = wbkTarget.Path & "\backup" & Format(Now(), "yyyymmddhhnnss") & ".xlsm"
        'ブックのコピーを保存
        .SaveCopyAs strNewFilePath
        Debug.Print strNewFilePath
        MsgBox """" & strNewFilePath & """に " & .Name & " のコピーを保存しました。", _
               vbInformation, _
               "保存完了"
    End With
    
    Set wbkTarget = Nothing

End Sub

例えば上記のようなマクロを実行されているとして、
どのマクロ有効ブックをコピー元にしても件の現象が再現される、
ということなのでしょうか。
それとも特定のマクロ有効ブックでのみ発生するのでしょうか。

回答ありがとうございます。

不具合例の前後80件ほど正常動作を確認出来ていたのでコードの可能性は薄いものと考え

詳細を記載しておりませんでした。

SaveCopyAsのためFormatは指定無で「.xlsm」です。ファイルパスも「.xlsm」です。

Web上にエラー内容と解決方法が同内容の文献が有り、Excel側の不具合であると記載が有り

ましたが、Microsoftの正式な文献を見つけきれなかったため、こちらに質問させていただき

ました。

以上、お手数をおかけしますが、ご確認よろしくお願いしたく存じます。

> VBAから出力したExcelが「ファイル形式またはファイル拡張子が正しくありません。」の> エラーメッセージを表示し開けなくなりました。

具体的にどのようなコードを実行されているのかについて
明記されることをお奨めします。

恐らく Workbook オブジェクトの SaveAs メソッドを呼び出されているのだと
思われますが、引数 FileName で指定しているパスのファイル拡張子と
引数 FileFormat に渡している定数（値）はマッチしているのでしょうか。