最新株式データを読込む 　 　　 要VBA TOP＞Excel/Word/PowerPoint ○ポイントはOpenメソッドでURL指定 　HTML記述のファイルはワークシートで表示できることから、OpenメソッドでURLを指定することによりwebサイトが表示できます。その時、決まったセルに表示される値を新しいシートに転記すれば、ネット上の最新株価がセルの数値として落とせます。 (1)数値を拾い出す表示位置が変わる場合があるので、ターゲットのワードを検出して、そのセルを基準に決まったセルの値を転記するようにFor〜Nextのループ開始数とループ数を決める。 (2) コード例は下記 　（この例では、NIKKEIネットの株価サーチサイトで最新データを拾います） Sub LATEST_STOK_DAT() Dim myCod As String Dim myURL As String Dim i As Integer myCod = InputBox("銘柄コードを入力してください") myURL = "http://company.nikkei.co.jp/index.aspx?scode=" & myCod Application.ScreenUpdating = False Application.DisplayAlerts = False Workbooks.Open Filename:=myURL ActiveSheet.Name = "new" Sheets.Add ActiveSheet.Name = "s" & myCod 'ループ範囲は「現在地」の表示位置に応じて変更 For i = 80 To 100 If Left(Sheets("new").Cells(i, 1).Value, 3) = "現在値" Then Exit For Next i Sheets("s" & myCod).Range("A1:A4").Value = _ Sheets("new").Range("A" & i & ":C" & i + 5).Value 'ループ範囲は「証券コード」の表示位置に応じて変更 For i = 40 To 70 If Left(Sheets("new").Cells(i, 1).Value, 5) = "証券コード" Then Exit For Next i Sheets("s" & myCod).Range("A6:C8").Value = _ Sheets("new").Range("A" & i & ":C" & i + 2).Value Sheets("new").Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub ○こんな時に使える ・特定の株価をデータ化したい ○関連情報・その他の方法 ・EXCEL2000の場合はこちら ・銘柄コードを固定してループ化すると自分用の株価変動グラフが作れます。 ・株式情報に限らず、ページレイアウトが固定されているサイトに利用できます。 ○注意 ・インターネットに接続できないパソコンでは使用できません。 ・サイトの広告表示や構成が変わるとデータがずれて表示されます。