如果获得实时汇率

yanghua1900363

Private Sub ComOpen_Click()
Dim oie As object
Set oie = CreateObject("InternetExplorer.Application")
    oie.Visible = True
    strTemp = "http://www.safe.gov.cn/model_safe/search/rmb.jsp?sdate=" & Format(strDate, "YYYY-MM-DD")

    strAddress = strTemp
    oie.Navigate (strAddress)


End Sub

tmtony 老师 ：红色字体部分 是我加上去的，单击“comopen”后提示“strDate”没有定义，请问怎么做才好？