代码段可在我的PC上使用，但不能在其他人的计算机上使用

|| 我已经编写了一些代码，可以在我的PC上使用，但是不能在其他人的计算机上使用。我真的很困惑。问题代码是

Dim temp As HtmlHtmlElement   
Dim s As String   
s = \"2222222\"   
For Each temp In html.getElementsByTagName(\"option\")         
    If temp.getAttribute(\"value\") = s Then             
    r.Offset(0, 1) = (temp.innerText)                  
    End If   
Next temp

r

是传递给子对象的Range对象。 变量html是使用xmlHTTP从网页加载html的对象 此代码在我的PC上运行良好，它在html源中找到\“ option \”标记，然后检查\“ value \”属性是否等于字符串s。当我在其他人的pc上运行它时，即使有一个名为value的属性，temp.getAttribute（\“ value \”）也会返回一个空字符串。网页地址是硬编码的，因此不是他使用了错误的URL 我使用Excel 2007，他使用2010 任何人有任何想法吗？ 谢谢