2019年8月Windows Update後、VB関連死亡の件まとめ

「プロシージャの呼び出し、または引数が不正です。」から改題しました。

ホッテントリからヤバメな情報が流れてきた。8月14日のWindows Update 後、VB関連が死亡するらしい。

実はこの現象を8月15日に確認していた。原因がわからずふて寝しましたが。

再現ソース

Option Explicit

Sub SaigenTest()

    Call a

    Debug.Print "Success!"

End Sub

Private Sub a(ParamArray p())

    'ParramArray の値を引数で渡すと落ちる
    Call b(p)

End Sub

Private Sub b(ByVal v As Variant)
    

End Sub

実行すると以下の場所で「プロシージャの呼び出し、または引数が不正です。」になる。

使用しているWindows 10 は 1803だったので(古い?) KB4512501 が入っているか確認してみるとやっぱり入っていた。

回避方法はなさそうなので試しにアンインストールしてみたところ、正常に動作することを確認した。

作者が確認したところ、RelaxToolsで同様の現象は確認されていませんが、現象が起こるようでしたら、パッチのアンインストールで対応するしかなさそうです。

Variant 型の配列の処理でエラーになるようです。

続報、鵜原様のところでの再現

callmekohei 様の現象と修正内容

Philipp Stiefel 様の検証内容

うま様の検証内容

9/2日22:00時点 Microsoft の対応状況

とりあえずは修正パッチが出そろったようです。自PCもパッチ合ってて動作確認が完了しました。>1903

バージョン 状態 対応スケジュール
Windows 10(1903) 解決済み KB4512941で解決
Windows 10(1809), Windows Server 2019 解決済み KB4512534で解決
Windows 10(1803) 解決済み KB4512509で解決
Windows 10(1709) 解決済み KB4512494で解決
Windows 10(1703) 解決済み KB4512474で解決
Windows 10(1607), Windows Server 2016 解決済み KB4512495で解決
Windows 10(1507) 解決済み KB4517276で解決
Windows 8.1 , Windows Server 2012 R2 解決済み KB4517298で解決
Windows Server 2012 解決済み KB4517302で解決
Windows7, Windows Server 2008 R2 解決済み KB4517297で解決
ソース:https://docs.microsoft.com/ja-jp/windows/release-information/

ABOUTこの記事をかいた人

はてなブックマークで驚愕の1600越えを記録した伝説が今明らかに! エクセル方眼紙 四天王の1人(ほぼ最弱)窓の杜大賞2014 大賞受賞! Excelを便利にする250以上の機能を体系化したアドインはこちらです。