Excel VBA：セル値をcmdにコピー

Question

VBAで作業することは一度もありませんでした。cmdにセル値を追加してアドバイスや解決策を探しています。ボタンをクリックして

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

： は、私は私がcmdを実行

例えば 指定されたコマンドの終わりに私のループ値を追加することができたいと思います。

すでに誰かが説明したり、送ってくれたことができれば、私は感謝されるコマンド

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

を指定するためのI /ペーストセル、ワークシートまたはファイルをコピーする方法を知っているが、私は、セルの値を追加する方法を見つけることができませんすべてのソリューション; P

Answer 1

あなたは、細胞のシート（例えば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