このトピックに書きこむ |
---|
Re[2]: refresh.allでエラーが出ます | |
---|---|
[195722] Re[2]: refresh.allでエラーが出ます- ■ / 記事引用/メール受信=OFF■ □投稿者/ SY -(2023/05/12(08:59)) □U R L/ 失礼いたしました。 他サイトで解決いたしましたので、こちらでの質問は以上と致します |
[195714] Re[1]: refresh.allでエラーが出ます- ■記事引用/メール受信=OFF■ □投稿者/ マルチポスト -(2023/05/08(13:08)) □U R L/ 以下はこのサイトの注意事項。 マルチポストはご遠慮ください。 同じ内容の質問を、同時に複数の掲示板に投稿 する行為をマルチポストと言います。 善意で回答してくれる方々や、ほかで質問した掲示板に迷惑がかかる恐れがあります。 (先に質問した掲示板でどうしてもレスがつかなくて、ほかで質問したい場合は、その掲示板に解決マークをつけるか、削除するなどして、次の掲示板で質問すればこれに該当しません) |
[195710] refresh.allでエラーが出ます- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ SY -(2023/05/05(17:02)) □U R L/ VBAマクロでmdbデータ(コピー元)を別のフォルダにコピーしてから(コピー先)、コピー先のデータを別のブックにクエリで取得して使用しています 1回目は上手くいきますが、2回連続で下記マクロを動かすと、コピー先のmdbファイルのハンドルが残っており、コピーができないという状況です。 どうやらrefresh.all時の処理が残っているのが原因のようですが、何か解決策があればご教授頂きたいです よろしくお願いいたします。 Sub データ更新() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim msg As Integer Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFile "\\コピー元.mdb", "\\コピー先.mdb" ActiveWorkbook.RefreshAll Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True If ThisWorkbook.ReadOnly Then MsgBox "読み取り専用です" Else ThisWorkbook.Save End If MsgBox "更新しました" End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |