VBAでユーザーに別ファイルのシートを選ばせたい場合

質問

エクセル２０００です。
マクロを記載したBOOKを開いたままで、ユーザーに作業の対象とするファイルを開かせ、その中の対象とするファイルを選ばせたら次のマクロに移りたいのですが、以下のマクロですと開いたらすぐ実行されてしまいます。
開いてからユーザーがシートをアクティブにするまで実行を止めるにはどうしたらよいのでしょうか？
BOOKを開かせて一旦マクロを終了し、マクロを記載したBOOKでまた別のボタンを押させるというのなら思いつくのですが・・・。

Sub test01()

MsgBox "対象のエクセルファイルを開いてください。" _
& vbCr & "開いたら該当のシートをアクティブにして下さい。", , " "
If Application.Dialogs(xlDialogOpen).Show = False Then
MsgBox "キャンセルされました。", , "（￣ロ￣；）！！"
Exit Sub
End If

Call 次のマクロ

End Sub

回答No.7

NNAQ

いろいろなアイデアが出てますが、さらに別案で、
Officeアシスタントを使ってもいいなら、ユーザーと対話的に作業を進められます。

Sub AssistantSample1()
With Assistant
.On = True
.Visible = True
.Filename = "saeko.acs"
With .NewBalloon
.Heading = "対象確認"
.Text = "対象のファイルを開いてください。"
.Button = msoButtonSetOK
.Show
End With
If Application.Dialogs(xlDialogOpen).Show = False Then
With .NewBalloon
.Heading = "（￣ロ￣；）！！"
.Text = "キャンセルされました。"
.Button = msoButtonSetOK
.Show
End With
Exit Sub
Else
.animation = msoAnimationCheckingSomething
With .NewBalloon
.Heading = "シート選択"
.Text = "開いたら該当のシートを選択して[OK] をクリックしてください。"
.Button = msoButtonSetOK
.Mode = msoModeModeless
.Callback = "AssistantSample2"
.Show
End With
End If
End With
End Sub

Sub AssistantSample2(bln As Balloon, lbtn As Long, lPriv As Long)
bln.Close
With Assistant
Select Case lbtn '=クリックされたボタン
Case msoBalloonButtonOK '[OK]ボタン
.animation = msoAnimationWorkingAtSomething
With .NewBalloon
.Heading = "（￣∇￣) ？ "
.Text = "アクティブシートのデータを取得します。"
.Icon = msoIconAlertQuery
.Button = msoButtonSetYesNoCancel
.Mode = msoModeModeless
.Callback = "AssistantSample2"
.Show
End With

Case msoBalloonButtonYes '[はい]ボタン
.animation = msoAnimationGestureUp
Call 次のマクロ
'.On = False 'アシスタントを消す

Case msoBalloonButtonNo '[いいえ]ボタン
.animation = msoAnimationCheckingSomething
With .NewBalloon
.Heading = "シート選択"
.Text = "シートを選択しなおして[OK] をクリックしてください。"
.Button = msoButtonSetOK
.Mode = msoModeModeless
.Callback = "AssistantSample2"
.Show
End With

Case msoBalloonButtonCancel '[キャンセル]ボタン
.animation = msoAnimationGetWizardy
With .NewBalloon
.Heading = "／(^o^)＼"
.Text = "中止します。"
.Button = msoButtonSetOK
.Show
End With
'.On = False 'アシスタントを消す
End Select
End With

End Sub

Sub 次のマクロ()
MsgBox "次のマクロ"
End Sub

Animationを使ったり、半分お遊びなので、
ヒマあったら実行してみてください。

お礼

ありがとうございました。
アシスタントのアニメーションは使ったことがありませんでした。
面白そうなのでさっそく試してみました。
ところが、対象のBOOKを開いてからOKすると
「マクロ、AssistantSample2がみあたりません」というエラーになってしまいます。