小编Sha*_*rid的帖子

该代码可以正常工作，但是我只需要提取电子邮件和URL并将其放置在Sheet1“ Scraper”中即可。NEXT BLANK ROW

Emails =  Column A
Urls =  Column B

目前，它会提取任何文本，电子邮件或URL，并将它们放在column A或中B。

我只需要电子邮件或URL。我已经坚持了一段时间，似乎无法解决

另外，我不确定我的DELETE DUPLICATES是否要删除重复的行或列中的重复项。它应该是重复的行。

代码的工作方式：

在Sheet2“ URL列表”上，我有一个URL列表，代码将通过该列表运行并将结果放置到Sheet1“ Scraper”上。并删除所有重复项

它应该只是一个刮板电子邮件和URL，并将它们放入Column A，B下一步空白行。

我已尝试解决此问题，但超出了我的范围。

Private Sub fbStart_Click()
'Set sheet2 URL List and open Internet Explorer
    Dim lr          As Long
    Dim x           As Long
    Dim arr()       As Variant
    Dim wks         As Worksheet
    Dim ie          As Object
    Dim dd(1 To 2)  As String
    Dim Fr          As Long

    On …

我对 VBA 非常有限，

代码在一个模块中，代码也有一个子进程，如果我把代码贴错了，很抱歉

• A) 打开 IE
• B) 子进程获取数据。

1. 该代码在 ebay.com 上运行良好，但不适用于 ebay.co.uk - 不知道为什么，它还将 url 转换为超链接

2. 它只做第一页，我需要它浏览 X 个页面 - 有一个代码但无法让它工作，所以已将其删除。

3. 是否可以在 Ebay 打开后运行搜索查询，因此它打开，然后将搜索项输入到 ebay，然后运行代码，或者从单元格运行，如果它的单元格 A1 提取的数据需要粘贴到 A2 及以下。

1. 我查看了 ebay.com 和 ebay.co.uk 的元素，它们对我来说看起来一样，所以无法弄清楚为什么它不起作用，因为它适用于 1 而不是另一个。

2. 我确实输入了从几个页面获取数据的代码，但它不起作用。我知道当我从谷歌获取 url 时，这段代码可以正常工作

Public IE As New SHDocVw.InternetExplorer
Sub GetData()

    Dim HTMLdoc As MSHTml.HTMLDocument
    Dim othwb As Variant
    Dim objShellWindows As New SHDocVw.ShellWindows

    Set IE = CreateObject("internetexplorer.application")

        With IE
            .Visible = True
            '.Navigate "https://www.ebay.co.uk/sch/i.html?_from=R40&_trksid=m570.l1313&_nkw=jackets&_sacat=0"
            .Navigate "https://www.ebay.com/sch/i.html_from=R40&_nkw=ralph+lauren&_sacat=1059&LH_TitleDesc=0&_dmd=1&rt=nc"
            While .Busy Or .readyState <> 4: DoEvents: …