双击，在指定网页，对单元格内容进行搜索

托斯卡卡

工作需要，在企查查（https://www.qcc.com/）搜索 C 列 （Column = 3），查找客户信息。

1、如下程序已跑通。 能双击后，自动跳转企查查。然后手动ctrl+v，鼠标点击后查找。如附图”示意“。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Cancel = True
Target.Select
Selection.Copy   //这行似乎能起到ctrl+c的作用
Call M
End If
End Sub
----------------------------------------------------------------------------------------------------
Sub M()
Dim url As String
url = "https://www.qcc.com/"
Shell "C:\Program Files (x86)\Mozilla Firefox\FIREFOX.EXE " & url, vbNormalFocus
End Sub
----------------------------------------------------------------------------------------------------
注：IE总是不能自动登录企查查，所以用了火狐。

2、希望扩充的功能：
希望双击后，不需要手动ctrl+v，能自动选择下拉菜单的第一个，并自动“查一下”。


参考过这个贴，http://club.excelhome.net/thread-1329107-1-1.html，太难了，自己做不出来

注：* 火狐要是不好弄，IE、Edge都行啊~~
      * 企查查付费用户才能显示下拉菜单，可以提供密码。




各位，知识付费，但不多，50元酬劳。

vb爱好者洗衣机

Sub test()
arr = Sheets(1).UsedRange
Set ie = CreateObject("InternetExplorer.Application")
url = "https://www.qcc.com/"
With ie
    .Visible = True
    .Navigate url
    MsgBox "先自行登录再按确认"
    Do Until .ReadyState = 4 And .Busy = False
        DoEvents
    Loop
    Set TextBox = .document.getelementbyid("searchkey")
    TextBox.Value = arr(2, 3)
    Application.Wait Now + TimeValue("00:00:0" & 2)
    .document.getelementsbytagname("input")(3).Click
'    .Quit
End With
End Sub

vb爱好者洗衣机

看看是不是这样，我只会IE.现在只是实现查一下，之后要抓什么数据你没做要求。

EH_LOVE

你是用提收费的帐号吗 他这个网站有API  完全可以不用这样  对接一下他的API 就好了

托斯卡卡

EH_LOVE 发表于 2020-6-6 18:52
你是用提收费的帐号吗 他这个网站有API  完全可以不用这样  对接一下他的API 就好了

API接口要收费 还是算了

Kaohsing

收费的接口，信息多多

托斯卡卡

vb爱好者洗衣机 发表于 2020-6-5 17:32
Sub test()
arr = Sheets(1).UsedRange
Set ie = CreateObject("InternetExplorer.Application")

1、主要问题：
Edge、火狐、谷歌都能自动登录。只有IE，要每次移动滑动，手动登录——没有效率，完全不能用。
2、次要问题：
arr(2, 3)，3列不用变，但2行要根据鼠标点击的行，自动变更。


朋友，有什么办法没~  能实现的话，微信转账的

托斯卡卡

vb爱好者洗衣机 发表于 2020-6-5 17:32
Sub test()
arr = Sheets(1).UsedRange
Set ie = CreateObject("InternetExplorer.Application")

1、主要问题：
Edge、火狐、谷歌都能自动登录。只有IE，要每次移动滑动，手动登录——没有效率，完全不能用。
2、次要问题：
arr(2, 3)，3列不用变，但2行要根据鼠标点击的行，自动变更。


朋友，有什么办法没~  能实现的话，微信转账的

EH_LOVE

托斯卡卡 发表于 2020-6-11 15:47
API接口要收费 还是算了

你的帐号本来就给了钱的啊，然后自行开通就好了吧
可以在后台去看看啊

托斯卡卡

EH_LOVE 发表于 2020-6-11 17:29
你的帐号本来就给了钱的啊，然后自行开通就好了吧
可以在后台去看看啊

API另按接入次数收费  特别贵