エラー処理

いつもお世話になっております。
おしえてくれませんでしょうか
下記のコードは
BBB.xlsmのエクセルを開き
wb.Worksheets("go").Cells(1, 1).Valueの値を
ThisWorkbook.Worksheets("Sheet5").Cells(1, 1).Valueに
書き込むコードです。

ここまではできましたが、
既にBBB.xlsmが開いていた場合
既に開いていますメッセージが表示表示され
エラーになります。

このエラーを表示させず、
下記のコードを実行して
BBB.xlsmを閉じて終了することは
できますでしょうか

わかる方おしえてくれませんでしょうか

ThisWorkbook.Worksheets("Sheet5").Cells(1, 1).Value = _
wb.Worksheets("go").Cells(1, 1).Value



Sub xlaaa()

Dim xlApp As New Application
Dim wb As Workbook
Dim str As String
str = "C:\Users\user\OneDrive\デスクトップ\BBB.xlsm"

Set wb = xlApp.Workbooks.Open(str)


ThisWorkbook.Worksheets("Sheet5").Cells(1, 1).Value = _
wb.Worksheets("go").Cells(1, 1).Value


wb.Close (False)


End Sub

質問者からの補足コメント

• 

  文字数制限のため分けて投稿します
  
  Dim w As Workbook
  Dim str As String
  Dim xlApp As New Application
  Dim wb As Workbook
  str = "C:\Users\user\OneDrive\デスクトップ\BBB.xlsm"
  For Each w In Workbooks
  If w.Name = "BBB.xlsm" Then Set wb = w: Exit For
  Next w

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/04/11 16:51

• 

  If wb Is Nothing Then Set wb = xlApp.Workbooks.Open("C:\Users\user\OneDrive\デスクトップ\BBB.xlsm")
  ThisWorkbook.Worksheets("Sheet5").Cells(1, 1).Value = _
  wb.Worksheets("go").Cells(1, 1).Value
  wb.Close
  
  わたし、どこかまちがっいるんですが、わかりませんです。
  理由としては別のプログラムでのＯＬＥの操作が完了するまで待機します。
  とでてしまいます。

    補足日時：2022/04/11 16:53

No.3 ベストアンサー 回答者： fujillin 回答日時： 2022/04/11 19:22

No2です

＞バックグラウンドにエクセルが増殖していました。
＞なんなんでしょうか。
以下は、推測になりますが・・

別のマクロかどうかは不明ですが、No1の2番目のように別にエクセルを立ち上げる処理を行っていませんか？
その際に、（No1にも書きましたが）後始末をしないままで終了すると、バックグラウンドでエクセルが立ち上がったままになります。
（エラーなどで終了処理をしていない場合も同様です。）

・・ということが起こっているのではないかと推測します。

この回答へのお礼

ありがとうございました。

お礼日時：2022/04/11 19:37

No.2 回答者： fujillin 回答日時： 2022/04/11 17:44

No1です

＞どこかまちがっいるんですが、わかりませんです
No1のコードも、当方がご提示のコード（の一部）をコピペしてしまったため、おかしな記述になっていました。
すみませんでした。

Dim str1 As String
Dim w As Workbook
Dim wb As Workbook

str1 = "C:\Users\user\OneDrive\デスクトップ\BBB.xlsm"
For Each w In Workbooks
If w.Name = "BBB.xlsm" Then Set wb = w: Exit For
Next w
If wb Is Nothing Then Set wb = Workbooks.Open(str1)

ThisWorkbook.Worksheets("Sheet5").Cells(1, 1).Value = _
wb.Worksheets("go").Cells(1, 1).Value
wb.Close

ではうまくいきませんか？


ちなみに、No1の最後に記した方法だと、

Const str1 = "'C:\Users\user\OneDrive\デスクトップ\[BBB.xlsm]go'!R1C1"
ThisWorkbook.Worksheets("Sheet5").Cells(1, 1).Value = _
ExecuteExcel4Macro(str1)

で同様の処理が可能だと思いますけれど・・
※ OneDriveでは試したことがないので、もしかするとうまくいかないかもですが。

この回答へのお礼

いつもありがとうございます。
うまくいきました。
タスクマネージャーで確認したところ
バックグラウンドにエクセルが増殖していました。
なんなんでしょうか。
それを全て削除してから、実行したら
問題ありませんでした。
ありがとうございました。

お礼日時：2022/04/11 18:37

No.1 回答者： fujillin 回答日時： 2022/04/11 16:02

こんにちは

すぐに思いつく方法として2通りあります。

◇開いているブックに同名のブックがあるか調べる
For Each w In Workbooks
If w.Name = "BBB.xlsm" Then Set wb = w: Exit For
Next w
If wb Is Nothing Then Set wb = xlApp.Workbooks.Open(str)

※ 上記はブック名だけで確認していますので、同名の別ブックが存在する場合はパスのチェックも必要になります。


◇別のエクセルスレッドから開く
Set EX = CreateObject("Excel.Application")
Set wb = EX.Workbooks.Open(str)

※ 別スレッドなの、すでに開いているブックでも重複して開けます。
※ 処理終了時にApplicationも終了しておく必要があります。


◇ご質問とは直接関係はありませんが・・・
読み込むセルが固定位置の1か所だけなのであれば、わざわざブックをオープンしなくても直接読み込むことも可能です。
こちらの方法であれば、すでに開いているかを気にする必要もありませんし、1箇所だけなら格段に速いです。
https://akira55.com/do_not_open_the_book/