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

「FFFTPを立ち上げて、ホスト一覧からサイト名を選んで接続」
この作業をエクセルVBAで行いたいと前回質問した者です。
http://oshiete.goo.ne.jp/qa/7596470.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 回答日時： 2012/07/19 12:17

こんな感じかな。

1行で書くと見難くなるので2行に分けました

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

この回答へのお礼

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

お礼日時：2012/07/19 13:25