none
Office2010で作成したツールのOffice365環境での動作不具合について(長文です) RRS feed

  • 質問

  • お世話になります。
    Excel 2010(パッケージ版)にて作成したVBAツールをOffice365の環境で動かしたところ次の現象が発生しています。
    Office365のバグ情報や回避方法をご存じでしたら教えて頂けますでしょうか。
     (1)「Application.DisplayAlerts = False」を設定した以降の処理で確認メッセージ「変更を保存しますか」が表示される
     (2)Excelブックを別名保存する際に「この拡張子は 選択したファイル形式には使用できません」とメッセージが表示される

    なお、(1)の現象については2016年の記事にOffice365のバグとして記載がありました。こちらが解消されているのか、もしくは代替方法がありましたらお教えください。
      参考)https://social.msdn.microsoft.com/Forums/ja-JP/6fe6262e-c9dc-41cd-88a8-1587e9d83c64/office20131236312425office2016124081239831227348922617812398vba12408123?forum=vbajp


    ■処理概要
     a.確認メッセージを非表示に設定
     b.インプットファイルを開く
     c.各ファイルから値をコピー
     d.アウトプットファイルに貼り付け
     e.インプットファイルを閉じる    ←ここで(1)の現象発生
     f.アウトプットファイルを別名で保存 ←ここで(2)の現象発生
     g.確認メッセージを表示に設定

     【インプットファイル】
      ExcelブックA
      ExcelブックB
      ExcelブックC
      ExcelブックD
      ExcelブックE
     【アウトプットファイル】
      ExcelブックF


    ■補足情報
     ○VBAを作成したExcelのバージョン
      Office Home and Business 2010
      Excelバージョン 14.0.7214.5000(32ビット)

     ○各メッセージが表示されるExcelのバージョン
      Office 365 ProPlus
      Excelバージョン 1803(ビルド 9126.2295 クイック実行)
      Excel 2016 MSO(16.0.9126.2295)32ビット

    2018年11月15日 7:12

回答

  • DisplayAlertsプロパティが効かない理由はわかりません。(バグじゃないかと・・・)

    以下、回避策です。

    (1)について、閉じる前にSavedプロパティにTrueを入れてはどうでしょうか。

    もしくは、「Workbooks(***).Close False」とするとか。

    (2)について、保存する際、ファイル型式(FileFormat)は指定していますか?

    また、指定したファイル形式と保存名(拡張子)は矛盾していませんか?

    • 回答としてマーク bnshi 2018年11月16日 1:04
    2018年11月16日 0:01

すべての返信

  • DisplayAlertsプロパティが効かない理由はわかりません。(バグじゃないかと・・・)

    以下、回避策です。

    (1)について、閉じる前にSavedプロパティにTrueを入れてはどうでしょうか。

    もしくは、「Workbooks(***).Close False」とするとか。

    (2)について、保存する際、ファイル型式(FileFormat)は指定していますか?

    また、指定したファイル形式と保存名(拡張子)は矛盾していませんか?

    • 回答としてマーク bnshi 2018年11月16日 1:04
    2018年11月16日 0:01
  • minmin312様
    ご回答ありがとうございます。

    ご高察のとおり、現在のコードでは(1)の処理は「Workbooks(***).Close」、
    (2)の処理は「ActiveWorkbook.SaveAs (ファイル名)」となっています。

    問題が発生している環境が遠隔地の為すぐに確認ができないのですが、
    今回教えて頂いた回避策を実施してみます。

    2018年11月16日 1:04