如何在預期的字符串中插入變量，分隔問題？ Excel-VBA

Question

我想通過WEBSERVICE函數從Yahoo Finance檢索數據，然後通過循環填充數據。我知道這個問題與撇號有關，因爲有兩個變量我不確定如何分隔它們。我試過「&符號&」的組合，雙撇號，沒有任何工作。

任何幫助非常感謝，謝謝！

的代碼是：

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

我會使用兩個替換操作將單元格值放入字符串中。

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 

您可能還希望開始包括父工作表參考。