Excel VBA：如何访问和控制“工作表选择”对话框？

Question

当我的 VBA 脚本无法确定要使用哪个工作表时，它会打开一个 Excel 对话框：“选择工作表”。这是太棒了！如何以编程方式控制和使用“工作表选择”对话框？

我正在编写一个使用的代码

Application.FileDialog(msoFileDialogFilePicker)

..要设置一个变量=一个选择的文件名，但我也试图将一个变量设置为该文件中的某个工作表。全部无需打开文件。

我希望工作流程是：

1. 文件对话框打开 -> 选择一个 Excel 文件 > 确定
2. 工作表对话框打开（如 Excel 的“选择工作表”对话框）-> 选择该 Excel 文件中的一个工作表 > 确定

我已经通过 Application.Dialog(xl...) 的东西，但找不到正确的选项。

请帮忙！谢谢。

Answer 1

你可以试试这个（改编自 Tom 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