提示用户选择要复印的工作表

Question

作为更大宏的一部分，我的代码是：

• 打开工作簿，
• 将该工作簿的第一张工作表复制到当前工作簿中的新工作表
• 然后关闭新打开的工作簿。

此代码有效，但现在我想修改它，以便用户可以选择要复制的工作表

这是我的代码：

Dim wb3 As Workbook
Set wb3 = ThisWorkbook

Dim wb_mainFile As Workbook
Dim strMainFile As String

strMainFile = Range("G4").Value
'G4 is the cell that contains the path to the workbook that is to be opened

Set wb_mainFile = Workbooks.Open(strMainFile)
ThisWorkbook.Activate
wb_mainFile.Sheets(1).Copy _
After:=wb3.Sheets(wb3.Sheets.Count)
ActiveSheet.Name = "Sheet3"
wb_mainFile.Close

Answer 1

据我所知，没有办法选择这样的表格 - 所以这有点破解。

这要求用户在所需的工作表上选择一个单元格：

Sub Foo()

Dim mySheet As Excel.Worksheet

Set mySheet = Application.InputBox("Select a cell on the sheet you want to use:", Type:=8).Parent

MsgBox "Chosen sheet is " & mySheet.Name

End Sub

Answer 2

您可以使用内置的CommandBar调出选项卡列表（单击时会在左下角弹出）

Sub CrowsFlag()
Dim cbTool As CommandBar
Set cbTool = CommandBars("workbook tabs")
cbTool.ShowPopup
End Sub