Извлечение текста с веб-сайта с использованием VBA для Mac - PullRequest
0 голосов
/ 10 октября 2019

Извините, если это очень простой вопрос, но я действительно в отчаянии. Я хочу получить выходные данные веб-сайта https://cactus.nci.nih.gov/chemical/structure/78-70-6/smiles, и ввести его в ячейку Excel с помощью VBA. Кто-нибудь знает простой и прямой способ сделать это?

В некотором смысле, я хотел бы что-то вроде "curl", в bash, но это может быть использовано в VBA для Excel.

Я использую Excel для Mac, версия 16.16.14, с VBA 7.1.

Я испробовал многие из предложенных в Интернете подходов, но на моей версии Excel ничего не работало.

Большое спасибо.

1 Ответ

0 голосов
/ 10 октября 2019

Это должно сработать;

    Dim InternetExplorer As Object 'dim your internet explorer
    Dim WebsiteURL As String: WebsiteURL = "https://cactus.nci.nih.gov/chemical/structure/78-70-6/smiles" 'dim and set your website url
    Dim WebsiteText As String 'dim a variable to store the website text

    Set InternetExplorer = CreateObject("InternetExplorer.Application") 'set your internet explorer

    With InternetExplorer
      .Visible = 1 'set to show (if you put 0 the browser would be hidden - just remember to set to nothing at end)
      .navigate WebsiteURL 'navigates to websiteurl
       While .Busy Or .readyState <> 4 'waits for page to load
         DoEvents
       Wend
    End With

    Dim WebPage As HTMLDocument 'dim your webpage as htmldocument
    Set WebPage = InternetExplorer.document 'set your webpage to the internet explorer

    WebsiteText = WebPage.body.innerText: Range("A1").Value = WebsiteText 'puts website text into variable : write to whatever cell you want

РЕДАКТИРОВАТЬ: только что заметил, что вы сказали для MAC - мой плохой, поскольку это использует Internet Explorer

...