私は毎朝、東証１部銘柄の株価時系列を以下のプログラムでダウンロードしていますが、一部の銘柄で、前日の株価だけがダウンロードされていないという事象が発生しています。その銘柄のＷｅｂページの時系列表を見ますと、やはり前日分が抜け、前々日分から表示されています。しかし、日付設定の後の「表示」ボタンをクリックしますと、前日分が正常に表示されます。マクロで、この「表示」ボタンを押すような設定は出来るんでしょうか。 Dim X As Worksheet Set X = Worksheets.Add X.Name = "INDB" Sheets("INDB").Select URLWEB = "http://info.finance.yahoo.co.jp/history/?code=" KIKAN = ".t&sy=" & END年 & "&sm=" & END月 & "&sd=" & END日 & "&ey=" & _ FST年 & "&em=" & FST月 & "&ed=" & FST日 & "&tm=d&=" For I = 1 To CNT With ActiveSheet.QueryTables.Add(Connection:= _ "URL;" & URLWEB & CD(I) & KIKAN, Destination:=Range("$A$1")) .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .AdjustColumnWidth = True .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .Refresh BackgroundQuery:=False End With 時系列データー( I ) = Webの時系列データー '時系列データーを取り込みます。 Application.DisplayAlerts = False Sheets("INDB").Cells.Clear Application.DisplayAlerts = False Next I Set X = Nothing
↧