Excel VBA 質問スレ Part77
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このスレッドのURL
■項目テキスト
150:デフォルトの名無しさん 22/07/30 05:00:33.23 eVUB+9l60.net というか簡単に取れるけど kabu_kode = ThisWorkbook.Sheets("Sheet2").Cells(1, X).Value If kabu_kode <> "" Then driver.Get "https://finance.yahoo.co.jp/quote/" & kabu_kode Call Sleep(1000) '3秒待つ ThisWorkbook.Sheets("Sheet2").Cells(2, X).Value = driver.FindElementsByCss("h1._6uDhA-ZV").Item(1).Text '社名 ThisWorkbook.Sheets("Sheet2").Cells(3, X).Value = driver.FindElementsByCss("span._3rXWJKZF").Item(1).Text '株価 Set o_elem1 = driver.FindElementsByCss("dt") Set o_elem2 = driver.FindElementsByCss("dd") For Y = 1 To o_elem1.Count If X = 2 Then ThisWorkbook.Sheets("Sheet2").Cells(Y + 3, 1).Value = o_elem1.Item(Y).Text '凡例を書く ThisWorkbook.Sheets("Sheet2").Cells(Y + 3, X).Value = o_elem2.Item(Y).Text Next End If
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック!
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
36日前に更新/265 KB
担当:undef