Excel VBA：將單元格值複製到cmd

我從來沒有很高興能夠使用VBA，我正在尋找一些建議或解決方案，爲cmd添加單元格值。通過點擊一個按鈕Excel VBA：將單元格值複製到cmd

java -cp D:\Automation_Mobile.jar utils.Loop D:\MobileLogin.xml %value from cell here%

：我希望我能在指定的命令

e.g的末尾添加我的循環值與執行CMD。

我知道如何複製/粘貼單元格，工作表或文件，但我找不到如何添加一個單元格的值已經指定命令

Private Sub CommandButton2_Click() 
Shell "CMD /K java -cp D:\Automation_Mobile.jar utils.Loop D:\MobileLogin.xml", vbNormalFocus 
End Sub

我會很感激，如果有人能解釋或者給我發任何解決方案，p

來源

2017-05-14 Archie

'的.xml「＆[A1]'http://stackoverflow.com/documentation/excel-vba/1503/ranges-and-cells – Slai

它的工作正是我想要的，謝謝@Robin Mackenzie 你是英雄:) – Archie

我一定會檢查這些文件。我相信他們會在未來幫助我。謝謝@Slai – Archie

如果你知道細胞的表（如Sheet1）及地址（例如A1），你可以得到的值：

ThisWorkbook.Worksheets("Sheet1").Range("A1").Value

所以你R代碼裏面就變成了：

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

來源

2017-05-14 12:29:54

Excel VBA：將單元格值複製到cmd

回答

相關問題