他のフォルダにあるファイルからユーザーフォーム表示

質問

現在（1）の方法でやってますが、これを
（2）の方法でユーザーフォームを表示したいです。この方法するためのコードを教えてほしいです。超初心者なので具体的に教えてほしいです。

（1）デスクトップにフォルダ「Ａ処理」があり、開くとＢ.xlsm とＣ.xlsm　二つのファイルがあり、Ｃ.xlsm　を選ぶと同時にユーザーフォームが開きます。

（2）デスクトップにフォルダ「Ａ処理」があり、開くとＢ.xlsm とフォルダ「Ａ
計算」があります。フォルダ「Ａ計算」の中に、Ｃ.xlsm　があります。
Ｂ.xlsm を選ぶと、ユーザーフォーム（表紙）が表示され、その中のコマンドボタンを押すと、フォルダ「Ａ計算」の中のＣ.xlsm　が表示されますが、ユーザーフォームは、ひらきません。

そのコマンドボタンには、次のコードが入っています。
Private Sub CommandButton96_Click()
A表紙.Hide
Workbooks.Open Filename:=ThisWorkbook.Path & "\Ａ計算\Ｃ.xlsm"
load UserForm1
UserForm1.Show
Sheets(1).Select
End Sub

回答No.11

masnoske · ベストアンサー

マクロブックを開いた時の扱いが Office365 と Office2010 で異なるのかもしれませんので、C.xlsm をアドインとして組み込んだらうまくゆくかも知れません。
そのためには、C.xlsm を C.xlam と C.xlsx の２つのファイルに分けます。

B.xlsm と C.xlsm は [No.6] の状態にあるとします。
まず C.xlsm を 開いて、C.xlam で保存してください（保存場所は C.xlsm と同じとします）。
次に C.xlsm を C.xlsx で保存して下さい。
これで C.xlsm をアドインとデータブックに分離できました。

次に B.xlsm を開いて CommandButton96_Click() を以下のように修正して、上書き保存してください。
Private Sub CommandButton96_Click()
Me.Hide

' データブックを開く
Workbooks.Open Filename:=ThisWorkbook.Path & "\Ａ計算\Ｃ.xlsx"

' アドインを開く
Workbooks.Open Filename:=ThisWorkbook.Path & "\Ａ計算\Ｃ.xlam"
End Sub

これでどうでしょうか。
全体の流れは、
B.xlsm を開く。
B.xlsm の Workbook_Open() イベントが発生して A表紙 がロードされる。
B.xlsm の CommandButton96 をクリック。
C.xlsx と C.xlam が開く。
C.xlam の Workbook_Open() イベントが発生して UserForm1 がロードされる。

お礼

masnoskeさま　これまで貴重なお時間を割いていただきありがとうございました。コロナ関係でまだ、マクロ試してませんが、このとおりやれば、必ずうまくいくと信じています。本当に心から感謝申し上げます。ありがとうございました。

回答No.12

masnoske

[No.11] です。

もしもマクロブックの取り扱いの問題であれば、[No.11] の方法よりもこちらのほうが簡単です。

B.xlsm に A表紙モジュールとUserForm1モジュールを入れておく．
C.xlsx はデータブックとし，コードは記述しない．

B.xlsm の ThisWorkbookモジュールのコード
Private WithEvents xlApp As Application

Private Sub Workbook_Open()
Set xlApp = Application
Load A表紙
A表紙.Show
End Sub

Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
If Wb.Name <> "C.xlsx" Then Exit Sub
Load UserForm1
UserForm1.Show
End Sub

A表紙モジュールの CommandButton96_Clickプロシージャのコード
Private Sub CommandButton96_Click()
Me.Hide
Workbooks.Open Filename:=ThisWorkbook.Path & "\A計算\C.xlsx"
End Sub

別のマクロブックを開いても、そこに記述してあるマクロを利用できないのであれば、マクロを B.xlsm だけに記述し、他のブックはデータブックとして運用すれば良いということです。

回答No.10

masnoske

Office365 のマクロは互換性に問題があったと思います。

B.xlsm で C.xlsm を捉えられたら、UserForm1 を B.xlsm に移してコントロールできるかも知れません。
B.xlsm に標準モジュールを追加して、以下のコードを入力して試してみて下さい。
Public Sub Test()
Dim Wb as Workbook
Set Wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Ａ計算\Ｃ.xlsm")
MsgBox Wb.Name
End Sub

メッセージボックスに C.xlsm が表示されたら、B.xlsm から C.xlsm を制御可能です。

補足

諦めかけて、これまで作ってきたブックの一つをクリックしたら、なんと！！UserForm1が現れました。
（1）デスクトップにあるＡ処理フォルダをクリックして出てきた、Ｂxlsmをクリック
（2）すると保護ビューになったので「編集を有効にする」「コンテンツの有効化」をクリックしてUserForm表紙が出たので、その中のコマンドボタン（Ｃ.xlsmへ飛ぶボタン）を押すと同時に、Ｃ.xlsmとＵserFormが現れたのです。ところが、それ以後何度試してもできないのです。つまり、わかったことは、最初の「保護ビュー」が表示されたときだけＵserForm1が現れるようになっていたのです。「保護ビュー」しないで、何度やっても現れないということでした。このことに関し、意味がまったくわかりません。どうしたらよろしいでしょうか？

回答No.9

masnoske

[No.8] です．
> CommandButton96_Click するとC.xlsm が間違いなくひらきます

おかしいですね．
C.xlsm が開いたら，C.xlsm の Workbook_Open() が起動するはずです．
なぜなら C.xlsm を単独で開いたら Workbook_Open() が起動するのですよね．
どこかで Application.EnableEvents = False を実行していませんか？
これをしているとイベント処理は実行されません．

ちなみに Excelのバージョンは何でしょうか．
Excel2010 では問題なく動作しています．

補足

どこかで Application.EnableEvents = False を実行していませんか？
-----------そのようなことは一切やってません。Ｏｆｆｉｃｅ　３６５　ｓｏｌｏ　です。
僕のために多くの貴重な時間を割いて頂き、本当にもうしわけありません。本当に恐縮しています。残念ですが、いったんこの質問を締めた方がいいのかなとおもっております。

回答No.8

masnoske

[No.6] です。
> 教えていただいたコード行しましたが、UserForm1が出てきません。
> Ｃ.xlsmを単独で開くと即UserForm1が出てきます。
> 僕も正直これでいけると思ったんですが・・。

CommandButton96_Click が正常に動作していないようですね。
クリックしても C.xlsm が開いていないのではありませんか？
だとすれば、オブジェクト名を CommandButton96 から別の名前に変えたとか。。。

補足

CommandButton96_Click するとC.xlsm が間違いなくひらきます

回答No.7

masnoske

[No.6] です。
C.xlsm を単独で開いた場合には UserForm1 を開きたくないのであれば、
C.xlsm に標準モジュールを追加し、UserForm1 をLoadするSubプロシージャを作成し、B.xlsm から呼び出すと良いでしょう。

B.xlsm の ThisWorkbookモジュールに
Private Sub Workbook_Open()
Load A表紙
A表紙.Show
End Sub

B.xlsm の A表紙モジュールに
Private Sub CommandButton96_Click()
Dim Wb As Workbook
Me.Hide
Workbooks.Open Filename:=ThisWorkbook.Path & "\A計算\C.xlsm"

' C.xlsm が開くのを待つ．
Do
Set Wb = Workbooks("C.xlsm")
Loop While Wb Is Nothing

' C.xlsm の LoadUserForm1 を実行する．
Application.Run "C.xlsm!LoadUserForm1"

Set Wb = Nothing
End Sub

C.xlsm の標準モジュールに
Public Sub LoadUserForm1()
Load UserForm1
UserForm1.Show
End Sub

補足

B.xlsm の A表紙モジュールに
Private Sub CommandButton96_Click()
Dim Wb As Workbook
Me.Hide
Workbooks.Open Filename:=ThisWorkbook.Path & "\A計算\C.xlsm"

' C.xlsm が開くのを待つ．
Do

↓ここでindexが有効範囲にありませんと出て黄色になり進行しない
-----------------------------
Set Wb = Workbooks("C.xlsm")
-----------------------------
Loop While Wb Is Nothing

' C.xlsm の LoadUserForm1 を実行する．
Application.Run "C.xlsm!LoadUserForm1"

Set Wb = Nothing
End Sub

回答No.6

masnoske

B.xlsm に A表紙 があり、A表紙 に CommandButton96 がある。
C.xlsm に UserForm1 がある。

B.xlsm を開いたら A表紙 が開く。
CommandButton96 をクリックしたら、A表紙 を隠して C.xlsm を開く。
C.xlsm が開いたら UserForm1 が表示される。
こういう事ではないのですか？

B.xlsm の ThisWorkbookモジュールに
Private Sub Workbook_Open()
Load A表紙
A表紙.Show
End Sub

B.xlsm の A表紙モジュールに
Private Sub CommandButton96_Click()
Me.Hide
Workbooks.Open Filename:=ThisWorkbook.Path & "\Ａ計算\Ｃ.xlsm"
End Sub.

C.xlsm の ThisWorkbookモジュールに
Private Sub Workbook_Open()
Load UserForm1
UserForm1.Show
End Sub

補足

教えていただいたコード行しましたが、UserForm1が出てきません。Ｃ.xlsmを単独で開くと即UserForm1が出てきます。僕も正直これでいけると思ったんですが・・。

回答No.5

masnoske

CommandButton96 が B.xlsm にあるようなので、UserForm1 が B.xlsm の中にないだけでは？　C.xlsm の中にあるとか...
C.xlsm の中にあるのなら、Load以降のフォーム制御は C.xlsm に記述します。
C.xlsm が立ち上がった時にフォームを表示したいのなら C.xlsm の ThisWorkbookモジュールの Workbook_Open にLoad以降のフォーム制御を記述すれば良いかと。
Private Sub Workbook_Open()
load UserForm1
UserForm1.Show
End Sub

補足

(1)B.xlsm を開いたときに、UserForm表紙が開きます。その表紙フォームの中に、フォルダＡ計算の中にあるＣ.xlsmに飛びなさい！というコマンドボタンがあり、ボタンには次のコードがあります。

Private Sub CommandButton96_Click()
A表紙.Hide
Workbooks.Open Filename:=ThisWorkbook.Path & "\Ａ計算\Ｃ.xlsm"
load UserForm1
UserForm1.Show
Sheets(1).Select
End Sub
(2)なので、UserForm1は、C.xlsm の中にあります。

ご教示いただいた「C.xlsm の中にあるのなら、Load以降のフォーム制御は C.xlsm に記述します。」をやってみましたが、UserForm1は出てきません。このフォームの中に、またコマンドボタンを作って他の処理をしたいので、出てこないと困るのです。

回答No.4

kkkkkm

コマンドボタンでＣ.xlsmを開いたときにUserForm1が開けばいいというだけでしたら

Ｃ.xlsmの
標準モジュールに
Public Sub FormS()
UserForm1.Show
End Sub
として

'Private Sub Workbook_Open()
'UserForm1.Show
'End Sub
はコメントアウトにしておいて

Ｂ.xlsmのユーザーフォーム（表紙）のコマンドボタンに
Private Sub CommandButton96_Click()
A表紙.Hide
Workbooks.Open Filename:=ThisWorkbook.Path & "\Ａ計算\Ｃ.xlsm"
Application.Run "Ｃ.xlsm!FormS"
Sheets(1).Select
End Sub

としたらUserForm1が表示されると思います。

ただし、個別にＣ.xlsmを開いてもUserForm1は表示されなくなります。

回答No.3

kkkkkm

試しに
Private Sub CommandButton96_Click()
Application.EnableEvents = True
Workbooks.Open Filename:=ThisWorkbook.Path & "\Ａ計算\Ｃ.xlsm"
End Sub
でやったらどうなりますか。

回答No.2

kkkkkm

あとたぶん「変数の宣言を強制する」という設定にしていないと思うので以下のサイトを読んで設定してください。
変数って宣言しなくちゃいけないの？
http://officetanaka.net/excel/vba/beginner/06.htm