□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| refresh.allでエラーが出ます | |
|---|---|
[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 ++++++++++++++++++++ | |
[195714] Re[1]: refresh.allでエラーが出ます- ■記事引用/メール受信=OFF■ □投稿者/ マルチポスト -(2023/05/08(13:08)) □U R L/ 以下はこのサイトの注意事項。 マルチポストはご遠慮ください。 同じ内容の質問を、同時に複数の掲示板に投稿 する行為をマルチポストと言います。 善意で回答してくれる方々や、ほかで質問した掲示板に迷惑がかかる恐れがあります。 (先に質問した掲示板でどうしてもレスがつかなくて、ほかで質問したい場合は、その掲示板に解決マークをつけるか、削除するなどして、次の掲示板で質問すればこれに該当しません) | |
[195722] Re[2]: refresh.allでエラーが出ます- ■  / 記事引用/メール受信=OFF■
□投稿者/ SY -(2023/05/12(08:59)) □U R L/ 失礼いたしました。 他サイトで解決いたしましたので、こちらでの質問は以上と致します | |