这个如何错了，很久无用vba了，求大侠帮忙看下

这个怎么错了，很久无用vba了，求大侠帮忙看下
Sub MyTest()
  Dim a As Variant, b As Variant, i%
　　　　　　　 a=Array (Sheet1,Sheet2)
　　　　　　　 b = Array ("xml.xml","dd.xml")
  For i=0 To Ubound (b)
  ActiveWorkbook.OpenXML(b(i), a(i), xlXmlLoadOpenXml);
  Next i
End Sub
//vba;

[解决办法]
1、 ActiveWorkbook.OpenXML(b(i), a(i), xlXmlLoadOpenXml);一句多了一个分号。
2、没见过Excel里OpenXML方法。