使用VBA從HTML表複製/粘貼，粘貼到Excel

Question

我在Excel中使用VBA。我正在尋找使用VBA複製HTML表格中的某些數據。我與看起來那樣工作表：

<table class="RatingsTable standard" id="RatingsTable1"> 
       <tr> 
        <th class="top_header" colspan="16">General & Fielding Ratings</th> 
       </tr> 
       <tr> 
        <th class="event">Event</th><th class="season">Season</th><th class="height">Height</th><th class="weight">Weight</th><th class="rating overall" title="Overall"><span class="hidden">OV</span></th><th class="rating range" title="Range"><span class="hidden">RA</span></th><th class="rating glove" title="Glove"><span class="hidden">GL</span></th><th class="rating armstrength" title="Arm Strength"><span class="hidden">AS</span></th><th class="rating armaccuracy" title="Arm Accuracy"><span class="hidden">AA</span></th><th class="rating pitchcalling" title="Pitch Calling"><span class="hidden">PC</span></th><th class="rating durability" title="Durability"><span class="hidden">DU</span></th><th class="rating health" title="Health"><span class="hidden">HE</span></th><th class="rating speed" title="Speed"><span class="hidden">SP</span></th><th class="rating patience" title="Patience"><span class="hidden">PA</span></th><th class="rating temper" title="Temper"><span class="hidden">TP</span></th><th class="rating makeup" title="Makeup"><span class="hidden">MK</span></th> 
       </tr> 

       <tr class="odd"> 
        <td class="event">Current</td><td class="season">36</td><td class="height">6-0</td><td class="weight">224</td><td>87</td><td>29</td><td>10</td><td>85</td><td>46</td><td>22</td><td>25</td><td>93</td><td>16</td><td>55</td><td>36</td><td>80</td> 
       </tr> 

       <tr class="even"> 
        <td class="event">Projected</td><td class="season">-</td><td class="height">?</td><td class="weight">?</td><td>?</td><td>?</td><td>?</td><td>?</td><td>?</td><td>?</td><td>?</td><td>?</td><td>?</td><td>?</td><td>?</td><td>?</td> 
       </tr> 

       <tr class="odd"> 
        <td class="event">Spring Training</td><td class="season">36</td><td class="height">6-0</td><td class="weight">224</td><td>87</td><td>29</td><td>10</td><td>85</td><td>46</td><td>22</td><td>25</td><td>93</td><td>16</td><td>55</td><td>36</td><td>80</td> 
       </tr> 

      </table> 

我期待複製和粘貼的數據是這樣的部分：

<td class="event">Current</td><td class="season">36</td><td class="height">6-0</td><td class="weight">224</td><td>87</td><td>29</td><td>10</td><td>85</td><td>46</td><td>22</td><td>25</td><td>93</td><td>16</td><td>55</td><td>36</td><td>80</td> 

所以，我需要複製36，6-0，224， 87，29，10，85，46，22，25，93，16，55，36和80，但我無法抓住這個特定的數據。有人能夠幫助嗎？

Answer 1

在Excel菜單（2007/2010或更高版本）選擇「Data」選項卡，然後選擇「From Web」，然後輸入網址，並使用箭頭圖標突出顯示感興趣的HTML文檔表格，然後指定在Excel中靶細胞工作表。

您可以使用Macro Recorder生成模板VBA Sub，然後根據您的特定目的對其進行微調。在Microsoft文章中詳細記錄了程序：https://support.office.com/en-nz/article/Get-external-data-from-a-Web-page-708f2249-9569-4ff9-a8a4-7ee5f1b1cfba（它也描述了在Excel中創建Web查詢的方式，您可以使用它）。

根據你的意見增加：爲了減少與你的業務邏輯相關的表的大小，如果該外部網站爲你提供這個選項，你可能會創建一個參數化的自定義web查詢。您最通用的解決方案是使用最適合您的目標的Web數據填充Excel工作表，然後（必要時）使用Excel VBA執行最終的數據修整。

就像FYI：還有一種下載/解析整個HTML文件的技術，但我不會推薦這種方法。

希望這可能有所幫助。最好的問候，