VBA EXCEl导XML数据问题 - VB / 网络编程

用宏可以简单读取xml的数据至Excel，但要输入地址，我的这个地址是随时间规律变化的，想用程序做。
Sub Ma()
mytime = Format(Now, "yyyymmddhh")
 Workbooks.OpenXML Filename:="http://***。***。***。***/Hour_XML.aspx?Hour=mytime", _
  LoadOption:=xlXmlLoadImportToList
End Sub
这样的思路不行

---

Workbooks.OpenXML Filename:="http://***。***。***。***/Hour_XML.aspx?Hour="+mytime, _
  LoadOption:=xlXmlLoadImportToList

---

那样不对
应该是Workbooks.OpenXML Filename:="http://***。***。***。***/Hour_XML.aspx?Hour="mytime, _
  LoadOption:=xlXmlLoadImportToList
去掉+号，不过还是要谢谢您