从1号店或者京东商品里获取价格！~做实时的价格对比

唯家国情怀

之前一大哥帮我做了个代码给你们看看。我运行错误380
Sub t()
    Dim js
    Set js = CreateObject("msscriptcontrol.scriptcontrol")
    js.Language = "javascript"
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://p.3.cn/prices/get?skuid=J_1342087&type=1&area=8_604_3300", False    '&callback=cnp
        .send
        MsgBox "商品价格为：" & js.eval("a=" & .responsetext & ";var s='';s=a[0].p;")

    End With
End Sub


他是这么写的。
我想改改。

我就是想把A1-2-3里面的地址商品 价格取出 植入到C1-2-3去

光伟

我的代码没有错啊！

祁笑

以上仅为主要示例代码，请参照！

椰子蛋

错误我已经找到了。谢谢大哥，不过我先把这个2680值 给表格里的 D1

我是这么想的。    能不能编译返回值   定义个常量 JG    然后 JG = 这个JS的返回值 ，再把JG返回给T ，T就的值就到表格的任何一处了。

天堂里的死猪

你好，我也遇到跟你一样的 excel更新京东价格问题了，能分享下你的经验吗，加我QQ好不好？419333431

光伟

以前可以i获取，目前好像无法获取，大家有能获取的吗？谢谢