將在線數據導入Excel電子表格

Question

我的任務是簡化從特定的在線網站收集數據並將其導入Excel 2010電子表格的過程。 網站是“科學網絡”， http：//apps.webofknowledge.com/UA_GeneralSearch_input.do？product = UA＆SID = T2b1MtfKgCqeB2h9j9J＆search_mode = GeneralSearch ，該網站詳細介紹了學術出版物和期刊。

目前，他們正在訪問網站，輸入少量搜索參數，然后手動記錄網頁中的相關數據。 他們希望能夠在Excel中輸入關鍵字（充當搜索項），然后該關鍵字自動執行其余過程，並為他們提供所需數據的電子表格。

但是，他們需要的數據以輸入出版物名稱的潛在作者列表的形式出現，該出版物名稱當前在網站上顯示為“選擇結果”下的復選框： http : //apps.webofknowledge.com/ RAMore.do?product=UA&search_mode=GeneralSearch&SID=T2b1MtfKgCqeB2h9j9J&qid=5&ra_mode=more&ra_name=Author&colName=&viewType=raMore

因此，基本上我需要用戶能夠在Excel中輸入搜索項，以便他們輸入網站上的搜索字段，然后將與該主題相關的作者列表導入電子表格中。

這可能嗎？ 也許通過在Excel中使用VBA代碼？

人們會推薦什么？ 我實際上只是Excel的新手，但確實具有編程經驗。

非常感謝您的幫助，

約翰

*僅供參考，更新，這就是我到目前為止所得到的，甚至是用戶輸入一個單詞，然后由網站搜索工具進行搜索。 現在需要找作者並將他們導入電子表格中：

Sub WoS()

    Dim IE As Object
    Dim Doc As Object
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True

navigate:

    ' navigate to the relevant website
    IE.navigate "http://apps.webofknowledge.com/UA_GeneralSearch_input.do?   product=UA&search_mode=GeneralSearch&SID=T23ZytENYQRHyJkmixB&preferencesSaved="

    ' wait until page has finished loading
    Do While IE.readystate <> 4: DoEvents: Loop

    Set Doc = CreateObject("htmlfile")
    Set Doc = IE.document

    If Doc Is Nothing Then GoTo navigate

    ' allow user to input keywords for search
    Set myInput = Doc.getelementbyid("value(input1)")
    myInput.Value = InputBox("Please enter the subject for Publication Name: ")

    ' click button to process search
    Set btnSubmit = Doc.getelementbyid("UA_GeneralSearch_input_form_sb")
    btnSubmit.Click

End Sub

Answer 1

也許您應該嘗試使用Power Query？ 使用Power QUery，您可以直接從Web下載數據（以及轉換和清理數據），然后在工作簿中使用。 所有數據都保存為“過程”，因此您可以簡單地從Web刷新內容。 當然，另一個選擇是代碼，即VBA。 當我能夠檢查您的地址時，我會告訴您是否有可能從該站點獲取數據。