[英]How do I insert a variable into an expected string, delimiting issue? Excel-VBA
我正在嘗試通過WEBSERVICE函數從Yahoo Finance檢索數據,然后通過循環填充數據。 我知道問題在於撇號,因為有兩個變量我不確定如何定界它們。 我試過了“&symbol&”,雙撇號的組合,沒有任何效果。
任何幫助,不勝感激,謝謝!
代碼是:
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
這是我的第一篇文章,如果需要澄清,請告訴我。
我將使用兩次替換操作將單元格值放入字符串中。
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
您可能還希望開始包括父級工作表引用。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.