我从来没有愉快地使用 VBA,我正在寻找一些将单元格值添加到 cmd 的建议或解决方案。我希望我可以在指定命令的末尾添加我的循环值
例如用以下命令执行 cmd:
java -cp D:\Automation_Mobile.jar utils.Loop D:\MobileLogin.xml %value from cell here%
通过单击按钮。
我知道如何复制/粘贴单元格、工作表或文件,但我找不到如何将单元格值添加到已指定的命令
Private Sub CommandButton2_Click()
Shell "CMD /K java -cp D:\Automation_Mobile.jar utils.Loop D:\MobileLogin.xml", vbNormalFocus
End Sub
如果有人可以解释或向我发送任何解决方案,我将不胜感激;p
如果您知道单元格的工作表(例如Sheet1
)和地址(例如A1
),您可以通过以下方式获取值:
ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
所以你的代码变成:
Option Explicit
Private Sub CommandButton2_Click()
Dim strBaseCmd As String
Dim rngParameter As Range
Dim strParameter As String
Dim strCmd As String
' base command
strBaseCmd = "CMD /K java -cp D:\Automation_Mobile.jar utils.Loop D:\MobileLogin.xml"
' get a cell from a sheet in this workbook
Set rngParameter = ThisWorkbook.Worksheets("Sheet1").Range("A1")
strParameter = rngParameter.Value
' add parameter to command
strCmd = strBaseCmd & " " & strParameter
' run command
Shell strCmd, vbNormalFocus
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句