[楽天RSS] EXCEL300銘柄制限

コード掲載の体裁テストです深い意味はなっしんぐ

EXCELで1セル書き換えでも300銘柄制限は突破できない事の検証
Sub Test1()
Dim row As Integer: row = 1
Dim code As Integer: For code = 1300 To 3000
For Each T In Array("T", "Q", "OS", "OJ")
Dim rss As String: rss = "=RSS|'[Code].[T]'!銘柄名称"
rss = Replace(rss, "[Code]", CStr(code))
rss = Replace(rss, "[T]", T)

Cells(1, 1).Value = code
Cells(1, 2).Formula = rss
DoEvents

If Cells(1, 2).Text <> "#N/A" Then
Debug.Print row, code, T, Cells(1, 2).Value
row = row + 1
Exit For
End If
Next
Next
End Sub

みごとに299銘柄で止まりますってこと

  1. No Comments