'上記の5つのSQL文を一度に格納するための変数。'(Variant型ですが「配列」変数として利用します。'現在のMicrosoftQueryのSQL文をイミディエイトウィンドウに表示します。'操作側が2010の場合はひとつひとつの要素に収まるだけのできるだけ1行で表示されます。」と、普通のSQLのように書いてもOKです。`Sheet1$`;」と省略しても動きます。'いずれにしましても、MicrosoftQueryのSQLは少し変わった仕様になっています。'「$」をつけて「`」バッククォートで囲む必要があります。'どう省略できるか、ご自分でも試してみてください。'作成したSQL文をVariant型の配列変数に代入します。Queryの結果表のSQL内容を書き換えます。'SQL文を実行します。'DoEventのループでエラー回避処理を行うと無限ループに陥ってしまうのでやりません。'コメントアウトします。'無限ループに陥る理由は調べていません。'なのでご自分でも試して、調べてみてください。'位置は関係なく、無限ループになるのかはわかりません。'大丈夫ではないかと思います。'test99()プロシージャを呼び出して、その書き換わった状態をシートに再表示します。Explicit'#####################################################################################'SQLのUPDATE句を使って、閉じたxlsファイルを「閉じたまま」書き換えるプロシージャです。'ここではすでに作成された、「`D:\test88\test01.xls`」のデータが書き換えられます。Queryの結果表が、'事前にシートに表示されていることが前提です。'なお、'おそらくですが、UNCパス(すなわち他のPCのxlsファイル)も使える気がします。''同時に、DoEventsを使って、'「バックグラウンドでデータが更新中であるため、この操作は行えません」'というエラーを回避しています。格納するための変数の宣言。