运行时错误429,activex部件不能创建对象

TD2014

很多方法都试过了，还是提示这个错误，到底怎么回事，请大神帮忙，希望大神能上传一下视频详细操作，弄了好长时间了，还是失败，开始-运行什么的收试过了，有人说是工具——引用选项，请指明到底是哪一项，麻烦说详细点，已经发了3个帖子了，还没有解决。

t13564865256

我这边完美运行不报错的。你的引用有点问题。

TD2014

您能把操作步骤给我看一看吗，（td1124423900@163.com），邮箱或者网页都可以，请说一下具体步骤，麻烦截图看一看

TD2014

能不能具体截图看一下，演示一下

t13564865256

每台机器的情况不一样啊。我这边都不报错，我怎么给你演示呢。话说你这代码真够牛的，对百度分析的那么透彻。尽然还能解决不了JS的引用问题。

TD2014

t13564865256 发表于 2015-5-22 15:13
我这边完美运行不报错的。你的引用有点问题。

能不能具体截图看一下，演示一下，我这边一直不行

t13564865256

    For p = 1 To 5
        With CreateObject("msxml2.xmlhttp")
            url = "http://map.baidu.com/?newmap=1"
            url = url & "&reqflag=pcmap"
            url = url & "&biz=1"
            url = url & "&from=webmap"
            url = url & "&qt=s"
            url = url & "&from=webmap"
            url = url & "&c=131"
            url = url & "&pl_data_type=cater"
            url = url & "&pl_sub_type=%E9%A4%90%E9%A6%86"
            url = url & "&pl_price_section=0%2C%2B"
            url = url & "&pl_sort_type=data_type"
            url = url & "&pl_sort_rule=0"
            url = url & "&pl_discount2_section=0%2C%2B"
            url = url & "&pl_groupon_section=0%2C%2B"
            url = url & "&pl_cater_book_pc_section=0%2C%2B"
            url = url & "&pl_ticket_book_flag_section=0%2C%2B"
            url = url & "&pl_movie_book_section=0%2C%2B"
            url = url & "&pl_business_type=cater"
            url = url & "&pl_business_id="
            url = url & "&pl_activity_gwj_section=0%2C%2B"
            url = url & "&wd=餐饮"
            url = url & "&pn=1"
            url = url & "&db=0"
            url = url & "&wd2="
            url = url & "&sug=0"
            url = url & "&da_src=pcmappg.poi.page"
            url = url & "&on_gel=1"
            url = url & "&src=7"
            url = url & "&gr=3"
            url = url & "&b=(12923312.96,4835667.72;12993008.96,4846291.72)"
            url = url & "&l=12"
            url = url & "&addr=0"
            url = url & "&nn=" & (p - 1) * 10
            url = url & "&tn=B_NORMAL_MAP"
            url = url & "&ie=utf-8"
            url = url & "&t=1412423900383"
            .Open "get", url, False
            .send
            js.addcode ("suwenkai = " & .responsetext)

            slen = js.eval("suwenkai.content.length") - 1
            For i = 0 To slen
                n = n + 1
                Cells(n + 1, 1) = js.eval("suwenkai.content[" & i & "].name")
                Cells(n + 1, 2) = js.eval("suwenkai.content[" & i & "].addr")
                Cells(n + 1, 3) = js.eval("suwenkai.content[" & i & "].tel")
            Next
        End With
    Next
你先给我解释下你的这段代码吧，看起来很强悍的样子，完全看不懂

TD2014

t13564865256 发表于 2015-5-22 15:50
For p = 1 To 5
        With CreateObject("msxml2.xmlhttp")
            url = "http://map.baidu ...

那不是我写的代码啊，我是网上找到的啊，我只是想知道我为啥运行出错，出错在哪里，怎么改

tractor2

TD2014,你的问题解决了嘛？

tractor2

我重新装了一下office，初步得出结论是以前没有安装Microsoft Access，装上就能用了！