問題を区切る、予想される文字列に変数を挿入するにはどうすればよいですか？ Excel-VBA

Question

私は、Yahoo FinanceからWEBSERVICE関数を使用してデータを取得し、ループを介してデータを取り込もうとしています。私は問題がアポストロフィであることを知っています。なぜなら2つの変数があるので、それらを区切る方法がわかりません。私は "&シンボル&"の組み合わせを試したが、ダブルアポストロフィは何も働かなかった。

ご協力いただきありがとうございます。

コードは次のとおりです。

Sub marketdata() 

    Dim symbol As String 
    Dim parameter As String 
    Dim rows As Long 
    Dim cols As Long 

    For rows = 2 To 5700 
     For cols = 3 To 20 
      symbol = Cells(rows, 2).Value 
      parameter = Cells(1, cols).Value 
      Cells(rows, cols).Value = "=WEBSERVICE _ 
      (""https://download.finance.yahoo.com/d/quotes.csv?s=SYMBOL&f=PARAMETER"")" 
     Next cols 
    Next rows 

End Sub 

これが私の最初の投稿です、私は何かを明確にする必要がある場合は私に知らせてください。

Answer 1

2つの置換操作を使用してセル値を文字列に挿入します。

Dim sp As String 
Dim rows As Long 
Dim cols As Long 

For rows = 2 To 5700 
    For cols = 3 To 20 
     sp = "=WEBSERVICE(""https://download.finance.yahoo.com/d/quotes.csv?s=%1%&f=%2%"")" 
     sp = Replace(Replace(sp, "%1%", Cells(rows, 2).Value), "%2%", Cells(1, cols).Value) 
     Debug.Print sp 
     Cells(rows, cols).Value = sp 'should this be .Formula? 
    Next cols 
Next rows 

親ワークシート参照を含むこともできます。