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

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



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

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

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


- Child Forum -
Edit:ゆう-G