□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
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
      ++++++++++++++++++++



    [195722] Re[2]: refresh.allでエラーが出ます-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ SY -(2023/05/12(08:59))
    □U R L/

      失礼いたしました。
      他サイトで解決いたしましたので、こちらでの質問は以上と致します



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

- Child Forum -
Edit:ゆう-Ｇ