代码片段适用于我的电脑，但不适用于其他人
我写了一些代码，可以在我的电脑上运行，但是不能在别人的电脑上运行。 我真的很困惑，有问题的代码是
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对象。 variableshtml是一个使用xmlHTTP从网页中加载了html的对象
这段代码在我的电脑上工作正常，它在html源代码中find“option”标签，然后检查“value”属性是否等于strings。 当我在别人的pc上运行它时，temp.getAttribute（“value”）返回一个空string，即使有一个名为value的属性。 网页地址是硬编码，所以它不是他使用错误的URL我使用Excel 2007，他使用2010年
任何人有任何想法？ 谢谢
你如何声明和实例化的HTML对象？
例如，你说你正在使用xmlHTTP，但是唯一的select？ 你的代码尝试和设置HTML为“Microsoft.XMLHTTP”第一，如果没有find然后尝试“MSXML2.XMLHTTP”，甚至不同的版本号ServerXMLHTTP30 / ServerXMLHTTP60？
如果是这样，也许问题是，具体的参考还没有启用，你通过不同的对象获取网页。 这些都可以返回一个网页略有不同，不同的编码，UPPER / LOWERCASE等基于Web服务器设置和对象。
编辑：您可能会发现这有用使用正确版本的MSXML