Excel 自動再発行エラー/ウィンドウの自動終了

Question

私の同僚の 1 人は、運用サーバーに対してクエリを実行し、データを整理し、運用作業者向けの「ダッシュボード」として .mht を出力する 9 つの Excel ワークブックを持っています。

3 分ごとにクエリを実行するものもあれば、1 時間ごとにのみクエリを実行するものもあります。

一般的なエラーが 2 つあります。

これです

そしてこれ

これは実際には「無効な Web クエリ」エラーの後に表示され、「OK」ボタンのみが表示されます。

これは、読み取り中のファイルがロックされている場合にのみ発生するため、現時点では実際には問題ではありません。

最初のエラーは、ターゲット ファイルがロックされているときに保存するときにのみ発生します。Application.DisplayAlerts = False各ブックの保存前にマクロを配置しましたが、一番上のエラーは解消されませんでした。

中間ファイルを混乱の中に入れようとしましたが、改善はありませんでした。

今日は試してみましたAutoITのこれそして、2 番目のエラーは解消できますが、著者が述べているように、すべての (おそらく)「キー」の組み合わせで失敗します。

Excel 全般を検索すると機能しますが、シートも破壊されます。

毎回「表示しない」をクリックすることはできますし、実際にクリックしていますが、このコンピューターに更新プログラムをプッシュして再起動すると、これらのエラーが再び表示され、すべての競合が表示されるまでに数日かかることがあります。

これを解決するにはどうすればよいですか?

Answer 1

テストで可能な解決策 - ActiveWorkbook.Save を以下の If ステートメントで囲み、別のサブを使用して一時停止します。

Sub PUBLISH()
'Call TIME
Application.DisplayAlerts = False

If GetAttr("Z:\CHGME\_Production Scheduling\ADMIN\7 Day WIP.mht") And vbReadOnly Then
    Application.Run "Sheet1.WAITtoPUBLISH"
Else
    ActiveWorkbook.Save
End If
End Sub

`Private Sub WAITtoPUBLISH()    
Application.OnTime Now() + TimeValue("00:00:30"), "PUBLISH"
End Sub

2 日間保持されています。適切なタイミングでまだ解除できるので、「クローズを待つ」オプションが長期的な解決策になるかもしれません。