|
>処理実行時にブックBが閉じている状態であることを確認
言葉のアヤかも知れませんが、確認してどうしようと言うのでしょーか ?
もし開いていたらいったん閉じる必要がありますか ? コピーしたい場合は
必ず開いておかないといけませんから「開いていればそのまま、開いてなかったら開く」
という書き方をしないと誤解を与えかねません。で、既に簡素なコードで出来る回答も
ついているので、あえて別のコードを提示することも無いかもしれませんが、いちおう
バカ丁寧にやるとして・・
Dim WB As Workbook
Dim Ck As Boolean
If WorkBooks.Count > 1 Then
For Each WB In Workbooks
If WB.Name = "BookB.xls" Then
Ck = True: Exit For
End If
Next
If Ck = False Then
Workbooks.Open ThisWorkbook.Path & "\BookB.xls"
End If
Else
Workbooks.Open ThisWorkbook.Path & "\BookB.xls"
End If
こんなコードでもイケルと思います。
|
|