ウェブクエリによる収入勘定/貸借対照表/キャッシュフローの引き落としを促進する

Question

""というリンクでWebクエリを使用して財務諸表をExcelにインポートすることができました。インポートプロセスをマクロに記録し、それを実行させるためにvbaコードを少し修正しました。今、私はA1のセルにある株価情報に基づいて輸入財務諸表を更新したいと考えています。しかし、私は下付き文字が範囲外のエラーであり、私は理由を理解できないようです。可能であれば、以下のコードを見て、洞察を与えてください。

​​

ありがとうございました！

Answer 1

私は入力シートからティッカー値を読み取っていますが、アクティベートシートに書き込もうとしているようです。 その可能性以外は、私のためにうまく動作していたようです。

私は現在のワークシートの変数とテストを追加しました。一緒の最初の行はちょっと変わった。

sTicker = Range("A1").Value 
    If sTicker = "" Then 
    MsgBox "No value to look up" 
    Exit Sub 
    End If 

    With ActiveSheet.QueryTables.Add(Connection:= _ 
    "URL;http://www.advfn.com/stock-market/NASDAQ/" & sTicker & "/financials?btn=annual_reports&mode=company_data" _ 
    , Destination:=Range("B2"))