hizuke = Now + 6  '★★★6日先の日付を出す
    nen = Year(hizuke)
    getu = Month(hizuke)
    getu = String(2 - Len(getu), "0") & getu
    niti = Day(hizuke)
    niti = String(2 - Len(niti), "0") & niti
    nitizi = nen & "-" & getu & "-" & niti

    juusho = "http://cgi4.nhk.or.jp/hensei/program/ch.cgi?area=001&date=" & nitizi & "&tz=all&ch=07"

    Set InEx = CreateObject("internetexplorer.application")
    InEx.Visible = True
        InEx.Left = 0
        InEx.Top = 0
        InEx.Height = 550
        InEx.Width = 800
    InEx.Navigate juusho