Excel VBA：「シート選択」ダイアログにアクセスして制御する方法は？

Question

VBAスクリプトで使用するワークシートを特定できない場合は、Excelダイアログボックスが開きます。「シートの選択」。これは素晴らしいです！プログラムで制御を行い、その "シート選択"ダイアログを使用するにはどうすればよいですか？

私は..Toは、変数=選択したファイル名を設定

Application.FileDialog(msoFileDialogFilePicker) 

使用するコードを書いているが、私は、そのファイル内の特定のワークシートに変数を設定しようとしています。ファイルを開くことなくすべて。私は、ワークフローになりたい

：ダイアログが開きます

1. ファイル - >
2. OK> Excelファイルを選択してワークシートダイアログ（Excelの「シートを選択」ダイアログボックスのような）が開きます - >ワークシートのいずれかを選択します。そのExcelファイル> OK

私はApplication.Dialog（xl ...）の処理を行っていますが、正しいオプションが見つかりません。

助けてください！ありがとう。

Answer 1

あなたがこの（適合した形態トムUrtisのhere）を試みることができる

Option Explicit 

Dim mySht As Worksheet 

Sub SelectSheet() 

Dim cmdBar As CommandBar 
Dim cmdBarBtn As CommandBarButton 
Dim sht As Worksheet 

RegDel 

Set cmdBar = Application.CommandBars.Add("Register", msoBarPopup) 
For Each sht In ThisWorkbook.Worksheets 
    Set cmdBarBtn = cmdBar.Controls.Add 
    cmdBarBtn.Caption = sht.Name 
    cmdBarBtn.Style = msoButtonCaption 
    cmdBarBtn.OnAction = "SelectThatSheet" 
Next sht 
cmdBar.ShowPopup 

MsgBox "you selected sheet '" & mySht.Name & "'" 

End Sub 

Sub SelectThatSheet() 
Set mySht = Worksheets(Application.Caller(1)) 
RegDel 
End Sub 

Sub RegDel() 
On Error Resume Next 
Application.CommandBars("Register").Delete 
On Error GoTo 0 
End Sub