エクセルＶＢＡで外部ソフトFFFTPを操作(２）

質問

「FFFTPを立ち上げて、ホスト一覧からサイト名を選んで接続」
この作業をエクセルVBAで行いたいと前回質問した者です。
http://okwave.jp/qa/q7596470.html

そこで、
Sub Sample1()
Dim rc As Long
rc = Shell("C:～\FFFTP.exe"-s サイト名", vbNormalFocus)
If rc = 0 Then MsgBox "起動に失敗しました"
End Sub

この書き方で、成功したのですが、エクセルSheet1、A1のセルにサイト名があるとして、サイト名のところにA1セルを入れるにはどのように書けばいいのでしょうか？

rc = Shell("C:～\FFFTP.exe"-s （ここにA1のセルを入れたい）", vbNormalFocus)

VBAがほとんど分からず苦労してます。どなたか教えていただけないでしょうか？

回答No.1

mt2008 · ベストアンサー

こんな感じかな。
1行で書くと見難くなるので2行に分けました

sString = """C:～\FFFTP.exe"" -s " & Sheets(1).Range("A1")
rc = Shell(sString, vbNormalFocus)

お礼

回答ありがとうございました。
上手くできました！
本当に感謝します。