Excel Visual Basicvariables为HTMLDocument

一位用户向我发送了一个不再有效的macros，而且开发人员已经退休了。 当我看variables时，我们声明如下：

Public WebDoc As HTMLDocument 

当我运行macros时，它在下面的线上出错：

 For p = 1 To y vWBCount = Workbooks.Count With ExpApp .navigate vPath Do Until .readyState = READYSTATE_COMPLETE MyTimer Loop Set WebDoc = .document ''''THIS IS THE LINE THROWING THE ERROR For Each IElem In WebDoc.forms(0).elements Select Case IElem.Name Case "InputKeys_BUSINESS_UNIT" IElem.Value = vBU(p) Case "InputKeys_bind2" IElem.Value = vBegDate Case "InputKeys_bind3" IElem.Value = vEndDate Case "InputKeys_VENDOR_ID" IElem.Value = vVendor(p) End Select Next .navigate vSubmit Do Until .readyState = READYSTATE_COMPLETE Call LookForAndCloseIEPopup MyTimer Loop 

错误消息说：

不支持对象库function

任何build议如何解决这个将不胜感激。 该macros正在Windows 7 / Office 2010 / Visual Basic上运行。

谢谢……