1

我有一个包含图表、计算和数据表的 Excel 工作簿。

我在 VBA 中尝试做的是：

我有一个脚本可以设置计算表并将新数据导入其中。问题是我必须手动输入数据表的名称。我正试图尽可能地自动化这个过程，因为我和 lol 一起工作的 luddites！

我试图找出一种方法来设置一个输入框，这样当它弹出时它会提示我选择一个不同的工作表来导入数据。然后我单击数据表选项卡，它使用该工作表名称作为工作表来获取数据并在单击后启动脚本的其余部分。只需在我刚刚描述的脚本部分中单击即可。

我确实找到了这个...

Sub Sample()
    Dim varCellContent As Range
    Dim strDestinationSheetName As String

    On Error Resume Next
    Set varCellContent = Application.InputBox(Prompt:="Choose a sheet by clicking on any cell in it.", Type:=8)
    On Error GoTo 0

    If Not varCellContent Is Nothing Then
        strDestinationSheetName = varCellContent.Parent.Name

        MsgBox ("Sheet = " & strDestinationSheetName)
    End If
End Sub

这是我需要的，但我必须使用此代码选择单元格。我需要能够不选择单元格。如果他们在工作表中走得太远，他们就会迷路！哈哈！

由于公司安全，我不能使用插件或需要安装的东西

任何帮助将不胜感激！

4

0 回答 0