エクセルについて

Question

ExcelからExcelへのADO接続が突然動かなくなりました。

Windowsの仕様

ｴﾃﾞｨｼｮﾝ Windows 10 Pro

ﾊﾞｰｼﾞｮﾝ 1903

OSﾋﾞﾙﾄﾞ 18362.295

の環境で、ﾊﾟｿｺﾝ内のOneDriveフォルダー内にExcelファイルを置き、

Excle2016のマクロから同じパソコン内にある別のExcel2016のファイル

にＡＤＯ(Microfoft ActiveX Data Objects 6.1 Library)を使って

読み書きしています。

接続は下記ﾏｸﾛにて実行しています。

---

    'DB接続

        sPath = ThisWorkbook.Path

        sFile = "府県別ＤＢ.xlsx"

        ' Connection生成

        Set cnnDB = New ADODB.Connection

        With cnnDB

            .Provider = "Microsoft.ACE.OLEDB.12.0"

            .Properties("Extended Properties") = "Excel 8.0;HDR=Yes;"

            .Open sPath & "" & sFile

        End With

---

CnnDB.Open の所でマクロが止まり、何も応答がかえって来なくなります。

昨日の回線トラブル後にこの現象が発生しており、２日前までは問題なく稼働し

ていました。

他にAccess2016に対してExcelより同じADOで接続するやり方は稼働しています。

---

    'DB接続

        sPath = ThisWorkbook.Path

        sFile = "神奈川冷協DB.accdb"

        'Access 2000～2003    Microsoft.Jet.OLEDB.4.0

        'Access       2007～  Microsoft.ACE.OLEDB.12.0

        cnnDB.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & _

                                 "Data Source=" & sPath & "" & sFile & ""

        cnnDB.Open

---

他の端末では、可能です。

私のパソコンだけの問題のようです。

どうぞよろしくお願いいたします。

[モデレーター注]

・質問内容から判断して カテゴリを移動しました。

移動前 : コミュニティ センター | 新着情報とお知らせ

　　　　　　　　　　　　↓

移動後 : Office | Excel | Windows 10 | 不明/その他

Answer 1

onClic様

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

まず、KB4512941の更新プログラムのアップデートを実行しましたが、状況は変わりませんでした。

次に、マイクロソフト法人サポートセンターへ問い合わせをしました。

　①Office365の修復　②Office365再インストール　を行いました。

やはり、状況は変わりませんでした。

ちなみに、マイクロソフトサーフェスラップトップインストール版でインストールをした環境です。

他のパソコンでは、同じエクセルが問題なく動いております。

また別の対処方法等わかりましたら、教えてください。

Answer 2

Windows 10 Ver.1903 だったりすると、以下の不具合の可能性もあるかもしれません。

昨日付で、 KB4512941　という更新プログラムの提供も開始されていますので、一度Updateされてみてはいかがでしょうか？　自動では適用されないので、更新とセキュリティを開いて今すぐインストールをクリックする必要があります。

この不具合は、8月の更新プログラムによるものでしたが、Ver.1903 以外はすぐに修正がはいったのですが、Ver.1903 については、昨日やっと提供されたようです。

・August 30, 2019—KB4512941 (OS Build 18362.329)

Answer 3

こんにちは。

VBA についてのご質問になりますと、開発者向けの＜Msdnフォーラム＞の方が情報が集まり易いと思います。

■ Msdn フォーラム（VBA）

よろしければご活用下さいね。