VBA、Excelのworkbook.open について質問ですこれを記載してマクロ実行後、boo

Question

VBA、Excelのworkbook.open について質問です

これを記載してマクロ実行後、bookが2重に開いていますと警告が出た場合、どのように対処すればエラー回避できますでしょうか。

よろしくお願いいたします

tatsumaru77 · Accepted Answer

>ボタンを割り付けたいのは、どのブックなのでしょうか？
>ワークシート.xlsmはあくまで開発中のものでして、このブックで成功したならば本来のペーストしたいbookに登録したいと考えております

そうであれば、試験中は、
ワークシート.xlsmを手で開き、それに登録した、
「別ブックのすべてのセルを取得4」 又は 「別ブックのすべてのセルを取得5」
を直接実行してください。
「別Bookのプログラムを実行」から、上記のマクロを呼び出すのは、間違いのもとになります。
（実際の本番と同じ運用になりません）

>①②③は全て同じbookに存在することになります。
>しかし③のみ別々のブックからの取込みになります
>③は3つのブック、book旧、nyuとgaiはいっしょでbook入外、そして折衝取込はbook折衝取込、からの取込みになります。

了解しました。
上記についてはｍFullPath1～FullPath4を適切に設定すれば問題ないです。

tatsumaru77 · Answer

シートまるごとコピーする方法です。
既存のシートを一旦削除してからシートをコピーします。
コピーされたシートのシート名を本来のシート名に変えます。
別ブックのすべてのセルを取得5　で登録しています。
シートの属性も含めてコピーしたいならこちらが良いかと思います。

https://ideone.com/Qlvj7M

tatsumaru77 · Answer

恒久対策版です。
    FullPath1 = "D:\goo\excel\goo446\配信スケジュール.xlsm"
    FullPath2 = "D:\goo\excel\goo446\未納本文.xlsm"
    FullPath3 = "D:\goo\excel\goo446\未納本文.xlsm"
    FullPath4 = "D:\goo\excel\goo446\未納本文.xlsm"
は、削除してください。
ワークシート.xlsmに登録してください。
別ブックのすべてのセルを取得4　にしました。

https://ideone.com/WFm2ym

tatsumaru77 · Answer

前提がよくわかりませんが、
①ボタンを割り当てたいブック
②マクロを登録したいブック
③kyu,nyu,gai,折衝取込　を日々取り込みたいブック　
は、同じブックではないのでしょうか。

異なる場合は、①②③ごとにそのブック名を提示していただけませんでしょうか。
又、③には、kyu,nyu,gai,折衝取込の4シート以外にも、他のシートがあるのでしょうか。

tatsumaru77 · Answer

>しかしながら申しにくいのですが、openが二重エラーは逃れられないと推測してますがいかがでしょうか

そんなことはないです。
マクロ（別ブックのすべてのセルを取得3）を
ワークシート.xlsmに登録したいなら、
ワークシート.xlsmをオープンしなければよいのです。
暫定対策ですが
    Set mb = Workbooks.Open(filename)
を
    Set mb = ThisWorkbook
に変えれば、動作すると思います。

恒久対策としては、mbの箇所については、Thisworkbookで置き換えになります。call copy_sheet時のパラメータにmbがありますがこれも削除します。
具体的にコードを希望される場合は、その旨返信ください。
只、気になるのは、何故、ワークシート.xlsmに登録するのかということです。
ワークシート.xlsmに登録するのが大前提なら、
最初にワークシート.xlsmを手でひらいて、ボタンにそのマクロを割り当てれば良いかと思います。
ボタンを割り付けたいのは、どのブックなのでしょうか？
先方は、ワークシート.xlsmを手で開いて、ボタンを押すのがいやなのでしょうか。

tatsumaru77 · Answer

>先方は、ボタン１つで今まで手作業だったシートの中身のコピペを希望しており、日付で新しく更新した別のシートにある同名のシートを今触っている従来のものの隣にコピーして、削除するということすら手間だといわれました。
>それて同一上でのシートでのコピペを試行錯誤しております

これは、既存のシートを削除するのを手で行うのが手間だということですね。
以下の処理を行うマクロを作れば良いと思いますが、いかがでしょうか。
①日付で新しく更新した別のシートにある同名のシートを今触っている従来のものの隣にコピー
②既存のシートを削除
③①でコピーしたシートを既存のシート名に合わせてリネーム

もしくは
①既存のシートを削除（全て削除はできないので何か他のシートを１つ残すこと）
②日付で新しく更新した別のシートにある同名のシートをコピー
③そのコピーしたシートをリネーム

のどちらかになります。
要はボタン１つで上記のことができればよいので、
sub 新規マクロ()
call ①
call ②
call ③
end sub

又は
sub 新規マクロ()
①の処理
②の処理
③の処理
end sub

のようにして、ボタンを新規マクロに割り当てれば良いです。

tatsumaru77 · Answer

No4です。No4の
ブックXに別ブックのすべてのセルを取得3し、それを直接呼び出せば、問題は行ないはずですが、

は

ブックXに「別ブックのすべてのセルを取得3」を格納し、それを直接呼び出せば、問題は起こらないはずですが、

の誤りです。訂正します。

tatsumaru77 · Answer

これは、
https://oshiete.goo.ne.jp/qa/13744688.html
の続きですね。

https://ideone.com/2V3qZsの内容をみると
ワークシート.xlsmに格納されたマクロである「別ブックのすべてのセルを取得3」
を呼び出しています。
別ブックのすべてのセルを取得3は、下記URLの内容ですね。
https://ideone.com/ikKSnB

そのマクロのなかで、
filename = ThisWorkbook.path & "\" & "ワークシート.xlsm"
mb=workbooks.open(filename)
を行っています。
これは、自分自身をオープンするということになります。

そもそもの話になりますが、
別ブックのすべてのセルを取得3のマクロは、ワークシート.xlsmに格納して実行されることを
想定していません。
Sub 別Bookのプログラムを実行()を格納しているブック内に格納すべきものです。（仮にブックXとします）
ブックXに別ブックのすべてのセルを取得3し、それを直接呼び出せば、問題は行ないはずですが、
なぜ、そのようにされなかったのでしょうか。
何か事情があって、ワークシート.xlsmに格納されたということでしたら、その事情を
教えていただけると参考になります。

どうしても、ワークシート.xlsmに格納したいということであれば、
その前提で「別ブックのすべてのセルを取得3」を作り直す必要があります。
その場合は、その旨返信ください。

tatsumaru77 · Answer

>データを別ブックに転記するマクロをこちらでご教示頂いたのにも関わらず、上記のエラーになってしまいました。
申し訳ありません

そのマクロを入手したURLを提示していただけると、何か解決策が判るかもしれません。提示していただけないでしょうか。

通常は、あなたがマクロを実行するときに、どのブックがマクロによりオープンされるかは、あなたが判っていると思います。マクロ実行時には、そのブックがクローズしていることを確認後、行うべきと思いますが、いかがでしょうか。
特殊な仕様で作成したマクロでなければ、通常、マクロでブックをオープンする場合、そのブックはクローズされていることを前提としています。

Qchan1962 · Answer

2つの回避方法

①　アラート非表示

Dim BookPath As String, wb As Workbook
      Application.DisplayAlerts = False
      Set wb = Workbooks.Open(BookPath)
      Application.DisplayAlerts = True

②　事前チェック

Dim BookPath As String
      Dim BookName As String
      Dim flg As Boolean

BookPath = "C:\Users\hoge\huga.xlsx"

BookName = Mid(BookPath, InStrRev(BookPath, "\") + 1)
      For Each wb In Workbooks
            If wb.Name = BookName Then
                  flg = True
                  Exit For
            End If
      Next wb
      
      If Not flg Then Workbooks.Open (BookPath)

参考
①https://vbabeginner.net/how-to-open-workbook/
②https://vba-hack.com/checkopenbook/

VBA、Excelのworkbook.open について質問です これを記載してマクロ実行後、boo

>ボタンを割り付けたいのは、どのブックなのでしょうか？

シートまるごとコピーする方法です。

恒久対策版です。

前提がよくわかりませんが、

>しかしながら申しにくいのですが、openが二重エラーは逃れられないと推測してますがいかがでしょうか

No4です。

これは、

>データを別ブックに転記するマクロをこちらでご教示頂いたのにも関わらず、上記のエラーになってしまいました。

2つの回避方法

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

VBA、Excelのworkbook.open について質問ですこれを記載してマクロ実行後、boo