如何自动打开amazon搜索网页并自动输入搜索内容进行搜索

rbftong

如标题：如何自动打开amazon搜索网页并自动输入搜索内容进行搜索
网址：http://app.scientificseller.com/#/
附件有A列为国家，B列为搜索的关键词，用VBA代码如何写？
1.用IE或猎豹浏览器自动打开  http://app.scientificseller.com/#/
2.A列自动对应查找亚马逊市场的关键词？US 对应United States(US),CN对应China(CN)
3.B列的关键字自动输入到"开始一个关键字搜索"的方框中
4.自动执行“开始我的关键词搜索”的按钮进行搜索。

希望各位大师帮忙，谢谢！

rbftong

希望各位大师帮帮忙，急，急，急，万分感谢！

rbftong

没人帮忙，顶一下。

lt0314

1. Dim ie As Object
   
2. Sub main()
   
3. Set ie = CreateObject("internetExplorer.application")
   
4. With ie
   
5.     .navigate "http://app.scientificseller.com/#/"
   
6.     .Visible = True
   
7. End With
   
8. serch [a2], [b2]
   
9. End Sub
   
10. Sub serch(reg, key)
    
11. With ie
    
12.     .Refresh
    
13.     While ie.readystate <> 4
    
14.         DoEvents
    
15.     Wend
    
16. 
    
17. End With
    
18. loadScriptString ie, "$('textarea').val('" & key & "');$('#regionId').val('" & reg & "');start();"
    
19. End Sub
    
20. 
    
21. Sub loadScriptString(ie, code)
    
22.     Dim myScript, textcode
    
23.     On Error Resume Next
    
24.     Set myScript = ie.document.createElement("script")
    
25.     myScript.Type = "text/javascript"
    
26.     Err.Clear
    
27.     Set textcode = ie.document.createTextNode(code)
    
28.     myScript.appendChild (textcode)
    
29.     If Err Then Err.Clear: myScript.Text = code
    
30.     ie.document.body.appendChild (myScript)
    
31. End Sub
    

复制代码

rbftong

lt0314 发表于 2017-3-14 11:18

@ lt0314  
好像关键字[b2]的内容sumsung未在搜索栏内显示，谢谢

托斯卡卡

lt0314 发表于 2017-3-14 11:18

朋友，这个贴有兴趣，帮着看下呗   有偿的~

http://club.excelhome.net/thread-1540055-1-1.html