Question

我做了很多远程IT支持，并在文本框中制作了我建筑物中所有计算机的地图。我希望能够点击相关的计算机并打开远程查看程序。

我在此网站的其他地方找到了此代码

Sub Auto_Open()
    Dim x As Variant
    Dim Path As String


    ' Set the Path variable equal to the path of your program's installation
    Path = """W:\Remote\CmRcViewer.exe"" ""PC13054"""

    x = Shell(Path, vbNormalFocus)
 End Sub

我想知道是否有办法拉动动态调用宏的文本框的textbox.value？比如this.value？

Answer 1

实现此目的的一种方法是将所有文本框重命名为它们所代表的计算机的名称。然后将所有文本框分配给此过程。

Option Explicit

Sub openRemoteViewer()

    Dim whichMachine As String
    whichMachine = Application.Caller

    Dim path As String
   ' Set the Path variable equal to the path of your program's installation
    path = """W:\Remote\CmRcViewer.exe"" """ & whichMachine & """"

    Dim x As Variant
    x = Shell(path, vbNormalFocus)

 End Sub

还有其他方法，但我认为这可能是最容易实现的方法。

Excel - 获取调用宏

1 个答案: