質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

87.35%

【GetSaveAsFilename】名前を付けて保存をすると形式又は拡張子が一致しない

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 3,996

score 228

下記のようなコードで名前を付けて保存をさせる(元のファイルも.xlsmで名前を付けて保存後も.xlsm)と
「XXを開くことができません。ファイル形式又はファイル拡張子が正しくありません。・・・」
というダイアログボックスがでて開くことができません。原因と解決法についてアドバイスをお願いします。

なお、見た目上は拡張子も含めて保存後も同じような問題がないファイル名に見えます。
しかしながら、不思議な現象なのですが、このコードによりもとに同じファイル名があるディレクトリで名前を付けて保存をすると通常であれば”上書きしていいですか?”のダイアログボックスがでるとおもうのですが、これが出現せずにまた、複数のファイルも生まれずに存在するファイルにおいて、上記のような現象が起きます。
宜しくお願い申し上げます。

Private Sub CommandButton2_Click()
    Dim FileName As Variant
    FileName = _
        Application.GetSaveAsFilename( _
             InitialFileName:=ThisWorkbook.FullName _
           , FileFilter:="Excel マクロ有効ブック(*.xlsm),*.xlsm" _
           , FilterIndex:=1 _
           , Title:="保存先の指定" _
           )
    If FileName <> False Then
       Application.DisplayAlerts = False
       ThisWorkbook.SaveAs FileName:=FileName, FileFormat:=xlNormal
       Application.DisplayAlerts = True
    End If
    Unload Me
End Sub
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+2

    ThisWorkbook.SaveAs FileName:=FileName, FileFormat:=xlNormal

この第2引数はおかしいです。
そもそもxlNormalはFileFormat用の定数ではありません。
.xlsm形式で保存するのであれば、第2引数は

    ThisWorkbook.SaveAs FileName:=FileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled

でしょうか。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/08/09 15:59

    なるほど、有難うございます。
    解決はしたのですが、同じディレクトリに意図的に同じファイル名で名前を付けて保存をしても上書きしていいですか?のダイアログがやはり出現しないのですが、vba側ではない(OS上の問題)かと思っていたのですが、こちらもvbaでコントロールが必要なのでしょうか?
    重ねて、申し訳ございませんが、宜しくお願い申し上げます。

    キャンセル

  • 2019/08/09 16:04 編集

    ちなみに、「上書きしていいですか?」のようなメッセージが出ないのは、SaveAsの前に
    Application.DisplayAlerts = False 'Falseの場合、警告表示を行わない
    を行っているからです。

    キャンセル

  • 2019/08/09 16:17

    申し訳ございません、仰る通りでした。
    有難うございます。
    無事解決に至りました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 87.35%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る